630 

   631 ////////////////////////////////////////////////////////////////////////////////

   632 procedure doStepCircle(Gear: PVisualGear; Steps: Longword);

   633 var tmp: byte;

   634 begin

   635 with Gear^ do

   636     if Frame <> 0 then

   637         begin

   638         inc(FrameTicks, Steps);

   639         if (FrameTicks mod Frame) = 0 then

   640             begin

   641             tmp:= Gear^.Tint and $FF;

   642             if tdY >= 0 then inc(tmp)

   643             else dec(tmp);

   644             if tmp < round(dX) then tdY:= 1;

   645             if tmp > round(dY) then tdY:= -1;

   646             Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or tmp

   647             end

   648         end

   649 end;