--- loncom/homework/convertjme.pl 2005/02/02 20:08:05 1.12 +++ loncom/homework/convertjme.pl 2005/02/09 21:50:06 1.13 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # Dynamically converts JME strings into either a png or ps file. # -# $Id: convertjme.pl,v 1.12 2005/02/02 20:08:05 albertel Exp $ +# $Id: convertjme.pl,v 1.13 2005/02/09 21:50:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -396,7 +396,7 @@ foreach my $struct (@all_structs) { (shift @formula) =~ /([A-Z][a-z]?)(\d*)/; my $carrige = $x[$i]-stringWidth($1)/2; $carrige = printElement ($1,$2,$carrige,$y[$i]); - my $y = (@formula > 0) ? $y[$i] + fm2cm(800) : $y[$i]; + my $y = (@formula > 0) ? $y[$i] + fm2cm(900) : $y[$i]; $carrige = (@formula > 0) ? $x[$i]-stringWidth($1)/2 : $carrige; foreach (@formula) { @@ -409,7 +409,7 @@ foreach my $struct (@all_structs) { (shift @formula) =~ /([A-Z][a-z]?)(\d*)/; my $carrige = $x[$i]-stringWidth($1)/2; $carrige = printElement ($1,$2,$carrige,$y[$i]); - my $y = (@formula > 0) ? $y[$i] + fm2cm(-800) : $y[$i]; + my $y = (@formula > 0) ? $y[$i] + fm2cm(-900) : $y[$i]; $carrige = (@formula > 0) ? $x[$i]-stringWidth($1)/2 : $carrige; foreach (@formula) {