($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 $!;
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;
print ": generated ; $sof\n" or die $!;
-# $Id: genspic2gnuplot,v 1.1 2004-03-24 23:53:41 ianmdlvl Exp $
+# $Id: genspic2gnuplot,v 1.2 2004-03-25 00:29:59 ianmdlvl Exp $