Линейки

[Nudlok]

как сделать такие линейки как на http://metric.rodim.ru на Perl
если есть, то лучше пример скрипта

[AnnA]

берите пустую линейку (без цифр) и ставте в нее цифры в нужное место по координатам с помощью, например, GD

[Nudlok]

ну вам профи хорошо так рассуждать ... а новичкам примеры нужны ...

[frenky]

Nudlok
 Слушай , забрел на твой сайт ,подскажи плиз как ты добиваешься градиента цвета какого нибудь например для RGB  какие координаты постоянны а какие изменяються?

[AnnA]

;) какое там из меня профи?..
пример. вот смотрите:

Код: [Выделить]

#!/usr/bin/perl -w
use strict;
use GD;

my $font="./data/StayPuft.ttf"; #ваш файл с пиксельным шрифтом

my $im = newFromPng GD::Image(\'/i/lin.png\'); #путь к картинке вашей линейки
my ($white)=$im->colorAllocate(255,255,255);
my ($red)=$im->colorAllocate(242,49,29);
$im->interlaced(\'true\');



my $clr=$white;

$im->stringFT($clr,$font,12,0,10,20,1);
$im->stringFT($clr,$font,12,0,25,24,2);
$im->stringFT($clr,$font,12,0,35,15,3);
$im->stringFT($clr,$font,12,0,45,19,4);
$im->stringFT($clr,$font,12,0,55,29,5);
$im->stringFT($clr,$font,12,0,65,15,6);

print "Content-type: image/png\\n\\n";
binmode STDOUT;
print $im->png;
exit;
=comment
теперь о ($clr,$font,12,0,65,15,6);
fgcolor    Color index to draw the string in
fontname   A path to the TrueType (.ttf) font file or a font pattern.
ptsize     The desired point size (may be fractional)
angle      The rotation angle, in radians (positive values rotate counter clockwise)
x,y        X and Y coordinates to start drawing the string
string     The string itself
=cut

[Nudlok]

пример не работает =)
объясните получше, как поверх одной картинки поместить другую поменьше в нужом месте

[AnnA]

Nudlok:
пример не работает

у вас может и не работает. у меня - вполне. и я даже не хочу заводить разговоры на тему прописывания правильных путей в скрипте к файлу шрифтов, к файлу png, а так же узнавать каким собственно образом вы вызвали скрипт, что он не работает (наверняка это был не ). могу просто еще раз повторить, что пример тривиален и вполне работоспособен.

Nudlok:
объясните получше, как поверх одной картинки поместить другую поменьше в нужом месте

эта тема прекрасна раскрыта в документации к модулю Image::Magick

[Nudlok]

ну вы не подумайте что я настолько глуп, чтобы неправильно прописать пути .. а вот насчёт img src как-то не подумал ... спасибо =)

[Regestor]

AnnA
Я вижу ты имелa опыт работы с сием чудом...
с Image::Magick то все ясно, сам знаю что есть что и где читать =)

а вот что мы можем делать с помощью use GD ?
можем ли мы обойтись без Image::Magick, используюя тока GD....
И где можно ие почитать подробно? ну кроме CPAN, там то и так ясно что мона =)

[AnnA]

в perldoc GD ведь все и расписано.
ну и где-то в сети я видела перевод в виде русского pdf, но он на старые версии, которые еще не работали с гифами. в новом ГД  есть $image->gifanimbegin (но я, правда, не пробовала даже создавать анимированные гифы с помощью ГД) и Alpha channels

[Regestor]

AnnA
Наверное неправильно я спросил =)
Вообщем по твоим представлением с чем проще проще работать и мощнее с GD или Image::Magick

[AnnA]

Regestor мой выбор - GD.
с Image::Magick я только работала, когда делала превьюшки для одной галлереи - он их качественнее делал, чем ГД. Но это опять же - была старая версия ГД, может новая уже не содержит в себе этого глюка с качеством картинок.