[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