30              FrameTicks: Longword;

    30              FrameTicks: Longword;

    31              X : hwFloat;

    31              X : hwFloat;

    32              Y : hwFloat;

    32              Y : hwFloat;

    33              dX: hwFloat;

    33              dX: hwFloat;

    34              dY: hwFloat;

    34              dY: hwFloat;

    35              Angle, dAngle: real;

    36              Angle, dAngle: real;

    36              Kind: TVisualGearType;

    37              Kind: TVisualGearType;

    37              doStep: TVGearStepProcedure;

    38              doStep: TVGearStepProcedure;

    38              end;

    39              end;

    39 

    40 

   117                begin

   118                begin

   118                Frame:= random(4);

   119                Frame:= random(4);

   119                dx.isNegative:= random(2) = 0;

   120                dx.isNegative:= random(2) = 0;

   120                dx.QWordValue:= random(214748364);

   121                dx.QWordValue:= random(214748364);

   121                dy.isNegative:= random(2) = 0;

   122                dy.isNegative:= random(2) = 0;

   123                end;

   125                end;

   124      end;

   126      end;

   125 

   127 

   126 if VisualGearsList <> nil then

   128 if VisualGearsList <> nil then

   127    begin

   129    begin