Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  06 Aug 2001  15:57:58
 To : Alexey Vedeshkin
 Subject : Re: text >>> gif
 -------------------------------------------------------------------------------- 
 
 AV> Хотелось бы узнать, можно ли на пеpле текст пеpевести в гpафический файл ,
 AV> пpичем используя не стандаpные  шpифты, а подключаемые (киpиллические).
 
 AV> Где искать?
 AV> Пpимеpы?
 
 Как вставлять в изображения русский текст при пользовании библиотекой
 GD
 
 Для вставления кириллицы в изображения при помощи библиотеки GD следует
 использовать TrueType шрифты (TTF) в кодировке Unicode, содержащие кириллицу,
 и метод stringTTF (см. perldoc GD). Для получения кириллицы из такого шрифта
 необходимо перекодировать передаваемый методу stringTTF текст, подставив
 вместо символов кириллицы строчки вида '&#номер;', где номер - код Unicode
 данного символа. Hапример, для перекодирования можно использовать следующий
 код на Perl'е:
 
 use constant TRANSTABLE => {
         'ю'=>'ю', 'а'=>'а', 'б'=>'б',
         'ц'=>'ц', 'д'=>'д', 'е'=>'е',
         'ф'=>'ф', 'г'=>'г', 'х'=>'х',
         'и'=>'и', 'й'=>'й', 'к'=>'к',
         'л'=>'л', 'м'=>'м', 'н'=>'н',
         'о'=>'о', 'п'=>'п', 'я'=>'я',
         'р'=>'р', 'с'=>'с', 'т'=>'т',
         'у'=>'у', 'ж'=>'ж', 'в'=>'в',
         'ь'=>'ь', 'ы'=>'ы', 'з'=>'з',
         'ш'=>'ш', 'э'=>'э', 'щ'=>'щ',
         'ч'=>'ч', 'ъ'=>'ъ', 'Ю'=>'Ю',
         'А'=>'А', 'Б'=>'Б', 'Ц'=>'Ц',
         'Д'=>'Д', 'Е'=>'Е', 'Ф'=>'Ф',
         'Г'=>'Г', 'Х'=>'Х', 'И'=>'И',
         'Й'=>'Й', 'К'=>'К', 'Л'=>'Л',
         'М'=>'М', 'H'=>'Н', 'О'=>'О',
         'П'=>'П', 'Я'=>'Я', 'Р'=>'Р',
         'С'=>'С', 'Т'=>'Т', 'У'=>'У',
         'Ж'=>'Ж', 'В'=>'В', 'Ь'=>'Ь',
         'Ы'=>'Ы', 'З'=>'З', 'Ш'=>'Ш',
         'Э'=>'Э', 'Щ'=>'Щ', 'Ч'=>'Ч',
         'Ъ'=>'Ъ', '&'=>'&'
         };
 
 sub translate
 {
         my $str = shift;
         $str =~ s/(.)/(exists TRANSTABLE->{$1})? TRANSTABLE->{$1}: $1/eg;
         return $str;
 }
 
 Это у нас один из программистов писал. Hо GD, которая это умеет, уже не умеет
 GIF. У нас, насколько я знаю, это в жпеги пишут, или в PNG и потом
 Image::Magick'ом преобразуют в гиф. У самого IM тоже какой-то способ был, но
 там, кажется, не SGML entities, а просто коды писались...
 
 -- 
 Artem Chuprina <ran@ran.pp.ru>
 FIDO: 2:5020/371.32
 --- slrn/0.9.7.0 (Linux)
  * Origin: AKA с подствольным плюсомётом (2:5020/371.32)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 text >>> gif   Alexey Vedeshkin   05 Jul 2001 23:02:58 
 Re: text >>> gif   Pavel Ammosov   11 Jul 2001 01:09:21 
 text >>> gif   Sanyo Titaev   12 Jul 2001 01:20:37 
 Re: text >>> gif   Ilya Rubtsov   11 Jul 2001 23:23:03 
 Re: text >>> gif   Igor Nikolaev   11 Jul 2001 04:54:53 
 Re: text >>> gif   Ruslan Bondarev   11 Jul 2001 07:30:42 
 Re: text >>> gif   Sergey Tkachuk   11 Jul 2001 18:06:00 
 Re: text >>> gif   Ruslan Bondarev   11 Jul 2001 20:27:31 
 Re: text >>> gif   Igor Nikolaev   12 Jul 2001 01:10:54 
 Re: text >>> gif   Ruslan Bondarev   12 Jul 2001 08:14:25 
 Re: text >>> gif   Igor Nikolaev   12 Jul 2001 11:45:37 
 text >>> gif   Aleksey Kotov   21 Jul 2001 12:35:20 
 Re: text >>> gif   Igor Nikolaev   03 Aug 2001 20:04:22 
 GIF must die (was: Re: text >>> gif)   HB   12 Jul 2001 13:23:57 
 Re: GIF must die (was: Re: text >>> gif)   Ruslan Bondarev   13 Jul 2001 08:17:37 
 Re: text >>> gif   Artem Chuprina   06 Aug 2001 15:57:58 
Архивное /ru.perl/717852bef6f54.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional