Kawaninon.com

テキストを描画したpangoの画像をPerlモジュールのImage::Magickで生成

PerlモジュールのImage::Magickを使用して、テキストを描画したpangoの画像を出力しました。Setメソッドからフォントやキャンバスサイズに背景色等を設定して、ReadImageメソッドから処理を実行しています。(平成21年04月26日)

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Image::Magick;
 
my $image = Image::Magick->new(magick => "png");
$image->Set(
    background => "None",
    font       => "Monaco",
    gravity    => "Center",
    pointsize  => 32,
    size       => "600x"
);
$image->ReadImage("pango:Hello world!");
 
print "Content-type: image/png\n\n";
$image->Write("png:-");
undef $image;
 
exit;

サンプルコードと出力結果です。テキストを描画したpangoの画像を出力しました。Setメソッドのキャンバスサイズを横のみに指定した場合は、出力されるフォントのサイズにキャンバスの高さが設定されました。