X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=scripts%2Fgnucap2genspic;h=60722d606965746a6f949adb5341b00cb1cc3857;hb=3bb39ceb52246012eef1db346bbc109192d3eb5a;hp=d7eed1ed9eb9744e1565fee3d3b588a190efd0c0;hpb=6e7c525d2d9e43a0132c1b59b75685a4bb4be018;p=chiark-utils.git

diff --git a/scripts/gnucap2genspic b/scripts/gnucap2genspic
index d7eed1e..60722d6 100755
--- a/scripts/gnucap2genspic
+++ b/scripts/gnucap2genspic
@@ -44,18 +44,18 @@ 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 $!;
     }
@@ -84,7 +84,7 @@ for (;;) {
 	endplot();
 	$kind= $1;
 	@columns= split /\s+/;
-	$cplot= $kind.($counter{$kind}++);
+	$cplot= $kind;
 	startplot();
 	next;
     } elsif (!defined $kind) {
@@ -106,4 +106,4 @@ die "no plots" unless 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 $