VPF::GD gif анимация - Форум программистов

frenkys

Дата 1.4.2006, 01:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

Люди у кого нибудть получилось?

создать гиф анимашку

вот дока

Покажите кто-нибудь рабочй код smile

а то меня почемуто все время пустая картинка. smile

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

niva[frenky]

nitr

Дата 14.4.2006, 02:25 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

вот

Код


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

print "Content-type: image/gif\n\n";

my $str = "Perl!!!";
my $image = GD::Image->new(120, 30);
$image->colorAllocate(255, 255, 255);

my $gifdata = $image->gifanimbegin(1, 0);
foreach (1..length($str)) {
  my $frame = GD::Image->new($image->getBounds);
  $frame->colorAllocate(255, 255, 255);
  $frame->string(gdSmallFont, 2, 4, substr($str, 0, $_), $frame->colorAllocate(255, 0, 0));
  $gifdata .= $frame->gifanimadd(1);
}
$gifdata .= $image->gifanimend;
print $gifdata;

ну, а если файлик, то вот

Код


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

my $str = "Perl!!!";
my $image = GD::Image->new(120, 30);
$image->colorAllocate(255, 255, 255);

my $gifdata = $image->gifanimbegin(1, 0);
foreach (1..length($str)) {
  my $frame = GD::Image->new($image->getBounds);
  $frame->colorAllocate(255, 255, 255);
  $frame->string(gdSmallFont, 2, 4, substr($str, 0, $_), $frame->colorAllocate(255, 0, 0));
  $gifdata .= $frame->gifanimadd(1);
}
$gifdata .= $image->gifanimend;
open OUT, ">my_new.gif";
binmode OUT;
print OUT $gifdata;
close OUT;

И не надо говорить, что это можно оптимизировать... я знаю ;) Человек ждал ответа с начала апреля smile

И сложно создавать так... я так и не понял в чём глюк... думаю в специфике GIF-формата, для примера вместо Perl!!! вставь Perl FOREVER

Это сообщение отредактировал(а) nitr - 14.4.2006, 03:24

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

I love ArchLinux

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