for (;;) {
($c,@s)= split /\s+/, <STDIN>;
-print STDERR ">$c< >@s<\n";
if ($c eq 'S') {
($cplot,$logxy,@columns) = @s;
$cplot .= $counter{$cplot}++;
@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 $!;
} 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];
print ": generated ; $sof\n" or die $!;
-# $Id: genspic2gnuplot,v 1.2 2004-03-25 00:29:59 ianmdlvl Exp $
+# $Id: genspic2gnuplot,v 1.4 2004-03-25 02:04:48 ianmdlvl Exp $