%!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 

%
% peculiar macros -----------------------------------------------------
% <colour> SRGB x y size nsides star
/star {/nsides E D 
       nsides 2 sub nsides div 180 mul /alpha    E D
       180 alpha sub 2 div             /beta     E D
       beta 2 div                      /halfbeta E D
       180 beta sub                    /compbeta E D
       cm /size E D /dbx size 2 div neg D /dby dbx halfbeta sin halfbeta cos div mul neg D
       M GS CPT ang rotate dbx dby M size 0 RL  
       0 1 nsides 2 sub {pop compbeta neg rotate size 0 RL } for
       CP F GR  } BD

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

  3.5 cm 5 cm T
  /ang 0 def
  1 0 0 SRGB  7 cm 20 cm  4 5 star
  0 1 0 SRGB  7 cm 16 cm  4 7 star
  0 0 1 SRGB  7 cm 12 cm  4 9 star
  0 1 1 SRGB  7 cm  8 cm  4 6 star
  1 0 1 SRGB  7 cm  4 cm  4 8 star

   showpage