diff --git a/utils/post-processing/flowrate.pl b/utils/post-processing/flowrate.pl new file mode 100755 index 00000000..573597c4 --- /dev/null +++ b/utils/post-processing/flowrate.pl @@ -0,0 +1,39 @@ +#!/usr/bin/perl -i + +# +# Post-processing script for calculating flow rate for each move + +use strict; +use warnings; + +my $E = 0; +my ($X, $Y); +while (<>) { + if (/^G1 X([0-9.]+) Y([0-9.]+).*? E([0-9.]+)/) { + my ($x, $y, $e) = ($1, $2, $3); + my $e_length = $e - $E; + if ($e_length > 0 && defined $X && defined $Y) { + my $dist = sqrt( (($x-$X)**2) + (($y-$Y)**2) ); + if ($dist > 0) { + my $flowrate = sprintf '%.2f', $e_length / $dist; + s/(\R+)/ ; XY dist = $dist ; E dist = $e_length ; E\/XY = $flowrate mm\/mm$1/; + } + } + $E = $e; + $X = $x; + $Y = $y; + } + if (/^G1 X([0-9.]+) Y([0-9.]+)/) { + $X = $1; + $Y = $2; + } + if (/^G1.*? E([0-9.]+)/) { + $E = $1; + } + if (/^G92 E0/) { + $E = 0; + } + print; +} + +__END__