version 1.1, 2002/11/08 14:37:42
|
version 1.2, 2002/11/13 23:52:41
|
Line 49 sub handler {
|
Line 49 sub handler {
|
my $subimage = Image::Magick->new; |
my $subimage = Image::Magick->new; |
$subimage->Read('filename' => $ENV{"form.IMG$i"}); |
$subimage->Read('filename' => $ENV{"form.IMG$i"}); |
$image->Composite('x' => $ENV{"form.X$i"},'y' => $ENV{"form.Y$i"}, |
$image->Composite('x' => $ENV{"form.X$i"},'y' => $ENV{"form.Y$i"}, |
'compose'=> 'Over', 'image' => $subimage); |
'compose'=> 'Over', 'image' => $subimage, |
|
'gravity' => 'NorthWest'); |
undef($subimage); |
undef($subimage); |
} |
} |
for(my $i=0;$i<$ENV{"form.COUNT"};$i++) { |
for(my $i=0;$i<$ENV{"form.COUNT"};$i++) { |
$image->Annotate('text' => $ENV{"form.LB$i"},'x' => $ENV{"form.X$i"}, |
$image->Annotate('text' => $ENV{"form.LB$i"},'x' => $ENV{"form.X$i"}, |
'y' => $ENV{"form.Y$i"}, 'font' => 'Times-Bold', |
'y' => $ENV{"form.Y$i"}, 'font' => 'Times-Bold', |
'pointsize' => 18, 'antialias' => 'true'); |
'pointsize' => 18, 'antialias' => 'true', |
|
'gravity' => 'NorthWest'); |
} |
} |
$image->Set('magick'=>'png'); |
$image->Set('magick'=>'png'); |
my @blobs=$image->ImageToBlob(); |
my @blobs=$image->ImageToBlob(); |