From b0138ab5eba84c4dd7c07dfe15bdf221ef0d79f3 Mon Sep 17 00:00:00 2001
From: Henrik Brix Andersen <henrik@brixandersen.dk>
Date: Mon, 9 Jul 2012 21:03:09 +0200
Subject: Add example post-processing script for calculating filament weight.
 #273

---
 utils/post-processing/filament-weight.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 utils/post-processing/filament-weight.pl

(limited to 'utils')

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;
+    }
+}
-- 
cgit v1.2.3