qi-hardware/cae-tools
1
0
Fork 0
mirror of git://projects.qi-hardware.com/cae-tools.git synced 2024-12-22 23:26:27 +02:00
Code

cameo/fped2d2z.pl: added option -r, like in zstack.pl

Browse Source
This commit is contained in:
Werner Almesberger 2012-03-19 15:22:03 -03:00
parent ce243b6a79
commit 9f5751aaa9
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
cameo/fped2d2z.pl
View File

@ -14,11 +14,18 @@
sub usage
{
print STDERR "usage: $0 prefix [file ...]\n";
print STDERR "usage: $0 [-r] prefix [file ...]\n\n";
print STDERR " -r reverse Z stacking. Also swaps X and Y.\n";
exit(1);
}
if ($ARGV[0] eq "-r") {
shift @ARGV;
$reverse = 1;
}
&usage if $ARGV[0] =~ /^-/;
$pfx = shift @ARGV;
&usage unless defined $pfx;
@ -31,6 +38,20 @@ while (<>) {
$skip = 1;
}
next if $skip;
s/\s+-?\d+(\.\d*)?$/$& $z/;
print;
$z{$z} .= $_;
$zmax = $z if $z > $zmax || !defined $zmax;
}
if ($reverse) {
for (keys %z) {
($t{$zmax-$_} = $z{$_}) =~
s/^(-?\d+(\.\d*)?)\s+(-?\d+(\.\d*)?)/$3 $1/mg;
}
%z = %t;
}
# sort, to make output easier to examine manually
for (sort { $b <=> $a } keys %z) {
$z{$_} =~ s/\s+-?\d+(\.\d*)?$/$& $_/gm;
print $z{$_};
}