--- a/hedgewars/uVisualGears.pas	Wed Nov 17 17:45:55 2010 +0300
+++ b/hedgewars/uVisualGears.pas	Wed Nov 17 20:28:42 2010 +0300
@@ -22,30 +22,6 @@
 interface
 uses uConsts, uFloat, Math, GLunit, uTypes;
 
-type PVisualGear = ^TVisualGear;
-    TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
-    TVisualGear = record
-        NextGear, PrevGear: PVisualGear;
-        Frame,
-        FrameTicks: Longword;
-        X : float;
-        Y : float;
-        dX: float;
-        dY: float;
-        tdX: float;
-        tdY: float;
-        State : Longword;
-        Timer: Longword;
-        Angle, dAngle: real;
-        Kind: TVisualGearType;
-        doStep: TVGearStepProcedure;
-        Tex: PTexture;
-        alpha, scale: GLfloat;
-        Hedgehog: pointer;
-        Text: shortstring;
-        Tint: Longword;
-        end;
-
 procedure initModule;
 procedure freeModule;