equal
deleted
inserted
replaced
904 else |
904 else |
905 begin |
905 begin |
906 // age |
906 // age |
907 dec(Gear^.FrameTicks, Steps); |
907 dec(Gear^.FrameTicks, Steps); |
908 // toggle between orange and red every few ticks |
908 // toggle between orange and red every few ticks |
909 if (Gear^.FrameTicks div 300) mod 2 = 0 then |
909 if (Gear^.FrameTicks div 256) mod 2 = 0 then |
910 Gear^.Tint:= $FF400000 |
910 Gear^.Tint:= $FF400000 |
911 else |
911 else |
912 Gear^.Tint:= $FF000000; |
912 Gear^.Tint:= $FF000000; |
913 // fade out alpha |
913 // fade out alpha |
914 Gear^.Tint:= Gear^.Tint or ((Gear^.FrameTicks * $FF) div 3000); |
914 Gear^.Tint:= (Gear^.Tint and not $FF) or (255 * Gear^.FrameTicks div 3000); |
915 // get bigger as we fade out |
|
916 // Gear^.Scale:= 1.1 - 0.001 * (Gear^.FrameTicks div 30); |
|
917 end |
915 end |
918 end; |
916 end; |
919 |
917 |
920 const handlers: array[TVisualGearType] of TVGearStepProcedure = |
918 const handlers: array[TVisualGearType] of TVGearStepProcedure = |
921 ( |
919 ( |