1 files changed, 21 insertions, 0 deletions
diff --git a/utils/post-processing/filament-weight.pl b/utils/post-processing/filament-weight.pl
new file mode 100755
index 000000000..c564b4d80
--- /dev/null
+++ b/utils/post-processing/filament-weight.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -i
+#
+# Post-processing script for adding weight of required filament to
+# G-code output.
+
+use strict;
+use warnings;
+
+# example densities, adjust according to filament specifications
+use constant PLA => 1.25; # g/cm3
+use constant ABS => 1.05; # g/cm3
+
+while (<>) {
+    if (/^(;\s+filament\s+used\s+=\s.*\((\d+(?:\.\d+)?)cm3)\)/) {
+        my $pla = $2 * PLA;
+        my $abs = $2 * ABS;
+        printf "%s or %.2fg PLA/%.2fg ABS)\n", $1, $pla, $abs;
+    } else {
+        print;
+    }
+}