# This program and its documentation are free software; you can
# redistribute them and/or modify them under the terms of the GNU
# General Public License as published by the Free Software Foundation;
-# either version 2, or (at your option) any later version.
+# either version 3, or (at your option) any later version.
#
# This program and its documentation are distributed in the hope that
# they will be useful, but WITHOUT ANY WARRANTY; without even the
# PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+# with this program; if not, consult the Free Software Foundation's
+# website at www.fsf.org, or the GNU Project website at www.gnu.org.
die if @ARGV;
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.4 2007-09-21 21:21:15 ianmdlvl Exp $