equal
deleted
inserted
replaced
707 begin |
707 begin |
708 // get distance to water of last tick |
708 // get distance to water of last tick |
709 if isDirH then |
709 if isDirH then |
710 begin |
710 begin |
711 tmp:= hwRound(Gear^.X - Gear^.dX); |
711 tmp:= hwRound(Gear^.X - Gear^.dX); |
712 if abs(tmp - leftX) < abs(tmp - rightX) then // left edge |
712 if abs(tmp - real(leftX)) < abs(tmp - real(rightX)) then // left edge |
713 isImpact:= (abs(tmp-leftX) >= Gear^.Radius) and (Gear^.dX.isNegative) |
713 isImpact:= (abs(tmp-real(leftX)) >= Gear^.Radius) and (Gear^.dX.isNegative) |
714 else |
714 else |
715 isImpact:= (abs(tmp-rightX) >= Gear^.Radius) and (not Gear^.dX.isNegative); |
715 isImpact:= (abs(tmp-real(rightX)) >= Gear^.Radius) and (not Gear^.dX.isNegative); |
716 end |
716 end |
717 else |
717 else |
718 begin |
718 begin |
719 tmp:= hwRound(Gear^.Y - Gear^.dY); |
719 tmp:= hwRound(Gear^.Y - Gear^.dY); |
720 tmp:= abs(cWaterLine - tmp); |
720 tmp:= abs(cWaterLine - tmp); |