hedgewars/uGearsRender.pas
changeset 9809 1e32628eb167
parent 9768 08799c901a42
child 9950 2759212a27de
child 9998 736015b847e3
equal deleted inserted replaced
9808:37891ba5e10b 9809:1e32628eb167
   676                 amRubber,
   676                 amRubber,
   677                 amGirder: begin
   677                 amGirder: begin
   678                     DrawSpriteRotated(sprHandConstruction, hx, hy, sign, aangle);
   678                     DrawSpriteRotated(sprHandConstruction, hx, hy, sign, aangle);
   679                     if WorldEdge = weWrap then
   679                     if WorldEdge = weWrap then
   680                         begin
   680                         begin
   681                         if hwRound(Gear^.X) < leftX+256 then
   681                         if hwRound(Gear^.X) < LongInt(leftX) + 256 then
   682                             DrawSpriteClipped(sprGirder,
   682                             DrawSpriteClipped(sprGirder,
   683                                             rightX+(ox-leftX)-256,
   683                                             rightX+(ox-leftX)-256,
   684                                             oy-256,
   684                                             oy-256,
   685                                             LongInt(topY)+WorldDy,
   685                                             LongInt(topY)+WorldDy,
   686                                             LongInt(rightX)+WorldDx,
   686                                             LongInt(rightX)+WorldDx,