1130 

  1130 

  1131         ApplyAngleBounds(Gear^.Hedgehog^, amRope);

  1131         ApplyAngleBounds(Gear^.Hedgehog^, amRope);

  1132 

  1132 

  1133         Gear^.dX := SignAs(AngleSin(HHGear^.Angle), HHGear^.dX);

  1133         Gear^.dX := SignAs(AngleSin(HHGear^.Angle), HHGear^.dX);

  1134         Gear^.dY := -AngleCos(HHGear^.Angle);

  1134         Gear^.dY := -AngleCos(HHGear^.Angle);

  1136         Gear^.Elasticity := _0;

  1136         Gear^.Elasticity := _0;

  1137         Gear^.State := Gear^.State and not gsttmpflag;

  1137         Gear^.State := Gear^.State and not gsttmpflag;

  1138         Gear^.doStep := @doStepRope;

  1138         Gear^.doStep := @doStepRope;

  1139     end

  1139     end

  1140 end;

  1140 end;