[Perl]Imagerで新書ジェネレータ

Imagerで新書ジェネレータを作ってみました。ローカルで実行するタイプです。

講談社現代新書専用です。以下ソースとテンプレート画像になります。
新書を出す前にこれでイメージをつかむと良いかもしれません。

use Imager;
use utf8;

my $image = Imager->new;
$image->read( file => 'shinsyo_tmpl.jpg' );
my $ttfont = Imager::Font->new(file => 'HONYA-JI.ttf');

$ttfont->align(string => 'シナモンを見下す若者たち',
             size => 20,
             color => 'black',
             x => 10,
             y => 30,
             halign => 'start',
             image => $image);

$ttfont->align(string => '近藤しなもん',
             size => 18,
             color => 'black',
             x => 10,
             y => 55,
             halign => 'start',
             image => $image);

$image->write( file => 'shinsyo.jpg' );

• テンプレート画像(shinsyo_tmpl.jpg)

Imagerって多機能で便利ですね。Image::Magickを使ってきたのですが、Perlで書くのであれば、こちらの方が良さそうです。

他人を見下す若者たち (講談社現代新書)