Imager 0.78〜0.79 で GIF のエンコードが異常におそい件 - tokuhirom's blog
https://rt.cpan.org/Public/Bug/Display.html?id=64785 Imager 0.78 以後で、なぜか gif の圧縮がおそいのではないかということを id:clouder さんにおしえていただいたので、ベンチマークをとって、本家に feedback しておいた。モジュールの分離によって若干おそくなるというのはまあかんがえられるのだが、これはさすがに遅すぎる。 Imager 0.75 までをつかっていて、Imager 0.78 以後にアップデートする場合、50倍遅くなるということなので、なおるまではモジュールのバージョンアップ時には注意してください。 #!/usr/bin/perl use strict; use warnings; use utf8; use Benchmark ':all'; use Config; use lib; # cpa
iandeth. - 日本語対応 文字組み→画像描画 Module 作ってみた - 初 CPAN Module 登録
初めて CPAN に module をアップしてみました。HOWTO についていろんなドキュメント読みつつ、週末嫁を寝かしつけた上でこっそりと module 用の pod ドキュメントを書きつつ... やっとこさ形になりました。これで気分はいっぱしの Perl 野郎（気分だけ？）。 http://search.cpan.org/~bashi/ 以下モジュールの簡単な概要です。詳細は CPAN 上のドキュメントを参照って事で。 名前 Imager::DTP - 画像に対して文字を描画するモジュール。マルチバイト文字対応で、さらにDTPアプリちっくなオプション機能付き。 概要 元は、情報誌制作システム系の業務案件にて ブラウザ入力した情報を、即座に、情報誌体裁に落とし込んだJPEG画像として同ブラウザ上で確認したい。 というニーズに対して Perl を用いて実現検討した結果できたものです。検討
Imager::DTP - sample viewer - ja
画像に描画させる任意の文字列をテキストボックスに入力、横書き／縦書きのどちらかを選択、任意のフォントをプルダウンから選択、フォントサイズを半角数字で入力 ... 以上すべてを入力し終わったら最後に「反映」ボタンを押してください。Imager::DTP を使って動的に生成された画像が別ウィンドウにて表示されます。 文字列 横書き／縦書き 横書き 縦書き フォント フォントサイズ pt. 使用している True Type Font: VLゴシックフォントファミリ Mac見やすいOsakaフォントをWinで使おうプロジェクト これらのオプションを指定することでさらに細かな調整が可能になります。任意のオプションの値を変更させたうえで、反映ボタンを押してください。Imager::DTP を使って動的に生成された画像が別ウィンドウにて表示されます。※フォーム上の初期値はそのまま Imager::DTP
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, ); # キャンバスに写真を貼り付け $
Imagerを使おう - 第3回「文字を書く」
ちょっと間があいてしまいましたが、第3回を公開します。今回は画像に文字を書く方法をご紹介したいと思います。(決っして熱が冷めたわけではないで、いやほんとにほんとにｗ) Imagerには、文字を書くためのモジュールとAPIが用意されていて使い方も簡単。それでいて、いろいろな細かい設定ができたりします。 とりあえずサンプルコードと生成された画像を見てみましょう。 ※ちなみに文字を書く(フォントを扱う)にはImagerの他にfreetype1.x(freetype2.xでもok)をインストールしておく必要があります。詳しくはImager::Fontを参照のこと。 #!/usr/local/bin/perl use strict; use Imager; my $string = "Let's use Imager."; my $font = Imager::Font->new( file =>
YappoLogs: Imager::ExifOrientation - Exifの情報を元にして画像を回転するよ
Imager::ExifOrientation - Exifの情報を元にして画像を回転するよ 全国的にみんな真面目だな〜。勉強会の目的なんてないよ。楽しいからやっている。それで何が悪いのかな？の実況中継、その勉強会への 参加そのものについてちょっと考えなおした方がいいかもしれない。 Imager::ExifOrientationをCPANにうpりました。 Exif の Orientation というパラメータを元にして回転済みのImagerオブジェクトを返します。 一緒に Imager::Filter::ExifOrientation もバンドルしてるので、filterとしても利用出来ます。 Orientationは何かと言うと、カメラに縦方向センサーが入ってる機種で、画像に対してカメラの上方向はどちらかというような情報が入っている所です。 わかり易い説明は500で見れないのでgoogle
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 =>
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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
