equal
deleted
inserted
replaced
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uVisualGears; |
21 unit uVisualGears; |
22 interface |
22 interface |
23 uses SDLh, uConsts, uFloat, Math, |
23 uses SDLh, uConsts, uFloat, Math, GLunit; |
24 {$IFDEF GLES11} |
|
25 gles11; |
|
26 {$ELSE} |
|
27 GL; |
|
28 {$ENDIF} |
|
29 |
24 |
30 type PVisualGear = ^TVisualGear; |
25 type PVisualGear = ^TVisualGear; |
31 TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword); |
26 TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword); |
32 TVisualGear = record |
27 TVisualGear = record |
33 NextGear, PrevGear: PVisualGear; |
28 NextGear, PrevGear: PVisualGear; |