Imager::Marquee、あるいは、揺れるイケメン - Kentaro Kuribayashi's blog
画像を左右に動かしたり揺らしたりするモジュールを作成しました。 https://github.com/kentaro/imager-marquee 以下、使い方を説明します。 たとえばここに、イケメンを写した画像があります。 確かにイケメンです。しかし、しばらくほれぼれと眺めているうちに、いくらイケメンとはいえ、動きがないとちょっと飽きてしまうのも事実(「美人は3日で飽きる」ともいいますし)。これでは、せっかくのイケメンも片無しです。そこで、ちょっと動きをつけてみましょう。 use strict; use warnings; use Imager::Marquee; my $image = Imager::Marquee->new(file => shift); $image->marquee(3)->write( file => 'marquee.gif', gif_loop => 0,
Mac OS X Lion に Perl のモジュール Imager を入れる - It’ll be
Perl CPANモジュールガイド という本を買って読んでる。それに載っている画像を扱う Imager というモジュールを入れるときのメモ。jpeg, gif, png, tiff を扱えるようにしてインストールする。 環境 Mac OS X Lion Perl 5.14.2 ( perlbrew 0.33 を使って入れたもの ) cpanm 1.5004 ( モジュールをインストールするのに使う ) homebrew 0.8 ( 各種ライブラリをインストールするのに使う ) Imager 0.86 やり方まず jpeg, gif, tiff を Imager で扱えるようにするためにライブラリを brew でインストールする。png は既に /usr/X11 以下に入ってる。brew install jpeg libtiff giflibあとは cpanm に任せればいいと思いきや pn
OpenCVを使って画像の物体認識をするPerlモジュール作った - spiritlooseのはてなダイアリー
作った。 http://search.cpan.org/dist/Image-ObjectDetect/ http://d.hatena.ne.jp/darashi/20070223/1172232765でRubyの拡張ライブラリを公開されていたので、こりゃやらなくちゃ・・・と思った次第です。すみません。 こんな感じで使えます。Imagerで顔を囲んでみた。 #!/usr/local/bin/perl use strict; use warnings; use Imager; use Image::ObjectDetect; my $file = 'picture.jpg'; my $image = Imager->new->read(file => $file); my $cascade = '/usr/local/share/opencv/haarcascades/haarcascad
QRCode をどのフォーマットでだすのがいの?という話 - tokuhirom's blog
http://blog.clouder.jp/archives/000759.html ちょっと遅レスですが、プロファイラにかけてみると、実際には gif に encode するところで時間をちょうくってるということがわかった。 なんでだろう。Imager がおそいのか、減色処理的なのに時間くってるのか、giflib がおそいのか。。。そこまで深追いしてない。 というわけで、出力画像フォーマット別のベンチマーク。 use strict; use Imager::QRCode; use Benchmark qw(timethese cmpthese); use Encode; my $count = shift // 100; my $text = encode('cp932', decode('utf8', 'これはテストです')); cmpthese(timethese($count,
livedoor Techブログ : 変な CAPTCHA だっていいじゃないか にほんじんだもの
こんにちは。開発のシニアスペシャリストをやっております、通称「にぽたん」こと谷口公一です。 私たちが日頃使っているネット上のサービスで、web 上のフォームの最後等に「ここに書かれている文字を入力してください」のように、絵に描かれた文字を目で読み取って入力するよう求められる場合があります。 言うまでもありませんが、これは通称「キャプチャ (CAPTCHA)」と呼ばれているもので、画像データは、人間ならそれを肉眼で認識して入力が行なえますが、機械には少し難しくなるため、フォームに文字を入力しているのが、機械ではないことを判定するためにこういう仕組みが存在します。 世の中にある CAPTCHA は、やたらと字がグチャグチャで読み取るのが非常に困難なケースもあります。 これは当然、安易に、白地に黒い文字を書いたような単純な画像を CAPTCHA に用いれば、それを解読するシステムは簡単に開発出来
Imagerで画像を傾ける - hack my life
Imagerで画像を加工して、斜めに20℃傾けてみました。 もと画像はこちら use Imager; # 写真の読み込み my $photo = new Imager; $photo->read(file => $photo_file) or die $photo->errstr; # 写真を傾ける $photo = $photo->rotate( degrees => 20 ); # キャンバスとなるオブジェクト my $canvas = new Imager( xsize => 300, ysize => 350, channels => 4 ); # 写真のリサイズ $photo = $photo->scale( xpixels => 300, ypixels => 300, ); # キャンバスに写真を貼り付け $
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Imager::Graph のサンプル - 日向夏特殊応援部隊
今、ちょうど簡単なお仕事でグラフ出さないといけないので、適当に書いてみた。GD::Graph の出力はどう見ても切ない貧弱な表示なので今回は触れない。 #!/usr/bin/perl use utf8; use strict; use warnings; use Carp; use Imager; use Imager::Graph::Pie; my $chart = Imager::Graph::Pie->new; my $font = Imager::Font->new( file => '/path/to/example.ttf', aa => 1 ); $chart->set_style('primary'); $chart->set_font($font); my $img = $chart->draw( width => 500, height => 500, font =>
Perlでアニメ顔を検出＆解析するImager::AnimeFace - デー
というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ
ImagerとImage::Magickのよく使うメソッドをまとめてみた - 80nikki
簡単に違いを書くと Imagerはインターフェースがかっけえ Image::Magickはなんか枯れてる 速度はあんまかわんない ファイル読み込み、書き出し、エラー出力 Imager my $img = Imager->new; $img->read(file => $filename) or warn $img->errstr; $img->write(file => $filename) or warn $img->errstr; Image::Magick my $img = Image::Magick->new; $err = $img->Read($filename); $err = $img->Write($filename); $err = $img->Read('-'); # 標準入力から読み込み $err = $img->Write('png:-'); # 標準出力へ書き
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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
今日のCPANモジュール（跡地） 目次