/inch { 72 mul } def
/Times-Italic findfont 5.5 inch scalefont setfont       % Times-Italic
/Scfactor 0.5 def                                                   % Scfactor=0,5
gsave
 1.5 inch 6.75 inch translate
 Scfactor Scfactor scale                                         % 0,5 0,5-tel kicsinyítés
 0.2 setgray
 0 0 moveto
 (R) show
grestore
gsave
 7 inch 6.75 inch translate
 Scfactor neg Scfactor scale                                   % -0,5 0,5-tel kicsinyítés
 0.4 setgray
 0 0 moveto
 (R) show
grestore
gsave
 1.5 inch 4 inch translate
 Scfactor Scfactor neg scale                                   % 0,5 -0,5-tel kicsinyítés
 0.6 setgray
 0 0 moveto
 (R) show
grestore
gsave
 7 inch 4 inch translate
 Scfactor neg Scfactor neg scale                            % -0,5 -0,5-tel kicsinyítés
 0.8 setgray
 0 0 moveto
 (R) show
grestore
showpage