とあるエンジニアの闇歴史帳

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。

====== 画像を木炭画に変換する - ImageMagick, Perl ======
~~socialite~~
<note important>この記事は2007年03月03日に書かれた物です</note>

===== 実行例 =====
^  befor  ^  after  ^
|{{:perl:imagemagick:sample_org1_s.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_22.jpg?nolink|}}|

===== サンプル =====
<code perl>
#!/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;
    }
}
</code>

===== radius,sigmaを調整した一覧 =====
実行結果を以下に抜粋した。縦がradius、横がsigmaをそれぞれ変更した値である。

ここでは整数を指定しているが、radius、sigmaにはそれぞれ浮動小数点を指定することが出来る。それぞれ半径（radius）と標準偏差（sigma）だと思われるが、実行結果を見て分かるとおり大きな値を与えると原型をどんどんとどめないほどの影響を与えられる。

^  ^  2  ^  4  ^  8  ^
^ 2|{{:perl:imagemagick:image_charcoal_22.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_24.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_28.jpg?nolink|}}|
^ 4|{{:perl:imagemagick:image_charcoal_42.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_44.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_48.jpg?nolink|}}|
^ 6|{{:perl:imagemagick:image_charcoal_62.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_64.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_68.jpg?nolink|}}|
^ 8|{{:perl:imagemagick:image_charcoal_82.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_84.jpg?nolink|}}|{{:perl:imagemagick:image_charcoal_88.jpg?nolink|}}|

===== 関連書籍 =====
{{amazon>jp:4844326473}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4797344377}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4873114136}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4797336803}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4798139815}}
<html><p style="clear:both"></p></html>

{{tag>CGI・Perl例文集 Perl ImageMagick PerlMagick }}
~~socialite~~

とあるエンジニアの闇歴史帳

ユーザ用ツール

関連ページ

ページ用ツール