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

/vertex    {/ang E D radius 90 ang sub cos mul radius 90 ang sub sin mul} BD
/pentagon  {GS CPT 0 vertex M 72 72 360 {vertex L} for S GR} BD
/pentagon2 {side 2 div neg side 2 div 54 cos div 54 sin mul neg RM
           0 1 4 {side 0 RL 72 rotate} for
           } BD

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

3.5 cm 5 cm T       

1 0 0 SRGB  /side   4 cm D  2 SL  7 cm 10 cm M pentagon2 S
0 0 0 SRGB  /radius 4 cm D  1 SL  7 cm 10 cm M pentagon

/side 3 cm D
/radius side 2 div 54 cos div D

1 1 0 SRGB  3 SL  7 cm 10 cm M pentagon2 F
0 1 0 SRGB  3 SL  7 cm 10 cm M pentagon

   showpage