Date: | 2013-11-07 00:28:47 (10 years 4 months ago) |
---|---|
Author: | Werner Almesberger |
Commit: | 033d55c8ad475e1282f0c5f198766c142ed07f34 |
Message: | cameo/zstack.pl: output one point at (x, y, z0) to set reference
level Otherwise, gp2rml will eliminate any offset. (x, y) is an arbitrary point from the toolpaths. |
Files: |
cameo/zstack.pl (2 diffs) |
Change Details
cameo/zstack.pl | ||
---|---|---|
54 | 54 | $z{$z} .= "$s\n"; |
55 | 55 | undef $s; |
56 | 56 | } |
57 | $z = $3 if /^-?\d+(\.\d*)?\s+-?\d+(\.\d*)?\s+(-?\d+(\.\d*)?)/; | |
57 | if (/^-?\d+(\.\d*)?\s+-?\d+(\.\d*)?\s+(-?\d+(\.\d*)?)/) { | |
58 | $x = $1 unless defined $x; | |
59 | $y = $2 unless defined $y; | |
60 | $z = $3; | |
61 | } | |
58 | 62 | $s .= $_; |
59 | 63 | $zmax = $z if $z > $zmax || !defined $zmax; |
60 | 64 | } |
... | ... | |
68 | 72 | %z = %t; |
69 | 73 | } |
70 | 74 | |
75 | print "$x $y $z0\n\n"; | |
76 | ||
71 | 77 | $z = $z0; |
72 | 78 | for $c (sort { $b <=> $a } keys %z) { |
73 | 79 | while ($z > $c+$zs) { |
Branches:
master