summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0b75261)
wip extra Z for moves from dinge to dinge
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
+for l in 2 4 5; do
+ gh
+ perl -i~ -0777 -pe '
+ s{
+ ^G1 \ Z([0-9.]+) \n
+ ( ^G0 \ F(\d+) \ X\S+ \ Y\S+ \n
+ (?: ; .* )?
+ ^G1 \ Z([0-9.]+) \n )
+ }{
+ die unless $1 > $4;
+ die unless $3 > 9000;
+ "G0 F$2\n".
+ "G1 Z".($3 + 0.5)."\n" .
+ $2
+ }mxe
+ ' $g
+done
+
exec 3>${lhs}234.auto.gcode
for l in 2 3; do
gh
exec 3>${lhs}234.auto.gcode
for l in 2 3; do
gh