タグ

imageとperlに関するbsheepのブックマーク (10)

  • Get the width and height from images - Islands in the byte stream (legacy)

    Smartyって画像サイズを自動的に<img />に埋め込んだりするんですね。 というわけで、Perlで画像サイズを得るのに何が速いかベンチマークしてみました。 結果: Image::Info/1.30 Image::Size/3.221 Imager/0.75 GD/2.45 Rate GD Imager Image::Info Image::Size GD 77.2/s -- -69% -79% -100% Imager 251/s 226% -- -32% -99% Image::Info 368/s 377% 47% -- -99% Image::Size 37959/s 49074% 15002% 10203% --Image::Sizeがその他のモジュールよりも100倍以上の差をつけています。サイズを取るだけならpure PerlであるImage::Size以外の選択肢を考える

    Get the width and height from images - Islands in the byte stream (legacy)
  • ゆーすけべー日記

    サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ

    ゆーすけべー日記
  • Perlでアニメ顔を検出&解析するImager::AnimeFace - デー

    というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ

    Perlでアニメ顔を検出&解析するImager::AnimeFace - デー
  • ImageMagick – PerlMagick, Perl API

    Installation • Overview • Example Script • Read or Write an Image • Manipulate an Image • Set an Image Attribute • Get an Image Attribute • Compare an Image to its Reconstruction • Create an Image Montage • Working with Blobs • Direct-access to Image Pixels • Miscellaneous Methods • Handling Exceptions• Constant PerlMagick is an objected-oriented Perl interface to ImageMagick. Use the module to re

    ImageMagick – PerlMagick, Perl API
  • :: Cepheid :: - ImageMagickの使用例 | 画像を合成する

    単純な重ね合わせの例 Composite()を使うと2つの画像を重ね合わせて合成することが出来ます。簡単な例から始めます。 #!/usr/local/bin/perl -w use strict; use Image::Magick; # 元画像 my $file = "sample.jpg"; # 重ねる画像 my $file2 = "sample2.jpg"; # 元画像読み込む my $image = Image::Magick->new; $image->Read($file); # 重ねる画像を読み込む my $image2 = Image::Magick->new; $image2->Read($file2); # 重ねる画像のサイズ変更 $image2->Resize(width=>150, height=>105, blur=>0.7); # 画像を合成する $image-

  • http://blawat2015.no-ip.com/~mieki256/diary/img/20070606_mksfontimg_pl.txt

  • :: Cepheid :: - ImageMagickの使用例 | 画像へ文字を記入する

    文字を記入する例 文字を記入したい場合、Annotate()を使用します。画像内に任意の文字列を書き込むことが可能で、フォントフォントサイズ、位置、色など細かく調整できます。 #!/usr/local/bin/perl -w use strict; use Jcode; use Image::Magick; # 画像を指定 my $file = "sample.jpg"; # 合成したい文字列 my $text = "ABC123日語"; # UTF-8へ変換 $text = jcode($text)->utf8; # オブジェクト作成 my $image = Image::Magick->new; # 画像読み込み $image->Read($file); # 文字を記入する $image->Annotate(text=>$text, stroke=>'#FFFFFF', fill=

  • 昭和の写真ジェネレータの作り方 - 酒日記 はてな支店

    予想外に人気を博してしまった 昭和の写真ジェネレータ(仮) ですが、画像加工の方法を公開しておきます。 [追記] 以下のコードは説明用です。なお、実際に動いているコード(に限りなく近いもの) を 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 ); 少々ぼかします。(小さい

    昭和の写真ジェネレータの作り方 - 酒日記 はてな支店
  • 404 Blog Not Found:JPEGにファイルを隠させない方法

    2006年10月17日23:00 カテゴリ JPEGにファイルを隠させない方法 ああ、Warezと戦っていた頃が懐かしい。 秋元@サイボウズラボ・プログラマー・ブログ: jpegの中に別のファイルを隠す方法 jpeg形式のファイルの後に、rar(圧縮形式の一つ)を単純につなげると、普通に開くと画像が表示されて、rarの解凍ツールで開くとrarの部分が解凍できるファイルが作れるということだ。まだ今よりディスクがずっと貴重だった頃、無料ホームページサービスというのはこれとの戦いだった。 画像を交換しているフリをして何か他のものを交換したい人 たちがたくさんいたのだ。まあ今でもいるのかも知れないが、これだけ無料ホスティング(blog含む)の容量制限が緩和された昨今では昔ほどの需要はないのだろう。 ファイルを隠す方は簡単すぎ。解説なんかなくても cat good.jpg bad.rar > bad

    404 Blog Not Found:JPEGにファイルを隠させない方法
  • GD.pm - Gdグラフィックス・ライブラリへのインターフェース - perldoc.jp

    名前¶ GD.pm - Gdグラフィックス・ライブラリへのインターフェース 概要¶ use GD; # 新しいイメージを作成 $im = new GD::Image(100,100); # いくつかの色を確保 $white = $im->colorAllocate(255,255,255); $black = $im->colorAllocate(0,0,0); $red = $im->colorAllocate(255,0,0); $blue = $im->colorAllocate(0,0,255); # 背景色を透明にし、インターレース化 $im->transparent($white); $im->interlaced('true'); # 絵の周りを黒く縁取り $im->rectangle(0,0,99,99,$black); # 青い楕円形を描画 $im->arc(50,50,

  • 1