reformat nfc
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.]+) \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$3\n".
- "G1 Z".($4 + 0.5)."\n" .
- $2
- }gmxe or die;
+ perl -i~ -0777 -ne '
+ @l = split m{^(?=;LAYER:\d+\n)}m, $_;
+ foreach my $i (0..$#l) {
+ $l[$i] =~
+ s{
+ ^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;
+ my $z = $i == $#l ? $1 : $4 + 0.5;
+ "G0 F$3\n".
+ "G1 Z$z\n" .
+ $2
+ }gmxe or $l==0 or die $i;
+ }
+ print or die $! foreach @l;
' $g
done