3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-12 01:07:57 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

New spacing math. Speed optimizations

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-07-03 18:05:31 +02:00
parent dd37867324
commit 77123ada7c
4 changed files with 78 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

41
lib/Slic3r/Extruder.pm
View file

@ -3,21 +3,18 @@ use Moo;
use Slic3r::Geometry qw(PI);
has 'nozzle_diameter' => (is => 'rw', required => 1);
has 'filament_diameter' => (is => 'rw', required => 1);
has 'extrusion_multiplier' => (is => 'rw', required => 1);
has 'temperature' => (is => 'rw', required => 1);
has 'nozzle_diameter' => (is => 'ro', required => 1);
has 'filament_diameter' => (is => 'ro', required => 1);
has 'extrusion_multiplier' => (is => 'ro', required => 1);
has 'temperature' => (is => 'ro', required => 1);
has 'first_layer_temperature' => (is => 'rw', required => 1);
has 'e_per_mm3' => (is => 'rw');
has 'e_per_mm3' => (is => 'lazy');
has '_mm3_per_mm_cache' => (is => 'ro', default => sub {{}});
sub BUILD {
sub _build_e_per_mm3 {
my $self = shift;
$self->e_per_mm3(
$Slic3r::scaling_factor
* $self->extrusion_multiplier
* (4 / (($self->filament_diameter ** 2) * PI))
);
return $self->extrusion_multiplier * (4 / (($self->filament_diameter ** 2) * PI));
}
sub make_flow {
@ -25,4 +22,26 @@ sub make_flow {
return Slic3r::Flow->new(nozzle_diameter => $self->nozzle_diameter, @_);
}
sub mm3_per_mm {
my $self = shift;
my ($s, $h) = @_;
my $cache_key = "${s}_${h}";
if (!exists $self->_mm3_per_mm_cache->{$cache_key}) {
my $w_threshold = $h + $self->nozzle_diameter;
my $s_threshold = $w_threshold - $Slic3r::overlap_factor * ($w_threshold - ($w_threshold - $h * (1 - PI/4)));
if ($s >= $s_threshold) {
# rectangle with semicircles at the ends
my $w = $s + $Slic3r::overlap_factor * $h * (1 - PI/4);
$self->_mm3_per_mm_cache->{$cache_key} = $w * $h + ($h**2) / 4 * (PI - 4);
} else {
# rectangle with shrunk semicircles at the ends
my $w = ($s + $self->nozzle_diameter * $Slic3r::overlap_factor * (PI/4 - 1)) / (1 + $Slic3r::overlap_factor * (PI/4 - 1));
$self->_mm3_per_mm_cache->{$cache_key} = $self->nozzle_diameter * $h * (1 - PI/4) + $h * $w * PI/4;
}
}
return $self->_mm3_per_mm_cache->{$cache_key};
}
1;