GitHub-Proxy/Slic3r
1
0
Fork 0
mirror of https://git.mirrors.martin98.com/https://github.com/slic3r/Slic3r.git synced 2025-08-14 06:55:54 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

add some comments

Browse Source
This commit is contained in:
Michael Moon 2011-12-11 08:27:16 +11:00
parent 359d4073df
commit ca25494177
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
post-processing/z-every-line.pl
View File

@ -4,18 +4,20 @@ use strict;
my $z = 0; my $z = 0;
# read stdin and any/all files passed as parameters one line at a time
for (<>) { for (<>) {
if (/Z(\d+(\.\d+)?)/) { # if we find a Z word, save it
$z = $1; $z = $1 if /Z(\d+(\.\d+)?)/;
print;
} # if we don't have Z, but we do have X and Y
else {
if (!/Z/ && /X/ && /Y/ && $z > 0) { if (!/Z/ && /X/ && /Y/ && $z > 0) {
s/\s*([\r\n\;\(].*)//gs; # chop off the end of the line (incl. comments), saving chopped section in $1
s/\s*([\r\n\;\(].*)//s;
# print start of line, insert our Z value then re-add the chopped end of line
print "$_ Z$z $1"; print "$_ Z$z $1";
} }
else { else {
# nothing interesting, print line as-is
print; print;
} }
}
} }