/inch {72 mul} def
/negyszog {                        %eljárás deklarálása
newpath
100 100 moveto
2 inch 0 rlineto
0 1.2 inch rlineto
-1.4 inch 0.2 inch rlineto
closepath
0 0 1 setrgbcolor
fill }def
negyszog                            % eljárás végrehajtása
showpage