/Times-Italic findfont                                % Times-Italic
 30 scalefont setfont
/oshow { true charpath stroke } def         % eljárás
                                                               % a kurrens pályához illeszti a szöveg karakter pályáját, true, akkor kitölthet? és
                                                               % vágható
/circleAdobe
 { 15 15 345                                            % for i:=15 to 345, lépés 15
   { gsave
     rotate 0 0 moveto
     (Adobe) oshow
     grestore
   } for
 } def
250 400 translate
.5 setlinewidth
circleAdobe
0 0 moveto
(Adobe Sysytems) true charpath          % a kurrens pályához illeszti a szöveg karakter pályáját, true, akkor kitölthet? és
                                                           % vágható
gsave
1 setgray fill
grestore
stroke
showpage