equal
deleted
inserted
replaced
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 unit uVisualGears; |
19 unit uVisualGears; |
20 interface |
20 interface |
21 uses SDLh, uConsts, uFloat, GL; |
21 uses SDLh, uConsts, |
|
22 {$IFDEF IPHONE} |
|
23 gles11, |
|
24 {$ELSE} |
|
25 GL, |
|
26 {$ENDIF} |
|
27 uFloat; |
22 {$INCLUDE options.inc} |
28 {$INCLUDE options.inc} |
23 const AllInactive: boolean = false; |
29 const AllInactive: boolean = false; |
24 |
30 |
25 type PVisualGear = ^TVisualGear; |
31 type PVisualGear = ^TVisualGear; |
26 TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword); |
32 TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword); |