%!PS-Adobe-2.0 
%
% basic macros --------------------------------------------------------
/BD {bind def} bind def 
/cm   {2.54 div 72 mul} BD
/SL   {setlinewidth} BD
/SRGB {setrgbcolor} BD 
/M    {moveto} BD
/RM   {rmoveto} BD
/L    {lineto} BD
/RL   {rlineto} BD                  
/GS   {gsave } BD
/GR   {grestore} BD
/CPT  {currentpoint T} BD
%
% auxiliary font macros -----------------------------------------------
/E    {exch} BD
/FFSFSF {E findfont E scalefont setfont} BD 
/FTB {/Times-Bold 62 FFSFSF} BD
%
% additional macros ---------------------------------------------------
/TC   {true charpath} BD
/F    {fill} BD
/S    {stroke} BD
/D    {def} BD
/T    {translate} BD
/Sk   {scale} BD
/CP   {closepath} BD
/Ori {0 0 M} BD 
/OrR {Ori rotate} BD 
%
% lut macros ----------------------------------------------------------
/lut2 { [1 0.5 0   1 0.6 0    1 0.75 0   1 0.8 0   1 1 0    0.8 0.9 0
       0.7 0.9 0 0.6 0.9 0    0.5 1 0    0.25 1 0  0 1 0    0 1 0.5
       0 1 1       0 0.7 1    0 0.5 1    0 0.2 1   0 0 1    0.2 0 1
       0.5 0 1     0.7 0 1    1 0 1      1 0 0.5   1 0 0    0 0 0   ] } D
/P2 { 3 mul lut2 exch 3 getinterval aload pop SRGB } BD

%
% peculiar macros -----------------------------------------------------
% service macro Line or Move
/LorM {sta inx ne {L} {M} ifelse } BD

% spiral ribbon
%  theta1 theta2 Spir
%  part of spiral ribbon
%  dy is the height of the ribbon
%  rad is the radius
% 0.007 and 2.5 control the total height
% rainbow star on top
/Spir {/fin E D /sta E D
       newpath Ref M   1 1 1 SRGB  /rad 0.5 cm def
       22 -1 0 { /jnx E D jnx P2  /dy 0.01 jnx mul cm D
       GS CPT 2.5 1 scale 0 0 M 0 rad RM
       sta 1 fin {/inx E D /rrad rad 1 inx 540 div add mul D
                  rrad inx sin mul
                  rrad inx cos mul 0.007 cm inx mul sub dy inx 1440 div 1 add mul sub
                  LorM } for
       fin -1 sta {/inx E D /rrad rad 1 inx 540 div add mul D
                   rrad inx sin mul
                   rrad inx cos mul 0.007 cm inx mul sub dy inx 1440 div 1 add mul add
                   LorM } for
       fill GR  } for } BD

% body -------------------------------------------------------------------------------------

 3.5 cm 5 cm T
 /Ref {7 cm 22 cm} BD
 0 990 Spir

 /Ref {7 cm 12 cm} BD
 0 90 Spir
 270 450 Spir
 630 810 Spir
 990 1170 Spir

 90 270 Spir
 450 630 Spir
 810 990 Spir
 1170 1340 Spir

   showpage