hedgewars/uRender.pas
changeset 10494 0eb97cf4c78e
parent 10431 d8830bd7cb24
child 10515 7705784902e1
child 10531 b8e6164a1a18
equal deleted inserted replaced
10493:bcbf029e6b08 10494:0eb97cf4c78e
  1480         ViewBottomY,
  1480         ViewBottomY,
  1481         first, count)
  1481         first, count)
  1482 else
  1482 else
  1483     PrepareVbForWater(true,
  1483     PrepareVbForWater(true,
  1484         OffsetY + WorldDy + cWaterLine, ViewTopY,
  1484         OffsetY + WorldDy + cWaterLine, ViewTopY,
  1485         LeftX  + WorldDx - OffsetX, ViewLeftX,
  1485         LongInt(LeftX)  + WorldDx - OffsetX, ViewLeftX,
  1486         RightX + WorldDx + OffsetX, ViewRightX,
  1486         LongInt(RightX) + WorldDx + OffsetX, ViewRightX,
  1487         ViewBottomY,
  1487         ViewBottomY,
  1488         first, count);
  1488         first, count);
  1489 
  1489 
  1490 // quit if there's nothing to draw (nothing in view)
  1490 // quit if there's nothing to draw (nothing in view)
  1491 if count < 1 then
  1491 if count < 1 then
  1559 // ( ox and dy are used to create different horizontal and vertical offsets
  1559 // ( ox and dy are used to create different horizontal and vertical offsets
  1560 //   between wave layers )
  1560 //   between wave layers )
  1561 dY:= -cWaveHeight + dy;
  1561 dY:= -cWaveHeight + dy;
  1562 ox:= -cWaveHeight + ox;
  1562 ox:= -cWaveHeight + ox;
  1563 
  1563 
  1564 lx:= LeftX  + WorldDx - ox;
  1564 lx:= LongInt(LeftX)  + WorldDx - ox;
  1565 rx:= RightX + WorldDx + ox;
  1565 rx:= LongInt(RightX) + WorldDx + ox;
  1566 
  1566 
  1567 topy:= cWaterLine + WorldDy + dY;
  1567 topy:= cWaterLine + WorldDy + dY;
  1568 
  1568 
  1569 
  1569 
  1570 if (WorldEdge <> weSea) then
  1570 if (WorldEdge <> weSea) then