changeset 7671 | 43f38923bc6e |
parent 7547 | 6e9c5feb88eb |
child 7721 | 2b1ad418ba39 |
7670:9485b88f6a44 | 7671:43f38923bc6e |
---|---|
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uGearsRender; |
21 unit uGearsRender; |
22 |
22 |
23 interface |
23 interface |
24 uses uTypes, uConsts, GLunit, uFloat, SDLh, uRandom; |
24 uses uTypes, uConsts, GLunit, uFloat, SDLh; |
25 |
25 |
26 procedure RenderGear(Gear: PGear; x, y: LongInt); |
26 procedure RenderGear(Gear: PGear; x, y: LongInt); |
27 |
27 |
28 var RopePoints: record |
28 var RopePoints: record |
29 Count: Longword; |
29 Count: Longword; |