画像を木炭画に変換する - ImageMagick, Perl

実行例

※サンプル画像は有料の素材集を利用しています。転載はおやめください。

befor	after

実行例
サンプル
radius,sigmaを調整した一覧

サンプル

#!/usr/bin/perl

;#
;#画像を木炭画に変換する
;#

use Image::Magick;

#-------------------------------------------#
#初期設定
#-------------------------------------------#
#-- 元画像 --#
my $source = './sample_org1_s.jpg';

#-------------------------------------------#
#画像を木炭画にする
#-------------------------------------------#
for($i=0; $i<10; $i+=2){
    for($j=0; $j<10; $j+=2){
            #-- インスタンス生成 --#
            my $image = Image::Magick->new;

            #-- 画像を読込む --#
            $image->Read($source);

            #-- 木炭画へ変換  --#
            $image->Charcoal(
                      radius => $i
                    , sigma  => $j
            );

            #-- 画像を保存する(JPEG) --#
            $image->Write("./image_charcoal_$i$j.jpg");

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