109 lines
3.1 KiB
Perl
109 lines
3.1 KiB
Perl
package Slic3r::Flow;
|
|
use Moo;
|
|
|
|
use Slic3r::Geometry qw(PI scale);
|
|
|
|
has 'nozzle_diameter' => (is => 'ro', required => 1);
|
|
has 'layer_height' => (is => 'ro', required => 1);
|
|
has 'role' => (is => 'ro', default => sub { '' });
|
|
|
|
has 'width' => (is => 'rwp', builder => 1);
|
|
has 'spacing' => (is => 'lazy');
|
|
has 'scaled_width' => (is => 'lazy');
|
|
has 'scaled_spacing' => (is => 'lazy');
|
|
|
|
sub BUILD {
|
|
my $self = shift;
|
|
|
|
if ($self->width =~ /^(\d+(?:\.\d+)?)%$/) {
|
|
$self->_set_width($self->layer_height * $1 / 100);
|
|
}
|
|
$self->_set_width($self->_build_width) if $self->width == 0; # auto
|
|
}
|
|
|
|
sub _build_width {
|
|
my $self = shift;
|
|
|
|
# here we calculate a sane default by matching the flow speed (at the nozzle) and the feed rate
|
|
my $volume = ($self->nozzle_diameter**2) * PI/4;
|
|
my $shape_threshold = $self->nozzle_diameter * $self->layer_height + ($self->layer_height**2) * PI/4;
|
|
my $width;
|
|
if ($volume >= $shape_threshold) {
|
|
# rectangle with semicircles at the ends
|
|
$width = (($self->nozzle_diameter**2) * PI + ($self->layer_height**2) * (4 - PI)) / (4 * $self->layer_height);
|
|
} else {
|
|
# rectangle with squished semicircles at the ends
|
|
$width = $self->nozzle_diameter * ($self->nozzle_diameter/$self->layer_height - 4/PI + 1);
|
|
}
|
|
|
|
my $min = $self->nozzle_diameter * 1.05;
|
|
my $max;
|
|
if ($self->role eq 'perimeter' || $self->role eq 'support_material') {
|
|
$min = $max = $self->nozzle_diameter;
|
|
} elsif ($self->role ne 'infill') {
|
|
# do not limit width for sparse infill so that we use full native flow for it
|
|
$max = $self->nozzle_diameter * 1.7;
|
|
}
|
|
$width = $max if defined($max) && $width > $max;
|
|
$width = $min if $width < $min;
|
|
|
|
return $width;
|
|
}
|
|
|
|
sub _build_spacing {
|
|
my $self = shift;
|
|
|
|
my $min_flow_spacing;
|
|
if ($self->width >= ($self->nozzle_diameter + $self->layer_height)) {
|
|
# rectangle with semicircles at the ends
|
|
$min_flow_spacing = $self->width - $self->layer_height * (1 - PI/4);
|
|
} else {
|
|
# rectangle with shrunk semicircles at the ends
|
|
$min_flow_spacing = $self->nozzle_diameter * (1 - PI/4) + $self->width * PI/4;
|
|
}
|
|
return $self->width - &Slic3r::OVERLAP_FACTOR * ($self->width - $min_flow_spacing);
|
|
}
|
|
|
|
sub clone {
|
|
my $self = shift;
|
|
|
|
return (ref $self)->new(
|
|
nozzle_diameter => $self->nozzle_diameter,
|
|
layer_height => $self->layer_height,
|
|
@_,
|
|
);
|
|
}
|
|
|
|
sub _build_scaled_width {
|
|
my $self = shift;
|
|
return scale $self->width;
|
|
}
|
|
|
|
sub _build_scaled_spacing {
|
|
my $self = shift;
|
|
return scale $self->spacing;
|
|
}
|
|
|
|
|
|
package Slic3r::Flow::Bridge;
|
|
use Moo;
|
|
extends 'Slic3r::Flow';
|
|
|
|
# layer_height is not required in this case
|
|
has '+layer_height' => (is => 'ro', required => 0);
|
|
has 'bridge_flow_ratio' => (is => 'ro', required => 1);
|
|
|
|
use Slic3r::Geometry qw(PI);
|
|
|
|
sub _build_width {
|
|
my $self = shift;
|
|
return sqrt($self->bridge_flow_ratio * ($self->nozzle_diameter**2));
|
|
}
|
|
|
|
sub _build_spacing {
|
|
my $self = shift;
|
|
return $self->width + 0.05;
|
|
}
|
|
|
|
1;
|