3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-30 20:21:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

add z-every-line script, first attempt

Browse source
This commit is contained in:
Michael Moon 2011-12-11 08:22:14 +11:00
parent c957c27367
commit 359d4073df
1 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
post-processing/z-every-line.pl Executable file
View file

@ -0,0 +1,21 @@
#!/usr/bin/perl
use strict;
my $z = 0;
for (<>) {
if (/Z(\d+(\.\d+)?)/) {
$z = $1;
print;
}
else {
if (!/Z/ && /X/ && /Y/ && $z > 0) {
s/\s*([\r\n\;\(].*)//gs;
print "$_ Z$z $1";
}
else {
print;
}
}
}