version 1.66, 2005/03/16 21:35:17
|
version 1.71, 2005/04/12 21:41:28
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# 7/20/2001 Isaac Tsai, initial syntax |
|
# 8/10/2001 Isaac Tsai, |
|
# 8/30/2001 Isaac Tsai, |
|
# SYNTAX: |
# SYNTAX: |
# <randomlabel bgimg="URL" width="12" height="45" texwidth="50"> |
# <randomlabel bgimg="URL" width="12" height="45" texwidth="50"> |
# <labelgroup name="GroupOne" type="image"> |
# <labelgroup name="GroupOne" type="image"> |
Line 176 sub make_eps_image {
|
Line 173 sub make_eps_image {
|
&Apache::londefdef::image_size($bgimg,0.3,$parstack,$safeeval, |
&Apache::londefdef::image_size($bgimg,0.3,$parstack,$safeeval, |
$depth,1); |
$depth,1); |
my $dirtywidth=$width_param+5; |
my $dirtywidth=$width_param+5; |
my $result.='\vspace*{2mm}\noindent \parbox{'.$dirtywidth. |
my $result ="\n".'\vspace*{2mm}\noindent'."\n". |
|
'\parbox{'.$dirtywidth. |
' mm}{ \noindent \epsfxsize='.$width_param. |
' mm}{ \noindent \epsfxsize='.$width_param. |
' mm \epsffile{'.$path.$file. |
' mm \epsffile{'.$path.$file. |
'}\setlength{\unitlength}{1mm} \begin{picture}('. |
'}\setlength{\unitlength}{1mm}'."\n".' \begin{picture}('. |
$width_param.','.$height_param.')(0,-'.$height_param.')'; |
$width_param.','.$height_param.')(0,-'.$height_param.')'."\n"; |
return $result; |
return $result; |
} |
} |
|
|
Line 201 sub start_labelgroup {
|
Line 199 sub start_labelgroup {
|
@Apache::randomlabel::ycoord = (); |
@Apache::randomlabel::ycoord = (); |
@Apache::randomlabel::value = (); |
@Apache::randomlabel::value = (); |
@Apache::randomlabel::label_arr = (); |
@Apache::randomlabel::label_arr = (); |
@Apache::randomlabel::decription = (); |
@Apache::randomlabel::description = (); |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::text_arg('Name:','name',$token). |
$result.=&Apache::edit::text_arg('Name:','name',$token). |
Line 304 sub end_labelgroup {
|
Line 302 sub end_labelgroup {
|
my $tcY=$height_param-$y*($height_param/$wheight); |
my $tcY=$height_param-$y*($height_param/$wheight); |
$tcX=sprintf('%.2f',$tcX); |
$tcX=sprintf('%.2f',$tcX); |
$tcY=sprintf('%.2f',$tcY); |
$tcY=sprintf('%.2f',$tcY); |
$result.='\put('.$tcX.','.$tcY.'){'.$TeXsize.' \bf '.$label.'}'."\n"; |
$result .= '\put('.$tcX.','.$tcY.'){'; |
if( $type eq 'text') { |
if( $type eq 'text') { |
|
$result.= $TeXsize.' \bf '.$label."}\n"; |
&add_vars($gname,$i,$label,$idx_arr[$i],$value,'',$safeeval); |
&add_vars($gname,$i,$label,$idx_arr[$i],$value,'',$safeeval); |
} elsif ( $type eq 'image') { |
} elsif ( $type eq 'image') { |
|
my ($path,$file) = &Apache::londefdef::get_eps_image($label); |
|
my $image_name = $path.$file; |
|
$result .= '\includegraphics{' |
|
.$image_name."}}\n"; |
&add_vars($gname,$i, |
&add_vars($gname,$i, |
$Apache::randomlabel::description[$idx_arr[$i]], |
$Apache::randomlabel::description[$idx_arr[$i]], |
$idx_arr[$i],$value,$label,$safeeval); |
$idx_arr[$i],$value,$label,$safeeval); |
Line 405 sub end_label {
|
Line 408 sub end_label {
|
my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval,-2); |
my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval,-2); |
my $ltext=&Apache::lonxml::endredirection; |
my $ltext=&Apache::lonxml::endredirection; |
if ($type eq 'image') { |
if ($type eq 'image') { |
|
if ($target eq 'tex') { |
|
# For tex targets, our image url has been potentially corrupted |
|
# by prepending \'s in front of special latex symbols. |
|
# For now we only worry about the _ case (most common?) |
|
# There's a whole host of theim in lonxml::latex_special_symbols |
|
# that could potentially have to be re-done. |
|
|
|
$ltext =~ s/\\_/_/g; |
|
} |
&Apache::lonxml::debug("Turning $ltext, $Apache::lonxml::pwd[-1]"); |
&Apache::lonxml::debug("Turning $ltext, $Apache::lonxml::pwd[-1]"); |
$ltext=&Apache::imageresponse::clean_up_image($ltext); |
$ltext=&Apache::imageresponse::clean_up_image($ltext); |
# $ltext=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1], |
# $ltext=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1], |