equal
deleted
inserted
replaced
55 // returns: negative sign if going downhill to left, value is steepness (noslope/error = _0, 45° = _0_5) |
55 // returns: negative sign if going downhill to left, value is steepness (noslope/error = _0, 45° = _0_5) |
56 function CalcSlopeBelowGear(Gear: PGear): hwFloat; |
56 function CalcSlopeBelowGear(Gear: PGear): hwFloat; |
57 function CalcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var outDeltaX, outDeltaY: LongInt; TestWord: LongWord): Boolean; |
57 function CalcSlopeTangent(Gear: PGear; collisionX, collisionY: LongInt; var outDeltaX, outDeltaY: LongInt; TestWord: LongWord): Boolean; |
58 |
58 |
59 implementation |
59 implementation |
60 uses uConsts, uLandGraphics, uVariables, uDebug, uGears; |
60 uses uConsts, uLandGraphics, uVariables, uDebug, uGears, uGearsList; |
61 |
61 |
62 type TCollisionEntry = record |
62 type TCollisionEntry = record |
63 X, Y, Radius: LongInt; |
63 X, Y, Radius: LongInt; |
64 cGear: PGear; |
64 cGear: PGear; |
65 end; |
65 end; |