|
version 1.31, 2002/07/22 17:15:55
|
version 1.33, 2002/08/02 18:20:48
|
|
Line 116 sub start_randomlabel {
|
Line 116 sub start_randomlabel {
|
| } |
} |
| $bgimg=~s/\/$//; |
$bgimg=~s/\/$//; |
| if ($texwidth==90) { |
if ($texwidth==90) { |
| $result.='\vspace*{2mm} \noindent \epsfxsize='.$texwidth.' mm \epsffile{'. |
$result.='\vspace*{2mm} \parbox{\textwidth}{ \noindent \epsfxsize='.$texwidth.' mm \epsffile{'. |
| $bgimg.'}\setlength{\unitlength}{1mm} \begin{picture}('.$texwidth.','.$texwidth*$h/$w.')'; |
$bgimg.'}\setlength{\unitlength}{1mm} \begin{picture}('.$texwidth.','.$texwidth*$h/$w.')'; |
| } else { |
} else { |
| $result.='\vspace*{2mm} \noindent \epsfxsize='.$texwidth.' mm \epsffile{'. |
$result.='\vspace*{2mm} \parbox{\textwidth}{ \noindent \epsfxsize='.$texwidth.' mm \epsffile{'. |
| $bgimg.'}\setlength{\unitlength}{1mm} \begin{picture}('.$texwidth.','.$texwidth*$h/$w.')('.(100-$texwidth).','.(100-$texwidth)*$h/$w.')'; |
$bgimg.'}\setlength{\unitlength}{1mm} \begin{picture}('.$texwidth.','.$texwidth*$h/$w.')('.(100-$texwidth).','.(100-$texwidth)*$h/$w.')'; |
| } |
} |
| } elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
|
Line 155 sub end_randomlabel {
|
Line 155 sub end_randomlabel {
|
| if( $count != 0) { $result.= "<param name=\"ICOUNT\" value=\"$count\">\n"; } |
if( $count != 0) { $result.= "<param name=\"ICOUNT\" value=\"$count\">\n"; } |
| $result .= "</applet>\n<BR />"; |
$result .= "</applet>\n<BR />"; |
| } elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
| $result='\end{picture}\\\\'; |
$result='\end{picture}\\\\}'; |
| if (@$parstack[-1]=~/\$texwidth\s*=\s*?"90/) { #" |
if (@$parstack[-1]=~/\$texwidth\s*=\s*?"90/) { #" |
| @$parstack[-1]=~/\$height\s*=\s*?"(.+)?"/; |
@$parstack[-1]=~/\$height\s*=\s*?"(.+)?"/; |
| my $howtoskipback = $1/45; |
my $howtoskipback = $1/48; |
| $result.=' \vskip -'.$howtoskipback.' cm '; |
$result.=' \vskip -'.$howtoskipback.' cm '; |
| } |
} |
| } elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to randomlabel.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework