changeset 2587 | 0dfa56a8513c |
parent 2428 | 6800f8aa0184 |
child 2599 | c7153d2348f3 |
--- a/hedgewars/uVisualGears.pas Sun Oct 25 15:55:49 2009 +0000 +++ b/hedgewars/uVisualGears.pas Sun Oct 25 16:35:09 2009 +0000 @@ -16,6 +16,8 @@ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA *) +{$INCLUDE options.inc} + unit uVisualGears; interface uses SDLh, uConsts, @@ -25,7 +27,6 @@ GL, {$ENDIF} uFloat; -{$INCLUDE options.inc} type PVisualGear = ^TVisualGear; TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);