equal
deleted
inserted
replaced
294 Gear^.X:= tX; |
294 Gear^.X:= tX; |
295 Gear^.dX.isNegative:= (gX > LongInt(leftX) + Gear^.Radius*2) |
295 Gear^.dX.isNegative:= (gX > LongInt(leftX) + Gear^.Radius*2) |
296 end; |
296 end; |
297 |
297 |
298 // clip velocity at 2 - over 1 per pixel, but really shouldn't cause many actual problems. |
298 // clip velocity at 2 - over 1 per pixel, but really shouldn't cause many actual problems. |
299 if Gear^.dX.Round > 2 then |
299 if Gear^.dX.Round > 1 then |
300 Gear^.dX.QWordValue:= 8589934592; |
300 Gear^.dX.QWordValue:= 8589934592; |
301 if Gear^.dY.Round > 2 then |
301 if Gear^.dY.Round > 1 then |
302 Gear^.dY.QWordValue:= 8589934592; |
302 Gear^.dY.QWordValue:= 8589934592; |
303 |
303 |
304 if (Gear^.State and gstSubmersible <> 0) and (gY > cWaterLine) then |
304 if (Gear^.State and gstSubmersible <> 0) and (gY > cWaterLine) then |
305 begin |
305 begin |
306 Gear^.dX:= Gear^.dX * _0_999; |
306 Gear^.dX:= Gear^.dX * _0_999; |