エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
http://e8y.net/repos/DQmaker/trunk/misc/dq-imager.pl
記事へのコメント1件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
http://e8y.net/repos/DQmaker/trunk/misc/dq-imager.pl
use strict; use List::Util qw( max ); use Imager; use Imager::Font::Wrap; use utf8; my $photo_fil... use strict; use List::Util qw( max ); use Imager; use Imager::Font::Wrap; use utf8; my $photo_file = "360621461_117a18148c.jpg"; my $message = "ここは あおやま。 とうきょうの つぼ\nだという うわさのある こうえん。"; # キャンバスとなるオブジェクト my $canvas = new Imager( xsize => 450, ysize => 370 ); # 写真の読み込み my $photo = new Imager; $photo->read(file => $photo_file) or die $photo->errstr; # Maxでリサイズ my $rate = max( $canvas->getwidth / $phot