hedgewars/uRender.pas
changeset 14282 6015b74eea55
parent 13572 a71e6856ffab
child 14700 89dd60565041
equal deleted inserted replaced
14281:e754b516cc35 14282:6015b74eea55
  1843         ViewBottomY,
  1843         ViewBottomY,
  1844         first, count)
  1844         first, count)
  1845 else
  1845 else
  1846     PrepareVbForWater(true,
  1846     PrepareVbForWater(true,
  1847         OffsetY + WorldDy + cWaterLine, ViewTopY,
  1847         OffsetY + WorldDy + cWaterLine, ViewTopY,
  1848         LongInt(LeftX)  + WorldDx - OffsetX, ViewLeftX,
  1848         leftX  + WorldDx - OffsetX, ViewLeftX,
  1849         LongInt(RightX) + WorldDx + OffsetX, ViewRightX,
  1849         rightX + WorldDx + OffsetX, ViewRightX,
  1850         ViewBottomY,
  1850         ViewBottomY,
  1851         first, count);
  1851         first, count);
  1852 
  1852 
  1853 // quit if there's nothing to draw (nothing in view)
  1853 // quit if there's nothing to draw (nothing in view)
  1854 if count < 1 then
  1854 if count < 1 then
  1934 // ( ox and dy are used to create different horizontal and vertical offsets
  1934 // ( ox and dy are used to create different horizontal and vertical offsets
  1935 //   between wave layers )
  1935 //   between wave layers )
  1936 dY:= -cWaveHeight + dy;
  1936 dY:= -cWaveHeight + dy;
  1937 ox:= -cWaveHeight + ox;
  1937 ox:= -cWaveHeight + ox;
  1938 
  1938 
  1939 lx:= LongInt(LeftX)  + WorldDx - ox;
  1939 lx:= leftX  + WorldDx - ox;
  1940 rx:= LongInt(RightX) + WorldDx + ox;
  1940 rx:= rightX + WorldDx + ox;
  1941 
  1941 
  1942 topy:= cWaterLine + WorldDy + dY;
  1942 topy:= cWaterLine + WorldDy + dY;
  1943 
  1943 
  1944 
  1944 
  1945 if (WorldEdge <> weSea) then
  1945 if (WorldEdge <> weSea) then