VPF::Image Magick проблема со шрифтами - Форум программистов

visios

Дата 27.1.2010, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 27.1.2010

Репутация: нет
Всего: нет

На локальной машине стоит Image::Magick 6.5.1, на хостинге Image::Magick 6.2.8. На локальной машине вот такой код работает:

Код


    my $font = $FONT_DIR.'/times.ttf';
    my $pointsize = 70;

    my $image = new Image::Magick;

    $image->Set(size => '300x100');
    $image->ReadImage('xc:white');

    $image->Set(
            type        => 'TrueColor',
            antialias    =>    'True',
            fill        =>    'black',
            font        =>    $font,
            pointsize    =>    $pointsize,
            );

    $image->Draw(
            primitive    =>    'text',
            points        =>    '20,70',
            text        =>    $string,
            );
# ... и так далее ...

при загрузке на хостинг генерируемая картинка остается белой. Шрифты доступны в папках $FONT_DIR как на локальной машине, так и на хостинге. Хостинг UNIX. Выводимый текст - английские буквы. В чем же проблема?

ginnie

Дата 27.1.2010, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 4
Всего: 49

visios, попробуйте добавить обработку ошибок, по аналогии с:

Код


$x = $image->Set(
            type        => 'TrueColor',
            antialias    =>    'True',
            fill        =>    'black',
            font        =>    $font,
            pointsize    =>    $pointsize,
            );
warn "$x" if "$x";

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

visios

Дата 27.1.2010, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 27.1.2010

Репутация: нет
Всего: нет

ginnie, спасибо, видимо в более старой версии Меджика оно не знает поле text

в логе ошибка Exception 410: unrecognized option `text' at .........

Код


    $x = $image->Draw(
            primitive    =>    'text',
            points        =>    '20,70',
            text        =>    $string, # в этой строке ошибка
            );
warn "$x" if "$x";

каким же образом вывести текст..?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »