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 uConsts, uFloat, Math, GLunit; |
23 uses uConsts, uFloat, Math, GLunit, uTypes; |
24 |
24 |
25 type PVisualGear = ^TVisualGear; |
25 type PVisualGear = ^TVisualGear; |
26 TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword); |
26 TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword); |
27 TVisualGear = record |
27 TVisualGear = record |
28 NextGear, PrevGear: PVisualGear; |
28 NextGear, PrevGear: PVisualGear; |