%!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 -----------------------------------------------------
% <colour> SRGB x y size star
% where size is implicitly in cm
% while the units of xy must be explicitated
/star { cm /size E D /dbx size 2 div neg D /dby dbx 18 sin 18 cos div mul neg D
        M GS CPT ang rotate dbx dby M size 0 RL  
        0 1 3 {pop 144 neg rotate size 0 RL} for
        CP F GR  } BD

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

  3.5 cm 5 cm T
  /ang 0 def
  /mulfac 10 D
  0 1 23 { /inx E D inx P2 7 cm 10 cm M  GS CPT 0 0  46 inx 2 mul sub 10 div  inx mulfac mul rotate  star GR } for
  /mulfac 25 D
  0 1 23 { /inx E D inx P2 7 cm 15 cm M  GS CPT 0 0  46 inx 2 mul sub 10 div  inx mulfac mul rotate  star GR } for
  /mulfac 24 D
  0 1 23 { /inx E D inx P2 12 cm 15 cm M  GS CPT 0 0  46 inx 2 mul sub 10 div  inx mulfac mul rotate  star GR } for
  /mulfac 26 D
  0 1 23 { /inx E D inx P2  2 cm 15 cm M  GS CPT 0 0  46 inx 2 mul sub 10 div  inx mulfac mul rotate  star GR } for
  /mulfac 50 D
  0 1 23 { /inx E D inx P2 7 cm 20 cm M  GS CPT 0 0  46 inx 2 mul sub 10 div  inx mulfac mul rotate  star GR } for
  /mulfac 5  D
  0 1 23 { /inx E D inx P2 7 cm  5 cm M  GS CPT 0 0  46 inx 2 mul sub 10 div  inx mulfac mul rotate  star GR } for
  /mulfac 1  D
  0 1 23 { /inx E D inx P2 7 cm  0 cm M  GS CPT 0 0  46 inx 2 mul sub 10 div  inx mulfac mul rotate  star GR } for
   showpage