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