| Current Path : /proc/thread-self/root/usr/share/ogonkify/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : //proc/thread-self/root/usr/share/ogonkify/helper.ps |
/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