loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.73, 2005/05/16 21:58:19	version 1.74, 2005/05/23 11:02:13
Line 174 sub end_bgimg {	Line 174 sub end_bgimg {


if ($src =~ /^\\graphicspath/) {	if ($src =~ /^\\graphicspath/) {
$height_param = $Apache::lonplot::plot{'height'}*0.3;	$height_param = $Apache::lonplot::plot{'height'};
$width_param = $Apache::lonplot::plot{'width'}*0.3;	my $initial_width= $Apache::lonplot::plot{'width'};
	$width_param = $Apache::lonplot::plot{'texwidth'};
	$scale_factor = $width_param / $initial_width;
	$height_param = $height_param*$scale_factor;
&Apache::lonxml::debug("height $height_param");	&Apache::lonxml::debug("height $height_param");
&Apache::lonxml::debug("Width $width_param");	&Apache::lonxml::debug("Width $width_param");
$scale_factor=1.0;
my $dirty_width = $width_param + 5;	my $dirty_width = $width_param + 5;
$result .= '\parbox{'.$dirty_width.'mm}{';	$result .= '\parbox{'.$dirty_width.'mm}{';
$result .= $src;	$result .= $src."\n";
	$result .= '\setlength{\unitlength}{1mm}'."\n";
$result .= '\begin{picture}('."$height_param,$width_param)";	$result .= '\begin{picture}('."$height_param,$width_param)";
$result .= "(0,-$height_param)";	$result .= "(0,-$height_param)";
	$result .= "\n";

} else {	} else {