chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
initial expire-iso860
[chiark-utils.git]
/
scripts
/
gnucap2genspic
diff --git
a/scripts/gnucap2genspic
b/scripts/gnucap2genspic
index d7eed1ed9eb9744e1565fee3d3b588a190efd0c0..60722d606965746a6f949adb5341b00cb1cc3857 100755
(executable)
--- a/
scripts/gnucap2genspic
+++ b/
scripts/gnucap2genspic
@@
-44,18
+44,18
@@
die if @ARGV;
T 1e12);
sub startplot () {
T 1e12);
sub startplot () {
- $log
y2
= 0;
+ $log
xy
= 0;
for ($yn=1; $yn<=$#columns; $yn++) {
$mmm[$yn]= 'y';
}
if ($kind eq 'Freq') {
for ($yn=1; $yn<=$#columns; $yn++) {
$mmm[$yn]= 'y';
}
if ($kind eq 'Freq') {
- $log
y2
= 1;
+ $log
xy
= 1;
for ($yn=1; $yn<=$#columns; $yn++) {
die unless $columns[$yn] =~ m/.*([MP])\(\d+\)$/i;
$mmm[$yn]= 'y2' if uc $1 eq 'P';
}
}
for ($yn=1; $yn<=$#columns; $yn++) {
die unless $columns[$yn] =~ m/.*([MP])\(\d+\)$/i;
$mmm[$yn]= 'y2' if uc $1 eq 'P';
}
}
- printf "S %s %d", $cplot, $log
y2
or die $!;
+ printf "S %s %d", $cplot, $log
xy
or die $!;
for ($yn=1; $yn<=$#columns; $yn++) {
printf " %s:%s", $mmm[$yn], $columns[$yn] or die $!;
}
for ($yn=1; $yn<=$#columns; $yn++) {
printf " %s:%s", $mmm[$yn], $columns[$yn] or die $!;
}
@@
-84,7
+84,7
@@
for (;;) {
endplot();
$kind= $1;
@columns= split /\s+/;
endplot();
$kind= $1;
@columns= split /\s+/;
- $cplot= $kind
.($counter{$kind}++)
;
+ $cplot= $kind;
startplot();
next;
} elsif (!defined $kind) {
startplot();
next;
} elsif (!defined $kind) {
@@
-106,4
+106,4
@@
die "no plots" unless defined $kind;
endplot();
print "F\n" or die $!;
endplot();
print "F\n" or die $!;
-# $Id: gnucap2genspic,v 1.
1 2004-03-24 23:53:41
ianmdlvl Exp $
+# $Id: gnucap2genspic,v 1.
2 2004-03-25 00:29:59
ianmdlvl Exp $