Date: | 2012-03-21 03:13:35 (11 years 11 months ago) |
---|---|
Author: | Werner Almesberger |
Commit: | 079608ba6c8dff6203d164b58e914ff4e9db1e88 |
Message: | cameo/zstack.pl: don't output lower layers at higher Z We leave this to the designer :-) |
Files: |
cameo/zstack.pl (2 diffs) |
Change Details
cameo/zstack.pl | ||
---|---|---|
22 | 22 | |
23 | 23 | sub issue |
24 | 24 | { |
25 | local ($z) = @_; | |
25 | local ($c, $z) = @_; | |
26 | 26 | my $t; |
27 | 27 | |
28 | 28 | # |
29 | 29 | # The order here is a bit arbitrary. We sort to make the outcome |
30 | 30 | # more predictable but it shouldn't really matter. |
31 | 31 | # |
32 | for my $c (sort { $b <=> $a } grep { $_ <= $z } keys %z) { | |
33 | ($t = $z{$c}) =~ s/\s+-?\d+(\.\d*)?$/ $z/mg; | |
34 | print $t; | |
35 | } | |
32 | ||
33 | ($t = $z{$c}) =~ s/\s+-?\d+(\.\d*)?$/ $z/mg; | |
34 | print $t; | |
36 | 35 | } |
37 | 36 | |
38 | 37 | |
... | ... | |
73 | 72 | for $c (sort { $b <=> $a } keys %z) { |
74 | 73 | while ($z > $c+$zs) { |
75 | 74 | $z -= $zs; |
76 | &issue($z); | |
75 | &issue($c, $z); | |
77 | 76 | } |
78 | 77 | $z = $c; |
79 | &issue($z); | |
78 | &issue($c, $z); | |
80 | 79 | } |
Branches:
master