equal
deleted
inserted
replaced
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 (* |