open S, "> $ofb,$cplot.gnuplot-cmd" or die $!;
print S <<END
set data style linespoints
-set y2tics autofreq
set title '$cplot'
END
or die $!;
die unless $columns[$yn] =~ m/.*([MP])\(\d+\)$/;
$mmm[$yn]= 'y2' if $1 eq 'P';
}
- print S "set logscale xy\n" or die $!;
+ print S "set logscale xy\nset y2tics autofreq\n" or die $!;
}
for ($yn=1; $yn<=$#columns; $yn++) {
open "O$yn", "> $ofb,$cplot-$yn.gnuplot-data" or die $!;
$kind= undef;
}
-while (<STDIN>) {
+$readahead= <STDIN>;
+for (;;) {
+ $linesofar= $readahead;
+ for (;;) {
+ $readahead= <STDIN>;
+ last unless $readahead =~ s/^\+//;
+ die unless length $linesofar;
+ $linesofar =~ s/\n$//;
+ $linesofar .= $readahead;
+ }
+ $_= $linesofar;
+ last unless length;
s/\s+$//;
+
if (m/^\#(\w+)/) {
endplot();
$kind= $1;
$sof= "./$sof" unless $sof =~ m,/,;
print ": generated ; $sof\n" or die $!;
-# $Id: gnucap2gnuplot,v 1.2 2004-03-23 23:03:06 ianmdlvl Exp $
+# $Id: gnucap2gnuplot,v 1.3 2004-03-24 01:00:50 ianmdlvl Exp $