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

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

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

ImageMagickを使用し、画像を油絵のように変換したい。OilPaintメソッドを使用すれば一発で実現できる。

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


===== サンプル =====
<code perl>
#!/usr/bin/perl

;#
;#画像を油絵に変換する
;#

use Image::Magick;

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

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

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

        #-- 油絵化  --#
        $image->OilPaint(radius=>$i);   #整数を指定

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

        #-- オブジェクト破棄  --#
        undef $image;
}
</code>


===== radius値を変更した一覧 =====
radiusには整数を指定するのだが、5を超えた当たりから原型をとどめなくなっている。0～3程度の範囲内で指定するのが良いだろう。また処理にちょっと時間がかかる。あまり大きな画像をリアルタイムに出力するのは難しいようだ。

  = radius => 0 : {{:perl:imagemagick:image_oil_0.jpg?nolink|}}
  = radius => 1 : {{:perl:imagemagick:image_oil_1.jpg?nolink|}}
  = radius => 2 : {{:perl:imagemagick:image_oil_2.jpg?nolink|}}
  = radius => 3 : {{:perl:imagemagick:image_oil_3.jpg?nolink|}}
  = radius => 4 : {{:perl:imagemagick:image_oil_4.jpg?nolink|}}
  = radius => 5 : {{:perl:imagemagick:image_oil_5.jpg?nolink|}}
  = radius => 6 : {{:perl:imagemagick:image_oil_6.jpg?nolink|}}
  = radius => 7 : {{:perl:imagemagick:image_oil_7.jpg?nolink|}}
  = radius => 8 : {{:perl:imagemagick:image_oil_8.jpg?nolink|}}
  = radius => 9 : {{:perl:imagemagick:image_oil_9.jpg?nolink|}}
  = radius => 10 : {{:perl:imagemagick:image_oil_10.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~~

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

ユーザ用ツール

関連ページ

ページ用ツール