Gd : самый простой вопрос :)

WD` · 25.06.2003, 01:31

можно ли вывести картинку и текст:
вот это:

Код:

#!/usr/bin/perl
use GD;
print "Content-type: text/html\n\n";
  open (PNG,"over.png") || die;
  $im = newFromPng GD::Image(\*PNG) || die;
  close PNG;
  binmode STDOUT;
  print $im->png;
print <<HTML;
"\n\nads";
HTML

Не работает

точнее не выводит текст

SPV · 25.06.2003, 10:16

#!/usr/bin/perl
use GD;
if ($ENV{QUERY_STRING} eq "img") {
print "Content-type: image/png\n\n";
open (PNG,"over.png") || die;
$im = newFromPng GD::Image(\*PNG) || die;
close PNG;
binmode STDOUT;
print $im->png;
} else {
print <<HTML;
Content-type: text/html

<img src="$ENV{REQUEST_URI}?img"><br>
ads
HTML
}

WD` · 25.06.2003, 16:51

приагромнейшее спасиба

вот вопросы появились: можно ли сделать Skew, повернуть картинку на 5 градусов ? я только на 90 и 180 нашел, Flip нашел, а Skew нет

спасибо еще раз

SPV · 25.06.2003, 17:13

Сомневаюсь, что есть стандартные метода в ГД для таких эффектов... Но можно и самому реализовать, ведь есть getPixel и setPixel

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

WD` · 25.06.2003, 20:06

блин, а вращение нужно...

есть какие-то алгоритмы.. может на др. языках(С++,BCB,php,VB,Java)? а то

прийдется самому думать.. если б ты знал как лень

я пойду сейчас поищу модули на cpan'e. Инсталлируются GD::Image (есть такой отдельный) так же как и GD?

ppm->install GD::Install ?
а то я скачал сам GD.pm, скопировал его в папку lib (так написано в инструкции по установке на cpan'e), а он

не работает- пишет что ошибок в модуле больше, чем строчек

в итоге ставил из иНета.

на счет времени.. да, будем грузить по полной

я тут просто попиксельное сравнение картинок делал (250х40)

неск. раз в цикле.. так скрипт работал 17-18 сек.

WD` · 25.06.2003, 20:37

вот нашел.. но как его ставить не знаю

http://search.cpan.org/author/BEATNI...tate/Rotate.pm

WD` · 25.06.2003, 22:03

как повернуть уже знаю.. но вот..

я торможу?
вроде банально, но не работает:

Код:

#!/usr/bin/perl
use GD;
print "Content-type: image/png\n\n";
open (PNG,"over.png") || die;
$im = newFromPng GD::Image(\*PNG) || die;
close PNG;
$im1 = new GD::Image(250,250);
for($i=0;$i<250;$i++)
 {
  for($k=0;$k<250;$k++)
   {
      $im1->setPixel ($i,$k,$im1->colorAllocate ($im->rgb ($im->getPixel ($i,$k) ) ) );
   }
 }
binmode STDOUT;
print $im1->png;

слева кусок картинки, и все белое