loncom/homework/randomlylabel.pm - diff

Return to randomlylabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.7, 2003/02/27 21:30:55	version 1.8, 2003/02/27 21:36:27
Line 70 sub handler {	Line 70 sub handler {
return OK;	return OK;
}	}
#binmode(STDOUT);	#binmode(STDOUT);
my $black = $image->colorAllocate(0,0,0);	my $black;
	if (!($black=$image->colorResolve(0,0,0))) {
	$black = $image->colorClosestHWB(0,0,0);
	}
for(my $i=0;$i<$ENV{"form.ICOUNT"};$i++) {	for(my $i=0;$i<$ENV{"form.ICOUNT"};$i++) {
my $subimage=&get_image($ENV{"form.IMG$i"},1);	my $subimage=&get_image($ENV{"form.IMG$i"},1);
$image->copy($subimage,$ENV{"form.X$i"},$ENV{"form.Y$i"},	$image->copy($subimage,$ENV{"form.X$i"},$ENV{"form.Y$i"},