loncom/homework/convertjme.pl - diff

Return to convertjme.pl CVS log

Up to [LON-CAPA] / loncom / homework

version 1.12, 2005/02/02 20:08:05	version 1.13, 2005/02/09 21:50:06
Line 396 foreach my $struct (@all_structs) {	Line 396 foreach my $struct (@all_structs) {
(shift @formula) =~ /([A-Z][a-z]?)(\d*)/;	(shift @formula) =~ /([A-Z][a-z]?)(\d*)/;
my $carrige = $x[$i]-stringWidth($1)/2;	my $carrige = $x[$i]-stringWidth($1)/2;
$carrige = printElement ($1,$2,$carrige,$y[$i]);	$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 =	$carrige =
(@formula > 0) ? $x[$i]-stringWidth($1)/2 : $carrige;	(@formula > 0) ? $x[$i]-stringWidth($1)/2 : $carrige;
foreach (@formula) {	foreach (@formula) {
Line 409 foreach my $struct (@all_structs) {	Line 409 foreach my $struct (@all_structs) {
(shift @formula) =~ /([A-Z][a-z]?)(\d*)/;	(shift @formula) =~ /([A-Z][a-z]?)(\d*)/;
my $carrige = $x[$i]-stringWidth($1)/2;	my $carrige = $x[$i]-stringWidth($1)/2;
$carrige = printElement ($1,$2,$carrige,$y[$i]);	$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 =	$carrige =
(@formula > 0) ? $x[$i]-stringWidth($1)/2 : $carrige;	(@formula > 0) ? $x[$i]-stringWidth($1)/2 : $carrige;
foreach (@formula) {	foreach (@formula) {