画像を、単純化して置き換えるような処理をしたかった。 そのために、画像内の色情報を複数プロットし、平均化する処理を書いてみた。 こんな風にできたよ。 こんな画像を読み込ませると、 処理して、 こんな色にしてくれる。 Image::Magick使って、色情報取得 package Package; use strict; use Image::Magick; sub new { my ($pkg, $param) = @_; my $hash = { img => $param->{'img'}, plot => (defined $param->{'plot'} and $param->{'plot'} > 0) ? $param->{'plot'} : 3, }; return bless $hash, $pkg; } sub get_average_color { my ($self)
![画像の色情報を平均化し、単色にする方法 - 雑想空間](https://cdn-ak-scissors.b.st-hatena.com/image/square/79adf66e68ff5e09b853f60eb3a5c446ed97e6c7/height=288;version=1;width=512/http%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fr%2Fryoff%2F20090803%2F20090803010733.png)