loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.84, 2006/11/06 23:44:42	version 1.85, 2006/11/07 02:39:58
Line 296 sub make_eps_image {	Line 296 sub make_eps_image {
&Apache::lonxml::debug("Image size: $height_param x $width_param");	&Apache::lonxml::debug("Image size: $height_param x $width_param");

my $dirtywidth=$width_param+5;	my $dirtywidth=$width_param+5;
#
# Note that lonprintout/prinout will conspire to replace
# spaces in paths and names with _'s since spacess cause problems
# for latex included filenames. Therefore:
#
my $safe_path = $path;
my $safe_file = $file;

my $result ="\n".'\vspace*{2mm}\noindent'."\n".	my $result ="\n".'\vspace*{2mm}\noindent'."\n".
'\parbox{'.$dirtywidth.	'\parbox{'.$dirtywidth.
' mm}{ \noindent \epsfxsize='.$width_param.	' mm}{ \noindent \epsfxsize='.$width_param.
' mm \epsffile{'.$safe_path.$safe_file.	' mm \epsffile{'.$path.$file.
'}\setlength{\unitlength}{1mm}'."\n".' \begin{picture}('.	'}\setlength{\unitlength}{1mm}'."\n".' \begin{picture}('.
$width_param.','.$height_param.')(0,-'.$height_param.')'."\n";	$width_param.','.$height_param.')(0,-'.$height_param.')'."\n";
my $magick = Image::Magick->new;	my $magick = Image::Magick->new;