equal
deleted
inserted
replaced
1374 InLeftX := OutLeftX; |
1374 InLeftX := OutLeftX; |
1375 InRightX:= OutRightX; |
1375 InRightX:= OutRightX; |
1376 end |
1376 end |
1377 else |
1377 else |
1378 begin |
1378 begin |
1379 if InLeftX > OutLeftX then |
1379 if InLeftX > ViewLeftX then |
1380 begin |
1380 begin |
1381 VertexBuffer[0].X:= OutLeftX - lol; |
1381 VertexBuffer[0].X:= OutLeftX - lol; |
1382 VertexBuffer[0].Y:= OutTopY; |
1382 VertexBuffer[0].Y:= OutTopY; |
1383 VertexBuffer[1].X:= InLeftX - lol; |
1383 VertexBuffer[1].X:= InLeftX - lol; |
1384 VertexBuffer[1].Y:= OutTopY; |
1384 VertexBuffer[1].Y:= OutTopY; |
1385 // shares vertices 2 and 3 with bottom water |
1385 // shares vertices 2 and 3 with bottom water |
1386 firsti:= 0; |
1386 firsti:= 0; |
1387 afteri:= 4; |
1387 afteri:= 4; |
1388 end; |
1388 end; |
1389 |
1389 |
1390 if InRightX < OutRightX then |
1390 if InRightX < ViewRightX then |
1391 begin |
1391 begin |
1392 VertexBuffer[6].X:= OutRightX + lol; |
1392 VertexBuffer[6].X:= OutRightX + lol; |
1393 VertexBuffer[6].Y:= OutTopY; |
1393 VertexBuffer[6].Y:= OutTopY; |
1394 VertexBuffer[7].X:= InRightX + lol; |
1394 VertexBuffer[7].X:= InRightX + lol; |
1395 VertexBuffer[7].Y:= OutTopY; |
1395 VertexBuffer[7].Y:= OutTopY; |
1398 firsti:= 4; |
1398 firsti:= 4; |
1399 afteri:= 8; |
1399 afteri:= 8; |
1400 end; |
1400 end; |
1401 end; |
1401 end; |
1402 |
1402 |
1403 if InTopY < BottomY then |
1403 if InTopY < ViewBottomY then |
1404 begin |
1404 begin |
1405 // shares vertices 2-5 with water walls |
1405 // shares vertices 2-5 with water walls |
1406 |
1406 |
1407 // starts at vertex 2 |
1407 // starts at vertex 2 |
1408 if (firsti < 0) or (firsti > 2) then |
1408 if (firsti < 0) or (firsti > 2) then |