/rightshow                          % jobbraigazít
{    dup stringwidth pop       % stringwidth: a verem tetején levő szöveget helyettesíti annak x és y -
                                         % írányú méretével
     120 exch sub
     0 rmoveto
     show }def

/Cardoutline                       % a kártya külső kerete
{    newpath
     90 90 moveto
     0 144 rlineto
     252 0 rlineto
     0 -144 rlineto
     closepath
     1.5 setlinewidth
     stroke }def

/doBorder                     % a kártya belső kerete
{    99 99 moveto
     0 126 rlineto
     234 0 rlineto
     0 -126 rlineto
     closepath
     3 setlinewidth
     stroke }def

/Diamond                      % káró jel rajzolása
{    newpath
     207 216 moveto
     36 -54 rlineto
     -36 -54 rlineto
     -36 54 rlineto
     closepath
     1 0 0 setrgbcolor
     fill }def

/doText                                      % szövegkiíratás
{    0 setgray 90 180 moveto
     Mainfont setfont
     (Diamond Cafe) rightshow
     90 168 moveto
     Sloganfont setfont
     ("The Club of Lonely Hearths") rightshow
     216 126 moveto
     Ownerfont setfont
     (Sam Spade) show
     216 111 moveto
     (Owner) show }def
%főprogram
Cardoutline
doBorder
Diamond
doText

showpage