キャンバスを生成する - ImageMagick, Perl

真っ白なキャンバスに点や線を描く、または文字を書く場合、まずは元となる画像が必要になる。あらかじめ画像を用意しても良いが、ImageMagickでは動的にキャンバスを生成することができる。

インスタンス生成後、Set, Readで各種設定をしてやるだけで良い。

実行結果
サンプル
参考

実行結果

white	red	#0000FF

サンプル

#!/usr/bin/perl

;#
;#キャンバスを生成する
;#

use strict;
use Image::Magick;

#------------------------------------------#
#動的に画像を生成する
#------------------------------------------#
my $i = 1;
foreach my $color ('white', 'red', '#0000FF') {    #背景色

    #-- インスタンス生成 --#
    my $image = Image::Magick->new;

    #-- 画像設定 --#
    $image->Set(size=>'100x100');        #キャンバスサイズ
    $image->Read("xc:$color");           #背景色

    #-- 画像保存 --#
    $image->Write("canvas_$i.jpeg");

    #-- オブジェクト破棄 --#
    undef $image;
    $i++;
}