[kansaipm] Re: GD.pm モジュールについて
Kawai,Takanori
GCD00051 at nifty.ne.jp
Sun Sep 9 04:41:30 CDT 2001
川合孝典です。
----- Original Message -----
From: "M.Takimoto" <takimoto at miki-net.or.jp>
To: <kansai-pm-list at pm.org>
Sent: Wednesday, September 05, 2001 8:54 PM
Subject: [kansaipm] GD.pm モジュールについて
> TAKIです
(中略)
> # 斜線のイメージの作成
> $diagonal_brush = new GD::Image(5,5);
> $white = $diagonal_brush->allocateColor(255,255,255);
> $black = $diagonal_brush->allocateColor(0,0,0);
> $diagonal_brush->transparent($white);
> $diagonal_brush->line(0,4,4,0,$black); # NE diagonal
>
> ここのところで、allocateColor(… とありますが
> これって colorAllocate(… の間違いだった ということに、やっと気が付い
> て何とか 絵が出てきた次第。
あら、後でチェックしてみます。
(中略)
> ところで、その お絵描きをしているのは もうちと目的があって、解析結果の
> 絵を200〜300枚描いて、これをアニメーション化したい ってものなのです。
>
> こういうのって やっぱりアニメーションGIF 使うしか方法は無いものでしょ
> うかね?
CGI-MLで、りゅうちさんが紹介されていましたが、このあたりが
参考になるかも。といっても私はまだ読んだことないんですけど。
ISBN4-87311-020-3
Perl/GNUソフトウェアによるWebグラフィックスプログラミング
Shawn P. Wallace著 田中 幸訳
GIFアニメをつくるとなったらImageMagick(PerlMagick)を使えば、
簡単に作れたと思います。
ご参考:
http://www.imagemagick.org/www/perl.html
use strict;
use Image::Magick;
my $img = Image::Magick->new;
$img->Read('naya.jpg');
$img->Read('naya2.jpg');
$img->Set(loop => 3);
$img->Write('ani.gif');
==============================================
川合 孝典 (Hippo2000)
kwitknr at cpan.org GCD00051 at nifty.ne.jp
http://member.nifty.ne.jp/hippo2000
http://www.hippo2000.net/
DBI日本語メーリングリスト管理人、 Kansai.pm所属
==============================================
More information about the Kansai-pm
mailing list