直線を描く Draw()を使えば、線や円を描くことが出来ます。一番簡単な例を挙げます。 #!/usr/local/bin/perl -w use strict; use Image::Magick; my $file = "sample.jpg"; my $image = Image::Magick->new; $image->Read($file); # 線を引く $image->Draw(primitive=>'line', points=>'20,20 100,100', stroke=>'#FFFF00'); print "Content-type: image/jpeg\n\n"; binmode STDOUT; $image->Write('jpeg:-'); undef $image; exit; 上記の例で、Draw()に与えているパラメータの詳細を説明します。 primi