hedgewars/uRender.pas
changeset 10494 0eb97cf4c78e
parent 10431 d8830bd7cb24
child 10515 7705784902e1
child 10531 b8e6164a1a18
--- a/hedgewars/uRender.pas	Wed Nov 12 22:47:43 2014 +0900
+++ b/hedgewars/uRender.pas	Fri Nov 14 17:00:47 2014 +0300
@@ -1482,8 +1482,8 @@
 else
     PrepareVbForWater(true,
         OffsetY + WorldDy + cWaterLine, ViewTopY,
-        LeftX  + WorldDx - OffsetX, ViewLeftX,
-        RightX + WorldDx + OffsetX, ViewRightX,
+        LongInt(LeftX)  + WorldDx - OffsetX, ViewLeftX,
+        LongInt(RightX) + WorldDx + OffsetX, ViewRightX,
         ViewBottomY,
         first, count);
 
@@ -1561,8 +1561,8 @@
 dY:= -cWaveHeight + dy;
 ox:= -cWaveHeight + ox;
 
-lx:= LeftX  + WorldDx - ox;
-rx:= RightX + WorldDx + ox;
+lx:= LongInt(LeftX)  + WorldDx - ox;
+rx:= LongInt(RightX) + WorldDx + ox;
 
 topy:= cWaterLine + WorldDy + dY;