Példák

---

Nyilak:



/arrowdict 14 dict def
arrowdict begin
/mtrx matrix def
end

/arrow
{arrowdict begin
/headlength exch def
/halfheadthickness exch 2 div def
/halfthickness exch 2 div def
/tipy exch def /tipx exch def
/taily exch def /tailx exch def

/dx tipx tailx sub def
/dy tipy taily sub def
/arrowlength dx dx mul dy dy mul add
sqrt def
/angle dx dy atan def
/base arrowlength headlength sub def
/savematrix mtrx currentmatrix def

tailx taily translate
angle rotate

0 halfthickness neg moveto
base halfthickness neg lineto
base halfheadthickness neg lineto
arrowlength 0 lineto
base halfheadthickness lineto
base halfthickness lineto
closepath

savematrix setmatrix
end
} def

newpath
318 340 72 340 10 30 72 arrow
fill
newpath
382 400 542 560 72 232 116 arrow
3 setlinewidth stroke
newpath 400 300 400 90 90 200 200 3 sqrt mul 2 div
arrow .65 setgray fill

showpage


a lap teteje