hedgewars/uGearsRender.pas
changeset 14291 7a7c090f96f6
parent 14287 6015b74eea55
child 14346 d5317635f368
equal deleted inserted replaced
14290:a7810074c20d 14291:7a7c090f96f6
   818                             begin
   818                             begin
   819                             if hwRound(Gear^.X) < leftX + 256 then
   819                             if hwRound(Gear^.X) < leftX + 256 then
   820                                 DrawSpriteClipped(sprGirder,
   820                                 DrawSpriteClipped(sprGirder,
   821                                                 rightX+(ox-leftX)-256,
   821                                                 rightX+(ox-leftX)-256,
   822                                                 oy-256,
   822                                                 oy-256,
   823                                                 LongInt(topY)+WorldDy,
   823                                                 topY+WorldDy,
   824                                                 rightX+WorldDx,
   824                                                 rightX+WorldDx,
   825                                                 cWaterLine+WorldDy,
   825                                                 cWaterLine+WorldDy,
   826                                                 leftX+WorldDx);
   826                                                 leftX+WorldDx);
   827                             if hwRound(Gear^.X) > rightX - 256 then
   827                             if hwRound(Gear^.X) > rightX - 256 then
   828                                 DrawSpriteClipped(sprGirder,
   828                                 DrawSpriteClipped(sprGirder,
   829                                                 leftX-(rightX-ox)-256,
   829                                                 leftX-(rightX-ox)-256,
   830                                                 oy-256,
   830                                                 oy-256,
   831                                                 LongInt(topY)+WorldDy,
   831                                                 topY+WorldDy,
   832                                                 rightX+WorldDx,
   832                                                 rightX+WorldDx,
   833                                                 cWaterLine+WorldDy,
   833                                                 cWaterLine+WorldDy,
   834                                                 leftX+WorldDx)
   834                                                 leftX+WorldDx)
   835                             end;
   835                             end;
   836                         DrawSpriteClipped(sprGirder,
   836                         DrawSpriteClipped(sprGirder,
   837                                         ox-256,
   837                                         ox-256,
   838                                         oy-256,
   838                                         oy-256,
   839                                         LongInt(topY)+WorldDy,
   839                                         topY+WorldDy,
   840                                         rightX+WorldDx,
   840                                         rightX+WorldDx,
   841                                         cWaterLine+WorldDy,
   841                                         cWaterLine+WorldDy,
   842                                         leftX+WorldDx)
   842                                         leftX+WorldDx)
   843                         end
   843                         end
   844                     else if cBuildMaxDist > 0 then
   844                     else if cBuildMaxDist > 0 then