blob: 4a928445c3ac2a3408a53d93433a5e90298da8bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
/onechar {
/s exch def
100 0 moveto
100 1000 lineto
0 100 moveto
1000 100 lineto
-100 10 900
{
dup /len exch 50 mod 0 eq {8} {4} ifelse def
dup 100 add 100 len sub moveto dup 100 add 100 len add lineto stroke
dup 100 add 100 len sub exch moveto 100 add 100 len add exch lineto stroke
} for
/Times-BoldItalic-Ogonki findfont 500 scalefont setfont
100 100 moveto s show
showpage
} def
/polchar {
[(\241) (\261) (\312) (\352) % ogonki
(\246\323) (\266\351) (\306\323) (\346\351) % s & c acute
(\321\311) (\361\351) % n acute
(\254\311) (\274\351) % Z acute
(\257\311) (\277\351)] % z dotaccent
{onechar} forall
} def
|
