#!/usr/bin/env perl -w
# perl/GNU ソフトウェアによる
# Webグラフィックスプログラミング
# P120 のサンプルコード(一部改)

use strict;
use Image::Magick;

#my($image, $status);
# $cubeを入れないと動かなかった
my($image, $status, $cube);

$image = Image::Magick->new;

# 自分の状況にあわせて変更
$status = $image->Read('pie?.gif');
warn "$status" if "$status";

$image->Transparent('#FFFFFF');
# 多分不要
# image->Zoom('50%');

$cube = Image::Magick->new;
$status = $cube->Read('NETSCAPE:');
warn "$status" if "$status";
$image->Map($cube);

$status = $image->Set(loop=>0,
			dispose=>2);

# 自分の状況にあわせて変更
$status = $image->Write("gif:allpie.gif");

warn "$status" if "$status";

undef $image;