1/set c1=@{Cbgrgb500} @{}
2/set c2=@{Cbgrgb400} @{}
3/set c3=@{Cbgrgb300} @{}
4/set c4=@{Cbgrgb200} @{}
5/set c5=@{Cbgrgb100} @{}
6/set c6=@{Cbgrgb000} @{}
7/eval /set cylon0=@{Cbgblack}%{c5}%{c4}%{c3}%{c2}%{c1}%{c6}       @{n}
8/eval /set cylon1=@{Cbgblack} %{c5}%{c4}%{c3}%{c2}%{c1}%{c6}      @{n}
9/eval /set cylon2=@{Cbgblack}  %{c5}%{c4}%{c3}%{c2}%{c1}%{c6}     @{n}
10/eval /set cylon3=@{Cbgblack}   %{c5}%{c4}%{c3}%{c2}%{c1}%{c6}    @{n}
11/eval /set cylon4=@{Cbgblack}    %{c5}%{c4}%{c3}%{c2}%{c1}%{c6}   @{n}
12/eval /set cylon5=@{Cbgblack}     %{c5}%{c4}%{c3}%{c2}%{c1}%{c6}  @{n}
13/eval /set cylon6=@{Cbgblack}      %{c5}%{c4}%{c3}%{c2}%{c1}%{c6} @{n}
14/eval /set cylon7=@{Cbgblack}       %{c5}%{c4}%{c3}%{c2}%{c1}%{c6}@{n}
15/eval /set cylon8=@{Cbgblack}        %{c5}%{c4}%{c1}%{c2}%{c6}@{n}
16/eval /set cylon9=@{Cbgblack}         %{c1}%{c2}%{c3}%{c6}@{n}
17/eval /set cylon10=@{Cbgblack}        %{c1}%{c2}%{c3}%{c4}%{c6}@{n}
18/eval /set cylon11=@{Cbgblack}       %{c1}%{c2}%{c3}%{c4}%{c5}%{c6}@{n}
19/eval /set cylon12=@{Cbgblack}      %{c1}%{c2}%{c3}%{c4}%{c5}%{c6} @{n}
20/eval /set cylon13=@{Cbgblack}     %{c1}%{c2}%{c3}%{c4}%{c5}%{c6}  @{n}
21/eval /set cylon14=@{Cbgblack}    %{c1}%{c2}%{c3}%{c4}%{c5}%{c6}   @{n}
22/eval /set cylon15=@{Cbgblack}   %{c1}%{c2}%{c3}%{c4}%{c5}%{c6}    @{n}
23/eval /set cylon16=@{Cbgblack}  %{c1}%{c2}%{c3}%{c4}%{c5}%{c6}     @{n}
24/eval /set cylon17=@{Cbgblack} %{c1}%{c2}%{c3}%{c4}%{c5}%{c6}      @{n}
25/eval /set cylon18=@{Cbgblack}%{c1}%{c2}%{c3}%{c4}%{c5}%{c6}       @{n}
26/eval /set cylon19=@{Cbgblack}%{c2}%{c1}%{c4}%{c5}%{c6}        @{n}
27/eval /set cylon20=@{Cbgblack}%{c3}%{c2}%{c1}%{c6}         @{n}
28/eval /set cylon21=@{Cbgblack}%{c4}%{c3}%{c2}%{c1}%{c6}        @{n}
29
30/for i 0 21 /test cylon%i := decode_attr(cylon%i)
31/for i 1 6 /unset c%i
32
33/def cylon = \
34    /if (cylon_pid > 0) /kill %cylon_pid%; /endif%; \
35    /if ({*} =~ "off") \
36	/status_rm cylon%; \
37    /else \
38	/set cylon_i=0%; \
39	/set cylon=%; \
40	/repeat -0.08 i \
41	    /test cylon := cylon%%cylon_i%%; \
42	    /test cylon_i := mod(cylon_i + 1, 22)%; \
43	/eval /set cylon_pid=%%?%; \
44	/status_add %{*--A@world} cylon:12%; \
45    /endif
46