Add example post-processing script for calculating filament weight. #273

degen-loop-screen
Henrik Brix Andersen 2012-07-09 21:03:09 +02:00
parent c144afe52b
commit b0138ab5eb
1 changed files with 21 additions and 0 deletions

View File

@ -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;
}
}