26 type PGear = ^TGear;

    26 type PGear = ^TGear;

    27      TGearStepProcedure = procedure (Gear: PGear);

    27      TGearStepProcedure = procedure (Gear: PGear);

    28      TGear = record

    28      TGear = record

    29              NextGear, PrevGear: PGear;

    29              NextGear, PrevGear: PGear;

    30              Active: Boolean;

    30              Active: Boolean;

    31              State : Longword;

    32              State : Longword;

    32              X : hwFloat;

    33              X : hwFloat;

    33              Y : hwFloat;

    34              Y : hwFloat;

    34              dX: hwFloat;

    35              dX: hwFloat;

    35              dY: hwFloat;

    36              dY: hwFloat;