loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.77, 2005/06/07 22:31:30	version 1.78, 2005/06/28 14:58:23
Line 206 sub end_bgimg {	Line 206 sub end_bgimg {
# If the tag produced has sizes, they override ours.	# If the tag produced has sizes, they override ours.
# (for now anyway).	# (for now anyway).
#	#

&Apache::lonxml::debug("Base sizes: $width_param x $height_param");	&Apache::lonxml::debug("Base sizes: $width_param x $height_param");

my ($plot_x, $plot_y) = &extract_tag_sizes($bgimg,	my ($plot_x, $plot_y) = &extract_tag_sizes($bgimg,
$width_param,	$width_param,
$height_param );	$height_param);
&Apache::lonxml::debug("Extracted sizes: $plot_x x $plot_y");	&Apache::lonxml::debug("Extracted sizes: $plot_x x $plot_y");
$label_xscale = $plot_x / $width_param;	if ($width_param) {
$label_yscale = $plot_y / $height_param;	$label_xscale = $plot_x / $width_param;
	}
	if ($height_param) {
	$label_yscale = $plot_y / $height_param;
	}
&Apache::lonxml::debug("Scale factors: $label_xscale $label_yscale");	&Apache::lonxml::debug("Scale factors: $label_xscale $label_yscale");

&Apache::lonxml::debug("Image: $bgimg");	&Apache::lonxml::debug("Image: $bgimg");
Line 272 sub end_bgimg {	Line 275 sub end_bgimg {
$Apache::lonxml::debug = 0;	$Apache::lonxml::debug = 0;

} else {	} else {


$result.=&make_eps_image($bgimg,$parstack,$safeeval,-2);	$result.=&make_eps_image($bgimg,$parstack,$safeeval,-2);
}	}
}	}