@@ -4,6 +4,7 @@

[chiark-utils.git] / scripts / genspic2gnuplot

diff --git a/scripts/genspic2gnuplot b/scripts/genspic2gnuplot
index 86df13e4ae71da7aa3919a5b0cfcac684b659f9d..11ee8b82d2a19476f288df27ce7f2f62a3b6f980 100755 (executable)
--- a/scripts/genspic2gnuplot
+++ b/scripts/genspic2gnuplot
@@ -52,18 +52,18 @@ END
 
 for (;;) {
     ($c,@s)= split /\s+/, <STDIN>;
-print STDERR ">$c< >@s<\n";
     if ($c eq 'S') {
-       ($cplot,$logy2,@columns) = @s;
+       ($cplot,$logxy,@columns) = @s;
+       $cplot .= $counter{$cplot}++;
        unshift @columns, 'x:';
        @mmm= map { s/^(\w+)\:// or die; $1; } @columns;
        open S, "> $ofb,$cplot.gnuplot-cmd" or die $!;
        print S <<END
-set data style linespoints
+set data style lines
 set title '$cplot'
 END
         or die $!;
-       print S "set logscale xy\n" or die $! if $logy2;
+       print S "set logscale xy\n" or die $! if $logxy;
        print S "set y2tics autofreq\n" or die $! if grep { $_ eq 'y2' } @mmm;
        undef %min;
        undef %max;
@@ -95,7 +95,6 @@ END
     } elsif ($c eq 'D') {
        die unless @mmm;
        @numbers= @s;
-print STDERR "$#numbers $#columns.\n";
        die unless @numbers == @columns;
        for ($yn=0; $yn<=$#columns; $yn++) {
            $_= $numbers[$yn];
@@ -125,4 +124,4 @@ close A or die $!;
 
 print ": generated ; $sof\n" or die $!;
 
-# $Id: genspic2gnuplot,v 1.1 2004-03-24 23:53:41 ianmdlvl Exp $
+# $Id: genspic2gnuplot,v 1.4 2004-03-25 02:04:48 ianmdlvl Exp $