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

cameo/zstack.pl: don't output lower layers at higher Z

Browse Source 
We leave this to the designer :-)
This commit is contained in:
Werner Almesberger 2012-03-20 23:13:35 -03:00
parent 340fb2cf8b
commit 079608ba6c
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
cameo/zstack.pl
View File

@ -22,17 +22,16 @@ sub usage
sub issue sub issue
{ {
local ($z) = @_; local ($c, $z) = @_;
my $t; my $t;
# #
# The order here is a bit arbitrary. We sort to make the outcome # The order here is a bit arbitrary. We sort to make the outcome
# more predictable but it shouldn't really matter. # more predictable but it shouldn't really matter.
# #
for my $c (sort { $b <=> $a } grep { $_ <= $z } keys %z) {
($t = $z{$c}) =~ s/\s+-?\d+(\.\d*)?$/ $z/mg; ($t = $z{$c}) =~ s/\s+-?\d+(\.\d*)?$/ $z/mg;
print $t; print $t;
}
} }
@ -73,8 +72,8 @@ $z = $z0;
for $c (sort { $b <=> $a } keys %z) { for $c (sort { $b <=> $a } keys %z) {
while ($z > $c+$zs) { while ($z > $c+$zs) {
$z -= $zs; $z -= $zs;
&issue($z); &issue($c, $z);
} }
$z = $c; $z = $c;
&issue($z); &issue($c, $z);
} }