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) { |