equal
deleted
inserted
replaced
440 |
440 |
441 b:= false; |
441 b:= false; |
442 |
442 |
443 if (HHGear^.Angle <> BTPrevAngle) then |
443 if (HHGear^.Angle <> BTPrevAngle) then |
444 begin |
444 begin |
445 Gear^.dX:= hwSign(HHGear^.dX) * _0_5;//hwSign(HHGear^.dX) * Sin(HHGear^.Angle * pi / cMaxAngle) * _0_5; |
445 Gear^.dX:= hwSign(HHGear^.dX) * AngleSin(HHGear^.Angle) * _0_5; |
446 Gear^.dY:= 0;//Cos(HHGear^.Angle * pi / cMaxAngle) * (-0.5); |
446 Gear^.dY:= AngleCos(HHGear^.Angle) * ( - _0_5); |
447 BTPrevAngle:= HHGear^.Angle; |
447 BTPrevAngle:= HHGear^.Angle; |
448 b:= true |
448 b:= true |
449 end; |
449 end; |
450 |
450 |
451 if Gear^.Timer mod cHHStepTicks = 0 then |
451 if Gear^.Timer mod cHHStepTicks = 0 then |