ちょっと横恋慕う

Program Perl CGI

PerlImageMagick

PerlでImageMagickを使ってみました。

#!/usr/bin/perl -w
use strict;

use Jcode;
use Image::Magick;

#合成したい文字列
my $text	=	'ABC日本語123';
#UTF-8へ変換
$text		=	jcode($text)->utf8();
my $image		=	Image::Magick->new();

$image->Set('size'	=>	'300x250');
$image->ReadImage('xc:white');

$image->Draw(
	'primitive'	=>	'line'
	,'points'	=>	'20,20 100,100'
	,'stroke'	=>	'#FFFF00'
);

#文字を記入する
$image->Annotate(
	'text'			=>	$text
	,'stroke'		=>	'#FFFFFF'
	,'fill'			=>	'#005599'
	,'font'			=>	'C:\WINDOWS\Fonts\HGRPP1.TTC'
	,'pointsize'	=>	'36'
	,'x'			=>	'20'
	,'y'			=>	'40'
	,'encoding'		=>	'UTF-8'
);

$image->Border(
	'width'		=>	10
	,'height'	=>	10
	,'fill'		=>	'#DD9922'
);

$image->Magnify();
print("Content-type: image/png\n\n");
binmode(STDOUT);
$image->Write('png:-');

undef($image);

久しぶりの感覚です。
こんなProgramがしたいっす。

出来れば、Pythonでもあるので使えればな〜〜。
C++でもええな〜〜。


mimic28号でした。