with Ada.Text_IO;
with Progress_Indicators.Bars;
with Progress_Indicators.Spinners;
procedure Test is
use Progress_Indicators.Spinners;
use Progress_Indicators.Bars;
S : Spinner := Make;
Bar_Widths : constant array (Natural range <>) of Natural := (100, 50, 10, 5, 0);
begin
for Width of Bar_Widths loop
for I in Percentage'(0) .. 100 loop
delay 0.02;
Ada.Text_IO.Put (Get_Bar (I, Width));
end loop;
Ada.Text_IO.New_Line;
end loop;
for I in 1 .. 100 loop
delay 0.02;
Tick (S);
Ada.Text_IO.Put (Value (S));
end loop;
end Test;