14  * You should have received a copy of the GNU General Public License

    14  * You should have received a copy of the GNU General Public License

    15  * along with this program; if not, write to the Free Software

    15  * along with this program; if not, write to the Free Software

    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;

    21 unit uVisualGears;

    20 interface

    22 interface

    21 uses SDLh, uConsts,

    23 uses SDLh, uConsts,

    22 {$IFDEF GLES11}

    24 {$IFDEF GLES11}

    23 	gles11,

    25 	gles11,

    24 {$ELSE}

    26 {$ELSE}

    25 	GL,

    27 	GL,

    26 {$ENDIF}

    28 {$ENDIF}

    27 	uFloat;

    29 	uFloat;

    29 

    30 

    30 type PVisualGear = ^TVisualGear;

    31 type PVisualGear = ^TVisualGear;

    31 	TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);

    32 	TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);

    32 	TVisualGear = record

    33 	TVisualGear = record

    33 		NextGear, PrevGear: PVisualGear;

    34 		NextGear, PrevGear: PVisualGear;