equal
deleted
inserted
replaced
50 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: LongInt; Dir: LongInt): boolean; |
50 function TestCollisionYwithXYShift(Gear: PGear; ShiftX, ShiftY: LongInt; Dir: LongInt): boolean; |
51 |
51 |
52 function calcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var outDeltaX, outDeltaY: LongInt; TestWord: LongWord): Boolean; |
52 function calcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var outDeltaX, outDeltaY: LongInt; TestWord: LongWord): Boolean; |
53 |
53 |
54 implementation |
54 implementation |
55 uses uConsts, uLandGraphics, uVariables, uIO; |
55 uses uConsts, uLandGraphics, uVariables, uDebug; |
56 |
56 |
57 type TCollisionEntry = record |
57 type TCollisionEntry = record |
58 X, Y, Radius: LongInt; |
58 X, Y, Radius: LongInt; |
59 cGear: PGear; |
59 cGear: PGear; |
60 end; |
60 end; |