equal
deleted
inserted
replaced
58 function CalcSlopeBelowGear(Gear: PGear): hwFloat; |
58 function CalcSlopeBelowGear(Gear: PGear): hwFloat; |
59 function CalcSlopeNearGear(Gear: PGear; dirX, dirY: LongInt): hwFloat; |
59 function CalcSlopeNearGear(Gear: PGear; dirX, dirY: LongInt): hwFloat; |
60 function CalcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var outDeltaX, outDeltaY: LongInt; TestWord: LongWord): boolean; |
60 function CalcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var outDeltaX, outDeltaY: LongInt; TestWord: LongWord): boolean; |
61 |
61 |
62 implementation |
62 implementation |
63 uses uConsts, uLandGraphics, uVariables, uDebug, uGearsList; |
63 uses uConsts, uLandGraphics, uVariables, uDebug; |
64 |
64 |
65 type TCollisionEntry = record |
65 type TCollisionEntry = record |
66 X, Y, Radius: LongInt; |
66 X, Y, Radius: LongInt; |
67 cGear: PGear; |
67 cGear: PGear; |
68 end; |
68 end; |