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

cameo/zstack.pl: output one point at (x, y, z0) to set reference level

Browse Source 
Otherwise, gp2rml will eliminate any offset. (x, y) is an arbitrary point
from the toolpaths.
This commit is contained in:
Werner Almesberger 2013-11-06 20:28:47 -03:00
parent e82667e680
commit 033d55c8ad
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cameo/zstack.pl
View File

@ -54,7 +54,11 @@ while (<>) {
$z{$z} .= "$s\n"; $z{$z} .= "$s\n";
undef $s; undef $s;
} }
$z = $3 if /^-?\d+(\.\d*)?\s+-?\d+(\.\d*)?\s+(-?\d+(\.\d*)?)/; if (/^-?\d+(\.\d*)?\s+-?\d+(\.\d*)?\s+(-?\d+(\.\d*)?)/) {
$x = $1 unless defined $x;
$y = $2 unless defined $y;
$z = $3;
}
$s .= $_; $s .= $_;
$zmax = $z if $z > $zmax || !defined $zmax; $zmax = $z if $z > $zmax || !defined $zmax;
} }
@ -68,6 +72,8 @@ if ($reverse) {
%z = %t; %z = %t;
} }
print "$x $y $z0\n\n";
$z = $z0; $z = $z0;
for $c (sort { $b <=> $a } keys %z) { for $c (sort { $b <=> $a } keys %z) {
while ($z > $c+$zs) { while ($z > $c+$zs) {