From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 20 Feb 2020 15:03:46 +0000 (+0000)
Subject: quacks-ingredients: gcode manipulation - first move on each layer too
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=f2f6e8ca12819adec072203910b2ddd5962aadec;hp=aa9c8462ca6b0bac53de8acbddf1e44779c5278d;p=reprap-play.git

quacks-ingredients: gcode manipulation - first move on each layer too

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/quacks-ingredients-make-copy-gcodes b/quacks-ingredients-make-copy-gcodes
index 4f0ddd3..829a553 100755
--- a/quacks-ingredients-make-copy-gcodes
+++ b/quacks-ingredients-make-copy-gcodes
@@ -44,6 +44,22 @@ for l in 2 4 5; do
 	perl -i~ -0777 -ne '
 		@l = split m{^(?=;LAYER:\d+\n)}m, $_;
 		foreach my $i (0..$#l) {
+			$l[$i] =~
+				s{
+				(	^G1 \ Z\S+ \s*\n	
+				  |	^\;LAYER:\d+ \s*\n
+				    (?:	^M10[67].* \s*\n )?
+				)
+					^G0 \ F(\d+) \ ( X\S+ \ Y\S+ )
+							 \ Z(\S+) \s*\n
+				}{
+					die "$& $2" unless $2 > 9000;
+					$1 .
+					"G1 Z$4\n".
+					"G0 F$2 $3\n".
+					"G1 Z$4\n"
+				}mxe	or $i==0
+					or die "$l[$i] $i";
 			$l[$i] =~
 				s{
 					^G1 \ Z([0-9.]+) \s*\n