On Thu, 21 Mar 2002 14:12:16 -0500, [EMAIL PROTECTED] (Dave K) wrote:
>I have a cgi script-
>
>#!C:/Perl/bin/perl -wT
>use strict;
>use CGI;
>my $q = new CGI;
>binmode STDOUT;
>print $q->header(-type => "image/gif" );
>
>use Image::Magick;
>
>my $image=Image::Magick->new;
>$image->Set(size=>'30x1
I have a cgi script-
#!C:/Perl/bin/perl -wT
use strict;
use CGI;
my $q = new CGI;
binmode STDOUT;
print $q->header(-type => "image/gif" );
use Image::Magick;
my $image=Image::Magick->new;
$image->Set(size=>'30x180');
$image->Read("gradient:#ff-#ff");
$image->Raise('3x3');
$image->Rotate