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

コピペで使える便利Wiki ※現在構築中です。

ユーザ用ツール


サイドバー

言語

サーバ関連

ツール

API

読み物

その他

perl:imagemagick:addnoise

画像にノイズを加える - Perl,ImageMagick

この記事は2007年02月22日に書かれたものです。

ImageMagickを使用し、画像にノイズを加えたい。AddNoiseメソッドを使用すれば簡単に実現できる。

実行例

befor after

サンプル

#!/usr/bin/perl
 
;#
;#画像にノイズを加える
;#
 
use Image::Magick;
 
#-------------------------------------------#
#初期設定
#-------------------------------------------#
#-- 元画像 --#
my $source = './sample_org1.jpg';
 
#-- ノイズの種類 --#
my @noise = (
          'Uniform'
        , 'Gaussian'
        , 'Multiplicative'
        , 'Impulse'
        , 'Laplacian'
        , 'Poisson'
 
);
 
#-------------------------------------------#
#ノイズ画像を生成する
#-------------------------------------------#
foreach my $effect ( @noise ){
    #-- インスタンス生成 --#
    my $image = Image::Magick->new;
 
    #-- 画像を読込む --#
    $image->Read($source);
 
    #-- ノイズを加える --#
    $image->AddNoise( noise => $effect );
 
    #-- 画像を保存する(JPEG) --#
    $image->Write("./AddNoise_$effect.jpg");
 
    #-- オブジェクトを破棄 --#
    undef $image;
}

以下が実行結果です。「Uniform」は間違えたわけではなく、指定しても何も変わらないみたいです。

実行例(ノイズ一覧)

= Uniform : {{:perl:imagemagick:addnoise_uniform.jpg?nolink|}}
= Gaussian : {{:perl:imagemagick:addnoise_gaussian.jpg?nolink|}}
= Multiplicative : {{:perl:imagemagick:addnoise_multiplicative.jpg?nolink|}}
= Impulse : {{:perl:imagemagick:addnoise_impulse.jpg?nolink|}}
= Laplacian : {{:perl:imagemagick:addnoise_laplacian.jpg?nolink|}}
= Poisson : {{:perl:imagemagick:addnoise_poisson.jpg?nolink|}}

関連書籍

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

関連ページ

perl/imagemagick/addnoise.txt · 最終更新: 2020/06/23 14:10 (外部編集)