/inch {30 mul} def
.7 0 0 setrgbcolor
% bordó
matrix currentmatrix
4.25 inch 5.5 inch translate
1.4 1.9 scale
0 0 2.75 inch 0 360 arc
closepath
clip
% a vágási pálya ellipszis alakú lesz
newpath
setmatrix
/Palatino-Roman findfont
18 scalefont
setfont
/CircleText {
% eljárás, amely kiírja a 24-szer elforgatott PostScript szöveget
gsave
translate
24 {
0.5 inch 0 moveto
(PostScript) show
15 rotate
} repeat
grestore
} def
% főprogram, 4 különböző helyen megjeleínés
2.125 inch 7.75 inch CircleText
6.375 inch 7.75 inch CircleText
2.125 inch 2.75 inch CircleText
6.375 inch 2.75 inch CircleText
showpage