equal
deleted
inserted
replaced
552 begin |
552 begin |
553 with RopePoints.ar[RopePoints.Count] do |
553 with RopePoints.ar[RopePoints.Count] do |
554 begin |
554 begin |
555 X:= Gear^.X; |
555 X:= Gear^.X; |
556 Y:= Gear^.Y; |
556 Y:= Gear^.Y; |
557 if RopePoints.Count = 0 then RopePoints.HookAngle:= 0;//DxDy2Angle32(Gear^.dY, Gear^.dX); |
557 if RopePoints.Count = 0 then RopePoints.HookAngle:= DxDy2Angle32(Gear^.dY, Gear^.dX); |
558 b:= (cc * HHGear^.dY) > (cs * HHGear^.dX); |
558 b:= (cc * HHGear^.dY) > (cs * HHGear^.dX); |
559 dLen:= len |
559 dLen:= len |
560 end; |
560 end; |
561 Gear^.X:= Gear^.X + tx; |
561 Gear^.X:= Gear^.X + tx; |
562 Gear^.Y:= Gear^.Y + ty; |
562 Gear^.Y:= Gear^.Y + ty; |