タグ

関連タグで絞り込む (0)

  • 関連タグはありません

タグの絞り込みを解除

Perlと画像処理に関するnaneyのブックマーク (2)

  • Imager による幕末写真フィルタ

    nitoyon さんのブログ で 幕末古写真ジェネレーター の内部処理と as での実装方法が検証されていたので、Perl で Imager のフィルタモジュールにしてみた。 Imager による幕末フィルタ 書いたフィルタの Imager::Filter::Bakumatsu は、nitoyon さんのエントリをそのままなぞったつもりです。が、Imager に flash.filters.ColorMatrixFilter のオフセットに相当するものがない(と思う)ので、これだけに XS 書くのもたいへんなんで明るくしてから上と下を削るみたいな感じでやってみた。ソースは coderepos のこのへんです。 use Imager; use Imager::Filter::Bakumatsu; my $img = Imager->new; $img->read($filename) or

    Imager による幕末写真フィルタ
  • OpenCVのPerlモジュール作成中 - spiritlooseのはてなダイアリー

    OpenCVが1.0リリースされたのをきっかけにPerlモジュールを作ってて、APIの量が多すぎて放置気味だったんだけど、すこしやる気が出てきたので実装中。なんとなくガワはできてきた。 今のところこんな感じのことが出来る。かなり一部だけ紹介。 my $image = OpenCV->new( # 読み込み filename => 't/image/test.jpg', ) or die; my $clone = $image->CloneImage; # クローン $clone->Resize( # リサイズ width => 500, height => 156, ); $clone->CvtColor( # グレーに code => BGR2GRAY, color => 1, ); $clone->Erode; # 収縮 $clone->Dilate; # 膨張 $clone->Smo

    OpenCVのPerlモジュール作成中 - spiritlooseのはてなダイアリー
  • 1