hedgewars/uGearsUtils.pas
changeset 9522 a386e1cdc468
parent 9489 0818d14e90be
child 9557 a5005b7ca305
equal deleted inserted replaced
9519:b8b5c82eb61b 9522:a386e1cdc468
  1252             begin
  1252             begin
  1253             Gear^.State:= Gear^.State or gstSubmersible;
  1253             Gear^.State:= Gear^.State or gstSubmersible;
  1254             Gear^.X:= int2hwFloat(PlayWidth)*int2hwFloat(min(max(0,hwRound(Gear^.Y)),PlayHeight))/PlayHeight;
  1254             Gear^.X:= int2hwFloat(PlayWidth)*int2hwFloat(min(max(0,hwRound(Gear^.Y)),PlayHeight))/PlayHeight;
  1255             Gear^.Y:= int2hwFloat(cWaterLine+cVisibleWater+Gear^.Radius*2);
  1255             Gear^.Y:= int2hwFloat(cWaterLine+cVisibleWater+Gear^.Radius*2);
  1256             tdx:= Gear^.dX;
  1256             tdx:= Gear^.dX;
  1257             Gear^.dX:= Gear^.dY;
  1257             Gear^.dX:= -Gear^.dY;
  1258             Gear^.dY:= tdx;
  1258             Gear^.dY:= tdx;
  1259             Gear^.dY.isNegative:= true
  1259             Gear^.dY.isNegative:= true
  1260             end
  1260             end
  1261         end;
  1261         end;
  1262 (*
  1262 (*