%!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 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
  1 0 0 SRGB  7 cm 10 cm  4 star

   showpage