hedgewars/uGearsRender.pas
changeset 9505 56e0cca99e20
parent 9285 8e8b908970c2
child 9521 8054d9d775fd
child 9655 e154ccca4dad
equal deleted inserted replaced
9503:8f9b04138456 9505:56e0cca99e20
   669                     DrawSpriteRotated(sprHandPlane, hx, hy, sign, 0);
   669                     DrawSpriteRotated(sprHandPlane, hx, hy, sign, 0);
   670                     defaultPos:= false
   670                     defaultPos:= false
   671                     end;
   671                     end;
   672                 amGirder: begin
   672                 amGirder: begin
   673                     DrawSpriteRotated(sprHandConstruction, hx, hy, sign, aangle);
   673                     DrawSpriteRotated(sprHandConstruction, hx, hy, sign, aangle);
       
   674                     if WorldEdge = weWrap then
       
   675                         begin
       
   676                         if hwRound(Gear^.X) < leftX+256 then
       
   677                             DrawSpriteClipped(sprGirder,
       
   678                                             rightX+(ox-leftX)-256,
       
   679                                             oy-256,
       
   680                                             LongInt(topY)+WorldDy,
       
   681                                             LongInt(rightX)+WorldDx,
       
   682                                             cWaterLine+WorldDy,
       
   683                                             LongInt(leftX)+WorldDx);
       
   684                         if hwRound(Gear^.X) > rightX-256 then
       
   685                             DrawSpriteClipped(sprGirder,
       
   686                                             leftX-(rightX-ox)-256,
       
   687                                             oy-256,
       
   688                                             LongInt(topY)+WorldDy,
       
   689                                             LongInt(rightX)+WorldDx,
       
   690                                             cWaterLine+WorldDy,
       
   691                                             LongInt(leftX)+WorldDx)
       
   692                         end;
   674                     DrawSpriteClipped(sprGirder,
   693                     DrawSpriteClipped(sprGirder,
   675                                     ox-256,
   694                                     ox-256,
   676                                     oy-256,
   695                                     oy-256,
   677                                     LongInt(topY)+WorldDy,
   696                                     LongInt(topY)+WorldDy,
   678                                     LongInt(rightX)+WorldDx,
   697                                     LongInt(rightX)+WorldDx,