Imager::Filter::Bakumatsu - Photo vintage filter

  use Imager;
  use Imager::Filter::Bakumatsu;

  my $img = Imager->new;
  $img->read(file => 'photo.jpg') or die $img->errstr;

  $img->filter(type => 'bakumatsu'); # photo is made old.

  $img->write(file => 'photo-bakumatsu.jpg')
      or die $img->errstr;

Bakumatsu (幕末) is a name of the 19th century middle in the history of Japan. (http://en.wikipedia.org/wiki/Bakumatsu) This filter makes the photograph old likes taken in the Bakumatsu era.

overlay_image

  $img->filter(type => 'bakumatsu', overlay_image => '/foo/image.png');

Overlay image to cover (it should have alpha channel). default is: dist/share/BakumatsuTexture.png

Naoki Tomita <tomita@cpan.org>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Sample form: http://bakumatsu.koneta.org/

Original idea: http://labs.wanokoto.jp/olds, http://d.hatena.ne.jp/nitoyon/20080407/bakumatsu_hack

http://coderepos.org/share/browser/lang/perl/Imager-Filter-Bakumatsu (repository)