utils/post-processing/filament-weight.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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;
    }
}