equal
deleted
inserted
replaced
1052 Gear:= nil |
1052 Gear:= nil |
1053 end |
1053 end |
1054 end |
1054 end |
1055 end; |
1055 end; |
1056 |
1056 |
1057 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt, exclude: PGear): PGear; |
1057 function CheckGearNearImpl(Kind: TGearType; X, Y: hwFloat; rX, rY: LongInt; exclude: PGear): PGear; |
1058 begin |
1058 begin |
1059 var t: PGear; |
1059 var t: PGear; |
1060 width, dX, dY: hwFloat; |
1060 width, dX, dY: hwFloat; |
1061 bound: LongInt; |
1061 bound: LongInt; |
1062 isHit: Boolean; |
1062 isHit: Boolean; |