PerlTk, postscript и русские шрифты (русский текст в eps) (xfree86 perl rus postscript)
Ключевые слова: xfree86, perl, rus, postscript, (найти похожие документы)
From: Алексей Куклин <alex@kuklin.ru>
Newsgroups: email
Date: Thu, 3 Sep 2003 19:50:19 +0100
Subject: PerlTk, postscript и русские шрифты (русский текст в eps)
Как добиться вывода русского текста в eps:
1.
Tk800.023/pTk/tkCanvPs.c:
/ISOEncode {\n\
dup length dict begin\n\
{1 index /FID ne {def} {pop pop} ifelse} forall\n\
- /Encoding ISOLatin1Encoding def\n\
+% /Encoding ISOLatin1Encoding def\n\
currentdict\n\
end\n\
2. При выводе текста в $canvas:
$fontname = '-rfx-courier-medium-r-normal--12-120-75-75-m-70-koi8-r';
$canvas->createText(... -font => $boldfontname)
3. При выводе eps:
$canvas->postscript(file => "canv.ps", fontmap =>
{'-rfx-courier-medium-r-normal--12-120-75-75-m-70-koi8-r'=>['HelveticaCyr-Medium','10']
});
4. Поставить в gs шрифт HelveticaCyr-Medium в кодировке koi8-r (если еще такого нет)
5. eps2eps canv.ps out.eps
Оп-па! Получили EPS с корректными русскими шрифтами.
Оригинал живет тут: http://kuklin.ru/perltk_eps_cyr
Замечания, дополнения, комментарии - прошу сюда: http://kuklin.ru/perltk_eps_cyr/ak_reply#reply