42 lines
1.1 KiB
Perl
42 lines
1.1 KiB
Perl
package Slic3r::Extruder;
|
|
use strict;
|
|
use warnings;
|
|
|
|
require Exporter;
|
|
our @ISA = qw(Exporter);
|
|
our @EXPORT_OK = qw(EXTRUDER_ROLE_PERIMETER EXTRUDER_ROLE_INFILL EXTRUDER_ROLE_SUPPORT_MATERIAL
|
|
EXTRUDER_ROLE_SUPPORT_MATERIAL_INTERFACE);
|
|
our %EXPORT_TAGS = (roles => \@EXPORT_OK);
|
|
|
|
use Slic3r::Geometry qw(PI scale);
|
|
|
|
# has 'e_per_mm3' => (is => 'lazy');
|
|
# has 'retract_speed_mm_min' => (is => 'lazy');
|
|
|
|
use constant EXTRUDER_ROLE_PERIMETER => 1;
|
|
use constant EXTRUDER_ROLE_INFILL => 2;
|
|
use constant EXTRUDER_ROLE_SUPPORT_MATERIAL => 3;
|
|
use constant EXTRUDER_ROLE_SUPPORT_MATERIAL_INTERFACE => 4;
|
|
|
|
|
|
sub e_per_mm3 {
|
|
my $self = shift;
|
|
return $self->extrusion_multiplier * (4 / (($self->filament_diameter ** 2) * PI));
|
|
}
|
|
|
|
sub retract_speed_mm_min {
|
|
my $self = shift;
|
|
return $self->retract_speed * 60;
|
|
}
|
|
|
|
sub extruded_volume {
|
|
my ($self, $E) = @_;
|
|
return $E * ($self->filament_diameter**2) * PI/4;
|
|
}
|
|
|
|
sub e_per_mm {
|
|
my ($self, $mm3_per_mm) = @_;
|
|
return $mm3_per_mm * $self->e_per_mm3;
|
|
}
|
|
|
|
1;
|