Image::Magickをインストール

今更ですがWindows版をインストールしました。

• http://www.imagemagick.org/script/index.php
• http://www.imagemagick.org/script/binary-releases.php

1. Windows、dll版をダウンロードします
2. インストーラの途中、Select Additional Tasksで"Install Perlmagick for Active State Perl 5.10.1.."にチェックを入れます
3. インストールを実行します
4. 終了したらコマンドプロンプトを立ち上げ、テストします

> convert logo: logo.gif
> identify logo.gif
logo.gif GIF 640x480 640x480+0+0 8-bit PseudoClass 256c 38.3KB 0.000u 0:00.000
>imdisplay logo.gif
(魔法使いの画像が表示される)

use strict;
use warnings;
use Image::Magick;

my $image = Image::Magick->new;
$image->Set(size => '100x100');
$image->ReadImage('xc:white');

MAIN:{
	$image->Draw(
		primitive   => 'text',
		font        => 'C:\WINDOWS\Fonts\meiryo.ttc',
		points      => "50,50 Hello",
		pointsize   => 16,
	);
	$image->Draw(
		primitive   => 'line',
		points      => "0,50 100,50",
		antialias   => 'false',
	);
}

$image->Write(filename => 'test.png');

文字はAnnotateを使いますが、Drawでも描けた！びっくりしたのでメモ。
Image::Magickってマニュアルの説明が少なすぎて分からないことが多すぎです。