/haromszog                       % eljárás: háromszög
{ newpath
0 0 moveto
144 0 lineto
72 200 lineto
closepath } def
/verticals                          % függ?leges vonalak
{ newpath
0 9 144
{ 0 moveto
0 216 rlineto} for
stroke } def
/horizontals                     % vizszintes vonalak
{ newpath
0 10 200
{0 exch moveto
144 0 rlineto} for
stroke } def
230 300 translate
haromszog clip               % a háromszög lesz az új vágási pálya
verticals
horizontals
showpage