with bullseye previous Perl script
use Graphics::Magick;
my $bg=Graphics::Magick->new;
$bg->Set(size=>"1000"."x"."1000");
$bg->ReadImage('xc:white');
$bg->Draw(primitive=>'rectangle',stroke=>'red',points=>"100,100
980,980");
$bg->Draw(primitive=>'rectangle',stroke=>'blue',points=>"20,20
400,400");
my $filename = "test.png";
$bg->Write(filename=>$filename);
$bg=undef;
would result in outlines of 2 rectangles overlaid on white.
but with bookworm same thing results in 2 rectangles filled with black.
to get same result have to change to
$bg->Draw(primitive=>'rectangle',stroke=>'red',points=>"100,100
980,980",fill=>'false');
Is this because bookworm is work in progress ?
regards
mick
--
Key ID 4BFEBB31
