quacks-ingredients: gcode manipulation

[reprap-play.git] / quacks-ingredients-make-copy-gcodes

diff --git a/quacks-ingredients-make-copy-gcodes b/quacks-ingredients-make-copy-gcodes
index 0aaa814cca8c3bb28f598ecc4d7685a96cfbaaf0..bcddcf7a1948301ce4fe19525fed462acdace716 100755 (executable)
--- a/quacks-ingredients-make-copy-gcodes
+++ b/quacks-ingredients-make-copy-gcodes
@@ -28,12 +28,11 @@ for l in 1 2 3 4 5; do
        1|2|3|4)
                perl -i~ -pe 's/^/;/ if m/^M140 S0\b.*\n/' $g
                ;;
-       5)      ;;
-       *)      echo >&2 "??? $l"; exit 1 ;;
        esac
 
        perl -i~ -ne '
                $l =~ s/^/;/ if m/^M400/;
+               $l .= "G91\nG1 Z5\nG90\n" if m/^M84/;
                print $l or die $!;
                $l = $_;
                END { print $l or die $!; }