equal
deleted
inserted
replaced
3085 PrevAngle(Gear, dA) |
3085 PrevAngle(Gear, dA) |
3086 else |
3086 else |
3087 begin |
3087 begin |
3088 Gear^.Tag := 0; |
3088 Gear^.Tag := 0; |
3089 Gear^.X := Gear^.X + int2hwFloat(xx); |
3089 Gear^.X := Gear^.X + int2hwFloat(xx); |
3090 if not TestCollisionY(Gear, yyn) then |
3090 if TestCollisionYwithGear(Gear, yyn) = 0 then |
3091 begin |
3091 begin |
3092 Gear^.Y := Gear^.Y + int2hwFloat(yyn); |
3092 Gear^.Y := Gear^.Y + int2hwFloat(yyn); |
3093 NextAngle(Gear, dA) |
3093 NextAngle(Gear, dA) |
3094 end; |
3094 end; |
3095 end; |
3095 end; |