equal
deleted
inserted
replaced
625 if Gear^.FrameTicks <= Steps then |
625 if Gear^.FrameTicks <= Steps then |
626 DeleteVisualGear(Gear) |
626 DeleteVisualGear(Gear) |
627 else |
627 else |
628 dec(Gear^.FrameTicks, Steps); |
628 dec(Gear^.FrameTicks, Steps); |
629 end; |
629 end; |
|
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; |