#!/usr/bin/env perl -w
# Sun Aug 21 16:24:53 JST 2005
# Copyright(C) 2005 Sato Makoto
# create a png file 
# just read "PlamoLinux.txt" ^_^;

use strict;
use Image::Magick;

my ($image, $status, $background );

$image = Image::Magick -> new;
$image -> Set(size => '1700x2266');
$background = 'xc:black';
$status = $image -> Read(filename => $background);
warn "$status" if $status;

$status = $image -> Annotate(
  text => '@PlamoLinux.txt',
  font => '-adobe-courier-medium-r-normal--10-100-75-75-m-60-iso8859-1',
  fill => 'white',
  x => 10,
  y => 20,
  );
warn "$status" if $status;

# cannot rotate as I thought ^_^;
#$image -> Set(bordercolor=>'#FFFFFF');
#$image -> Rotate(degrees => 270,
#         crop=>0,
#         sharpen=>1);
#$image -> Trim();

$status = $image -> Write('png:image.png');
#$image -> Zoom('640x480');
#$status = $image -> Write('xpm:image.xpm');
warn "$status" if $status;

undef $image;