/box                                    % négyzet rajzoló eljárás
{72 0 rlineto
 0 72 rlineto
 -72 0 rlineto
 closepath }def
/haromszog                        % háromszög rajzoló eljárás
{60 0 rlineto
 -30 60 rlineto
 closepath }def
/kor                                          % kör rajzoló eljárás
{136 125 15 0 360 arc }def

/alakzat                                    % végső alakzatot rajzoló eljárás
{newpath
 100 100 moveto
 box
 1 0 0 setrgbcolor
 fill
 106 106 moveto
 haromszog
 1 setgray
 fill
 kor
 0 1 0 setrgbcolor
 fill }def

alakzat                                       % az alakzat kirajzolása
showpage