From 29c8998fbcec282da8cf3e19fc1c7ca5bf13a3a9 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 20 Feb 2020 14:06:41 +0000 Subject: [PATCH] quacks-ingredients: gcode manipulation extra Z for moves from dinge to dinge Signed-off-by: Ian Jackson --- quacks-ingredients-make-copy-gcodes | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/quacks-ingredients-make-copy-gcodes b/quacks-ingredients-make-copy-gcodes index 512d5fe..df1c3e9 100755 --- a/quacks-ingredients-make-copy-gcodes +++ b/quacks-ingredients-make-copy-gcodes @@ -43,17 +43,17 @@ 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 ) + ^G1 \ Z([0-9.]+) \s*\n + ( ^G0 \ F(\d+) \ X\S+ \ Y\S+ \s*\n + (?: ; .* \s*\n )? + ^G1 \ Z([0-9.]+) \s*\n ) }{ die unless $1 > $4; die unless $3 > 9000; - "G0 F$2\n". - "G1 Z".($3 + 0.5)."\n" . + "G0 F$3\n". + "G1 Z".($4 + 0.5)."\n" . $2 - }mxe + }gmxe or die; ' $g done -- 2.30.2