T 1e12);
sub startplot () {
- $logy2= 0;
+ $logxy= 0;
for ($yn=1; $yn<=$#columns; $yn++) {
$mmm[$yn]= 'y';
}
if ($kind eq 'Freq') {
- $logy2= 1;
+ $logxy= 1;
for ($yn=1; $yn<=$#columns; $yn++) {
die unless $columns[$yn] =~ m/.*([MP])\(\d+\)$/i;
$mmm[$yn]= 'y2' if uc $1 eq 'P';
}
}
- printf "S %s %d", $cplot, $logy2 or die $!;
+ printf "S %s %d", $cplot, $logxy or die $!;
for ($yn=1; $yn<=$#columns; $yn++) {
printf " %s:%s", $mmm[$yn], $columns[$yn] or die $!;
}
endplot();
$kind= $1;
@columns= split /\s+/;
- $cplot= $kind.($counter{$kind}++);
+ $cplot= $kind;
startplot();
next;
} elsif (!defined $kind) {
endplot();
print "F\n" or die $!;
-# $Id: gnucap2genspic,v 1.1 2004-03-24 23:53:41 ianmdlvl Exp $
+# $Id: gnucap2genspic,v 1.2 2004-03-25 00:29:59 ianmdlvl Exp $