47         Text: shortstring

    47         Text: shortstring

    48 		end;

    48 		end;

    49 

    49 

    50 procedure init_uVisualGears;

    50 procedure init_uVisualGears;

    51 procedure free_uVisualGears;

    51 procedure free_uVisualGears;

    52 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;

    53 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;

    53 procedure ProcessVisualGears(Steps: Longword);

    54 procedure ProcessVisualGears(Steps: Longword);

    54 procedure DrawVisualGears(Layer: LongWord);

    55 procedure DrawVisualGears(Layer: LongWord);

    55 procedure DeleteVisualGear(Gear: PVisualGear);

    56 procedure DeleteVisualGear(Gear: PVisualGear);

    56 procedure AddClouds;

    57 procedure AddClouds;

   559 	VisualGearsList:= nil;

   560 	VisualGearsList:= nil;

   560 end;

   561 end;

   561 

   562 

   562 procedure free_uVisualGears;

   563 procedure free_uVisualGears;

   563 begin

   564 begin

   565 end;

   566 end;

   566 

   567 

   567 end.

   568 end.