/format [297 210] def
/mm {0.352777778 div} def

/fw format 0 get mm def
/fh format 1 get mm def

0 0 fw fh rectstroke
.5 setgray
0 0 moveto fw fh lineto 0 fh lineto closepath fill

/pisma [/Helvetica-Narrow] def


/tekst (Prema slici 1 postaviti PostScript program koji će pomoću naredbe.) def
/pt 20 def
pisma 0 get pt selectfont
0 setgray
0 0 moveto

/string-w {tekst stringwidth pop} def
/string-l {tekst length} def

/ax fw string-w sub string-l 1 sub div def
/ay fh 0 sub string-l 1 sub div def
% Wk-Wt /   brslova-1

/nx fw string-l 1 sub div def


0 1 9{
    /i exch def

    0.5 setgray
    0 0 moveto
    ax ay 10 div i mul tekst ashow

    1 setgray
    0 0 moveto
    ax nx 10 div i mul sub  ay tekst ashow

}for

%%%%%%%%%%%%%%

/tekst (Prijelom teksta.) def
/pt 40 def
1 0 1 0 setcmykcolor
pisma 0 get pt selectfont

/kod (e) 0 get def

fw 2 mul 3 div   fh 6 div moveto

pt neg dup kod tekst widthshow  % dup='pt neg'

%%%%%%%%%%%%%%%%%%%%%%


/tekst (Prijelom teksta.Prijelom teksta.Prijelom teksta.) def
/pt 20 def
pisma 0 get pt selectfont

/ax fw string-l 1 sub div def

0 1 9 {
    /i exch def

    0 0 moveto
    0 i 9 div  1 i 9 div sub  0 setcmykcolor
    tekst [tekst length {ax rand 30 mod 10 sub} repeat] xyshow
}for


%%%%%%%%%%%%%%%%%%%%%%%ss
/txt [(Osgfdfg) (TgsdfgsdT) (issdpdu) (PsdaS-u)(PsdaS-u)] def
/pt 2 def
/blok fw 3 div def
/marg blok 9 div def
/t-blok blok 2 marg mul sub def

gsave
fw blok sub 2 div    fh blok add 2 div translate

1 0 0 0 setcmykcolor
-15 -15 blok blok neg rectfill

0 1 1 0 setcmykcolor
0 0 blok blok neg rectfill

marg marg neg translate

1 setgray
0 1 txt length 1 sub {
    /i exch def

    /tekst txt i get def
    {
        pisma i pisma length mod get pt selectfont
        /ax t-blok string-w sub string-l 1 sub div def % Wk-Wt /   brslova-1

        ax 1 lt {exit} if
        /pt pt 1 add def

    }loop

    0 pt 1.2 mul neg translate
    0 0 moveto

    ax 0 tekst ashow

    /pt 2 def

}for

grestore


%%%%%%%%%%%%%%

/tekst (Prema slici 1 postaviti PostScript program koji će pomoću naredbe.) def
pisma 0 get 30 selectfont
fw 6 div fh 5 mul 6 div moveto
0 setgray
{10 5 rmoveto -20 rotate (a) show} tekst kshow