/alma {                                 % eljárás, az alma kiíratására
newpath 0 0 moveto
(alma) true charpath
} def
                                                % különböző vonalvastagsággal és színnel az alma kiíratása
100 300 translate
10 setlinewidth
alma
stroke

6 setlinewidth
.5 setgray
alma stroke

1 setgray
1 setlinewidth
alma stroke

showpage