hedgewars/uGearsRender.pas
changeset 14954 37ae92c11a36
parent 14949 8b53cb1c0ada
child 14960 088c1d319612
equal deleted inserted replaced
14953:f27f00fabc0d 14954:37ae92c11a36
   161             end;
   161             end;
   162         if b then
   162         if b then
   163             begin
   163             begin
   164             inc(roplen);
   164             inc(roplen);
   165             if (roplen mod cRopeNodeStep) = 0 then
   165             if (roplen mod cRopeNodeStep) = 0 then
   166                 DrawSpriteRotatedF(sprRopeNode, x, y, roplen mod cRopeNodeStep, 1, angle);
   166                 DrawSpriteRotatedF(sprRopeNode, x, y, roplen div cRopeNodeStep, 1, angle);
   167             end
   167             end
   168     end;
   168     end;
   169     DrawRopeLine:= roplen;
   169     DrawRopeLine:= roplen;
   170 end;
   170 end;
   171 
   171