Quote:
got into it after having to get image sizes with it
That was overkill :) ...should have used Image::Size
Regarding your code trying adding:
print
..before each method call, eg..
print $image->ReadImage( "xc:white" );
...it should then display any errors.
This is working code I use on perlwhirl.com, try this...
Code:
use Image::Magick;
my $image = Image::Magick->new();
print $image->Set( size => "100x50");
print $image->ReadImage('xc:white');
print $image->Colorize( fill => 'red' );
print $image->Border( width => 5, height => 5, fill => 'blue' );
print $image->Raise( width => 5, height => 5, raise => 'True' );
print $image->Wave( amplitude => 5, wavelength => 30 );
print $image->Swirl( degrees => 300 );
print "Content-type: image/gif\n\n";
binmode STDOUT;
print $image->Write('gif:-');
