予想外に人気を博してしまった 昭和の写真ジェネレータ(仮) ですが、画像加工の方法を公開しておきます。 [追記] 以下のコードは説明用です。なお、実際に動いているコード(に限りなく近いもの) を CodeRepos に up しました。svnはこちらから 用意するもの。 Perl Imagerモジュール 元ネタの画像 モジュールを load して、画像を Imager オブジェクトに読み込みます。 use Imager; use Imager::Fill; use List::Util qw/ min max /; my $img = Imager->new; $img->read( file => "source.jpg" ); コントラストを落とします。 $img->filter( type => "contrast", intensity => 0.7 ); 少々ぼかします。(小さい
![昭和の写真ジェネレータの作り方 - 酒日記 はてな支店](https://cdn-ak-scissors.b.st-hatena.com/image/square/e2508438544972c114dba5ee232618d562e0fffa/height=288;version=1;width=512/http%3A%2F%2Flabs.topicmaker.com%2F~fujiwara%2Fsyowa%2Fsource.jpg)