loncom/homework/randomlylabel.pm - diff

Return to randomlylabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

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();