equal
deleted
inserted
replaced
59 PrevAngle(Gear, dA) |
59 PrevAngle(Gear, dA) |
60 else |
60 else |
61 begin |
61 begin |
62 Gear^.Tag := 0; |
62 Gear^.Tag := 0; |
63 Gear^.Y := Gear^.Y + int2hwFloat(yy); |
63 Gear^.Y := Gear^.Y + int2hwFloat(yy); |
64 if not TestCollisionXwithGear(Gear, xxn) then |
64 if TestCollisionXwithGear(Gear, xxn) = 0 then |
65 begin |
65 begin |
66 Gear^.X := Gear^.X + int2hwFloat(xxn); |
66 Gear^.X := Gear^.X + int2hwFloat(xxn); |
67 NextAngle(Gear, dA) |
67 NextAngle(Gear, dA) |
68 end; |
68 end; |
69 end; |
69 end; |
70 |
70 |
71 if (yy = 0) then |
71 if (yy = 0) then |
72 if TestCollisionXwithGear(Gear, xx) then |
72 if TestCollisionXwithGear(Gear, xx) <> 0 then |
73 PrevAngle(Gear, dA) |
73 PrevAngle(Gear, dA) |
74 else |
74 else |
75 begin |
75 begin |
76 Gear^.Tag := 0; |
76 Gear^.Tag := 0; |
77 Gear^.X := Gear^.X + int2hwFloat(xx); |
77 Gear^.X := Gear^.X + int2hwFloat(xx); |