equal
deleted
inserted
replaced
199 |
199 |
200 for i:= 0 to Pred(Count) do |
200 for i:= 0 to Pred(Count) do |
201 with cinfos[i] do |
201 with cinfos[i] do |
202 if (Gear <> cGear) and |
202 if (Gear <> cGear) and |
203 (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius)) and |
203 (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius)) and |
204 ((mx > x) xor (Dir > 0)) then |
204 ((mx > x) xor (Dir > 0)) then // FIXME: Check Gear.Kind |
205 begin |
205 begin |
206 Gear^.dX:= Gear^.dX {* _0_6}; |
206 Gear^.dX:= Gear^.dX {* _0_6}; |
207 Gear^.dY:= Gear^.dY {* _0_6}; |
207 Gear^.dY:= Gear^.dY {* _0_6}; |
208 with cinfos[i].cGear^ do |
208 with cinfos[i].cGear^ do |
209 begin |
209 begin |