# 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 unless @ARGV==1;
die if $ARGV[0] =~ m/^\-/;
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;
} 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.1 2004-03-24 23:53:41 ianmdlvl Exp $
+# $Id: genspic2gnuplot,v 1.6 2007-09-21 21:21:15 ianmdlvl Exp $