equal
deleted
inserted
replaced
644 TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true); |
644 TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true); |
645 Gear^.Elasticity:= Gear^.Elasticity - len; |
645 Gear^.Elasticity:= Gear^.Elasticity - len; |
646 Gear^.Friction:= Gear^.Friction - len; |
646 Gear^.Friction:= Gear^.Friction - len; |
647 break |
647 break |
648 end; |
648 end; |
649 len:= len - _2 |
649 len:= len - _1 |
650 end; |
650 end; |
651 end else |
651 end else |
652 if RopePoints.Count > 0 then // check whether the last dividing point could be removed |
652 if RopePoints.Count > 0 then // check whether the last dividing point could be removed |
653 begin |
653 begin |
654 tx:= RopePoints.ar[Pred(RopePoints.Count)].X; |
654 tx:= RopePoints.ar[Pred(RopePoints.Count)].X; |