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