equal
deleted
inserted
replaced
1225 |
1225 |
1226 b := false; |
1226 b := false; |
1227 |
1227 |
1228 if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then |
1228 if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then |
1229 begin |
1229 begin |
1230 Gear^.dX := SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX); |
1230 Gear^.dX := SignAs(AngleSin(HHGear^.Angle) * _0_5, Gear^.dX); |
1231 Gear^.dY := AngleCos(HHGear^.Angle) * ( - _0_5); |
1231 Gear^.dY := AngleCos(HHGear^.Angle) * ( - _0_5); |
1232 BTPrevAngle := HHGear^.Angle; |
1232 BTPrevAngle := HHGear^.Angle; |
1233 b := true |
1233 b := true |
1234 end; |
1234 end; |
1235 |
1235 |