hedgewars/GSHandlers.inc
changeset 2365 12b5373f4058
parent 2358 d4a9c309eb14
child 2367 86c9aadea817
--- a/hedgewars/GSHandlers.inc	Thu Sep 10 03:03:04 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Sep 10 04:36:26 2009 +0000
@@ -850,7 +850,7 @@
 	ny:= ropeDy * len;
 	
 	len:= Gear^.Elasticity - _0_3x70;
-	while len > _0_3 do
+	while len > _3 do
 			begin
 			lx:= hwRound(Gear^.X + mdX * len);
 			ly:= hwRound(Gear^.Y + mdY * len);
@@ -864,6 +864,12 @@
 					b:= (nx * HHGear^.dY) > (ny * HHGear^.dX);
 					dLen:= len
 					end;
+				with RopePoints.rounded[RopePoints.Count] do
+					begin
+					X:= hwRound(Gear^.X);
+					Y:= hwRound(Gear^.Y);
+					end;
+				
 				Gear^.X:= Gear^.X + nx * len;
 				Gear^.Y:= Gear^.Y + ny * len;
 				inc(RopePoints.Count);