/pisma [/NewCenturySchlbk-Bold, /Helvetica-Narrow-Bold /Palatino-BoldItalic /Bookman-Demi /Arial /Times-Bold] def

/brpisma pisma length def

/tekst (abcdefghijklmn) def

%/pt [6 7 8 9 10 11 12 14 16 18 20 24 28 32 36 48 60 72 96] def

%50 550 translate

0 1 brpisma 1 sub {

    /i exch def
    /pt 100 -10 i mul add def
    /h 550 -100 i mul add def

    /uzorak {
        50 h  moveto
        pisma i  get findfont
            pt scalefont
            setfont

        %tekst  show
        tekst false charpath
    } def



    uzorak
    %gsave
        /x i brpisma 1 sub div def  % 0-1 ......  i=0-5,  i/5
        /y 1 x sub def %1-0

        i 1 add setlinewidth
        0 x y 0 setcmykcolor
        1 setlinejoin
        stroke
    %grestore



}for

100 100 moveto
    (x=) show
    x 10 string cvs show
100 300 moveto
    (y=) show
    y 10 string cvs show



100 -10 100 -10 brpisma mul add {



}for




showpage