251 lines
9.6 KiB
Perl
251 lines
9.6 KiB
Perl
package Slic3r::Fill;
|
|
use Moo;
|
|
|
|
use Slic3r::Fill::ArchimedeanChords;
|
|
use Slic3r::Fill::Base;
|
|
use Slic3r::Fill::Concentric;
|
|
use Slic3r::Fill::Flowsnake;
|
|
use Slic3r::Fill::HilbertCurve;
|
|
use Slic3r::Fill::Honeycomb;
|
|
use Slic3r::Fill::Line;
|
|
use Slic3r::Fill::OctagramSpiral;
|
|
use Slic3r::Fill::PlanePath;
|
|
use Slic3r::Fill::Rectilinear;
|
|
use Slic3r::ExtrusionPath ':roles';
|
|
use Slic3r::Geometry qw(X Y PI scale chained_path);
|
|
use Slic3r::Geometry::Clipper qw(union_ex diff diff_ex intersection_ex offset offset2);
|
|
use Slic3r::Surface ':types';
|
|
|
|
|
|
has 'object' => (is => 'ro', required => 1, weak_ref => 1);
|
|
has 'fillers' => (is => 'rw', default => sub { {} });
|
|
|
|
our %FillTypes = (
|
|
archimedeanchords => 'Slic3r::Fill::ArchimedeanChords',
|
|
rectilinear => 'Slic3r::Fill::Rectilinear',
|
|
flowsnake => 'Slic3r::Fill::Flowsnake',
|
|
octagramspiral => 'Slic3r::Fill::OctagramSpiral',
|
|
hilbertcurve => 'Slic3r::Fill::HilbertCurve',
|
|
line => 'Slic3r::Fill::Line',
|
|
concentric => 'Slic3r::Fill::Concentric',
|
|
honeycomb => 'Slic3r::Fill::Honeycomb',
|
|
);
|
|
|
|
sub filler {
|
|
my $self = shift;
|
|
my ($filler) = @_;
|
|
|
|
if (!ref $self) {
|
|
return $FillTypes{$filler}->new;
|
|
}
|
|
|
|
$self->fillers->{$filler} ||= $FillTypes{$filler}->new(
|
|
bounding_box => $self->object->bounding_box,
|
|
);
|
|
return $self->fillers->{$filler};
|
|
}
|
|
|
|
sub make_fill {
|
|
my $self = shift;
|
|
my ($layerm) = @_;
|
|
|
|
Slic3r::debugf "Filling layer %d:\n", $layerm->id;
|
|
my $fill_density = $layerm->config->fill_density;
|
|
|
|
my @surfaces = ();
|
|
|
|
# merge adjacent surfaces
|
|
# in case of bridge surfaces, the ones with defined angle will be attached to the ones
|
|
# without any angle (shouldn't this logic be moved to process_external_surfaces()?)
|
|
{
|
|
my @fill_surfaces = @{$layerm->fill_surfaces};
|
|
my @surfaces_with_bridge_angle = grep defined $_->bridge_angle, @fill_surfaces;
|
|
|
|
# group surfaces by distinct properties
|
|
my @groups = Slic3r::Surface->group(@fill_surfaces);
|
|
|
|
# merge compatible groups (we can generate continuous infill for them)
|
|
{
|
|
# cache flow widths and patterns used for all solid groups
|
|
# (we'll use them for comparing compatible groups)
|
|
my @is_solid = my @fw = my @pattern = ();
|
|
for (my $i = 0; $i <= $#groups; $i++) {
|
|
# we can only merge solid non-bridge surfaces, so discard
|
|
# non-solid surfaces
|
|
if ($groups[$i][0]->is_solid && (!$groups[$i][0]->is_bridge || $layerm->id == 0)) {
|
|
$is_solid[$i] = 1;
|
|
$fw[$i] = ($groups[$i][0]->surface_type == S_TYPE_TOP)
|
|
? $layerm->top_infill_flow->width
|
|
: $layerm->solid_infill_flow->width;
|
|
$pattern[$i] = $groups[$i][0]->is_external
|
|
? $layerm->config->solid_fill_pattern
|
|
: 'rectilinear';
|
|
} else {
|
|
$is_solid[$i] = 0;
|
|
$fw[$i] = 0;
|
|
$pattern[$i] = 'none';
|
|
}
|
|
}
|
|
|
|
# loop through solid groups
|
|
for (my $i = 0; $i <= $#groups; $i++) {
|
|
next if !$is_solid[$i];
|
|
|
|
# find compatible groups and append them to this one
|
|
for (my $j = $i+1; $j <= $#groups; $j++) {
|
|
next if !$is_solid[$j];
|
|
|
|
if ($fw[$i] == $fw[$j] && $pattern[$i] eq $pattern[$j]) {
|
|
# groups are compatible, merge them
|
|
push @{$groups[$i]}, @{$groups[$j]};
|
|
splice @groups, $j, 1;
|
|
splice @is_solid, $j, 1;
|
|
splice @fw, $j, 1;
|
|
splice @pattern, $j, 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# give priority to bridges
|
|
@groups = sort { defined $a->[0]->bridge_angle ? -1 : 0 } @groups;
|
|
|
|
foreach my $group (@groups) {
|
|
my $union = union_ex([ map $_->p, @$group ], 1);
|
|
|
|
# subtract surfaces having a defined bridge_angle from any other
|
|
if (@surfaces_with_bridge_angle && !defined $group->[0]->bridge_angle) {
|
|
$union = diff_ex(
|
|
[ map @$_, @$union ],
|
|
[ map $_->p, @surfaces_with_bridge_angle ],
|
|
1,
|
|
);
|
|
}
|
|
|
|
# subtract any other surface already processed
|
|
$union = diff_ex(
|
|
[ map @$_, @$union ],
|
|
[ map $_->p, @surfaces ],
|
|
1,
|
|
);
|
|
|
|
push @surfaces, map $group->[0]->clone(expolygon => $_), @$union;
|
|
}
|
|
}
|
|
|
|
# we need to detect any narrow surfaces that might collapse
|
|
# when adding spacing below
|
|
# such narrow surfaces are often generated in sloping walls
|
|
# by bridge_over_infill() and combine_infill() as a result of the
|
|
# subtraction of the combinable area from the layer infill area,
|
|
# which leaves small areas near the perimeters
|
|
# we are going to grow such regions by overlapping them with the void (if any)
|
|
# TODO: detect and investigate whether there could be narrow regions without
|
|
# any void neighbors
|
|
my $distance_between_surfaces = $layerm->solid_infill_flow->scaled_spacing * &Slic3r::INFILL_OVERLAP_OVER_SPACING;
|
|
{
|
|
my $collapsed = diff(
|
|
[ map @{$_->expolygon}, @surfaces ],
|
|
offset2([ map @{$_->expolygon}, @surfaces ], -$distance_between_surfaces/2, +$distance_between_surfaces/2),
|
|
1,
|
|
);
|
|
push @surfaces, map Slic3r::Surface->new(
|
|
expolygon => $_,
|
|
surface_type => S_TYPE_INTERNALSOLID,
|
|
), @{intersection_ex(
|
|
offset($collapsed, $distance_between_surfaces),
|
|
[
|
|
(map @{$_->expolygon}, grep $_->surface_type == S_TYPE_INTERNALVOID, @surfaces),
|
|
(@$collapsed),
|
|
],
|
|
1,
|
|
)};
|
|
}
|
|
|
|
# add spacing between surfaces
|
|
@surfaces = map @{$_->offset(-$distance_between_surfaces / 2)}, @surfaces;
|
|
|
|
if (0) {
|
|
require "Slic3r/SVG.pm";
|
|
Slic3r::SVG::output("fill_" . $layerm->print_z . ".svg",
|
|
expolygons => [ map $_->expolygon, grep !$_->is_solid, @surfaces ],
|
|
red_expolygons => [ map $_->expolygon, grep $_->is_solid, @surfaces ],
|
|
);
|
|
}
|
|
|
|
my @fills = ();
|
|
my @fills_ordering_points = ();
|
|
SURFACE: foreach my $surface (@surfaces) {
|
|
next if $surface->surface_type == S_TYPE_INTERNALVOID;
|
|
my $filler = $layerm->config->fill_pattern;
|
|
my $density = $fill_density;
|
|
my $flow = ($surface->surface_type == S_TYPE_TOP)
|
|
? $layerm->top_infill_flow
|
|
: $surface->is_solid
|
|
? $layerm->solid_infill_flow
|
|
: $layerm->infill_flow;
|
|
my $flow_spacing = $flow->spacing;
|
|
my $is_bridge = $layerm->id > 0 && $surface->is_bridge;
|
|
my $is_solid = $surface->is_solid;
|
|
|
|
# force 100% density and rectilinear fill for external surfaces
|
|
if ($surface->surface_type != S_TYPE_INTERNAL) {
|
|
$density = 1;
|
|
$filler = $layerm->config->solid_fill_pattern;
|
|
if ($is_bridge) {
|
|
$filler = 'rectilinear';
|
|
$flow_spacing = $layerm->extruders->{infill}->bridge_flow->spacing;
|
|
} elsif ($surface->surface_type == S_TYPE_INTERNALSOLID) {
|
|
$filler = 'rectilinear';
|
|
}
|
|
} else {
|
|
next SURFACE unless $density > 0;
|
|
}
|
|
|
|
my $f = $self->filler($filler);
|
|
$f->layer_id($layerm->id);
|
|
my ($params, @polylines) = $f->fill_surface(
|
|
$surface,
|
|
density => $density,
|
|
flow_spacing => $flow_spacing,
|
|
);
|
|
next unless @polylines;
|
|
|
|
# ugly hack(tm) to get the right amount of flow (GCode.pm should be fixed)
|
|
$params->{flow_spacing} = $layerm->extruders->{infill}->bridge_flow->width if $is_bridge;
|
|
|
|
# save into layer
|
|
push @fills, my $collection = Slic3r::ExtrusionPath::Collection->new;
|
|
$collection->no_sort($params->{no_sort});
|
|
|
|
$collection->append(
|
|
map Slic3r::ExtrusionPath->new(
|
|
polyline => $_,
|
|
role => ($surface->surface_type == S_TYPE_INTERNALBRIDGE
|
|
? EXTR_ROLE_INTERNALBRIDGE
|
|
: $is_bridge
|
|
? EXTR_ROLE_BRIDGE
|
|
: $is_solid
|
|
? (($surface->surface_type == S_TYPE_TOP) ? EXTR_ROLE_TOPSOLIDFILL : EXTR_ROLE_SOLIDFILL)
|
|
: EXTR_ROLE_FILL),
|
|
height => $surface->thickness,
|
|
flow_spacing => $params->{flow_spacing} || (warn "Warning: no flow_spacing was returned by the infill engine, please report this to the developer\n"),
|
|
), @polylines,
|
|
);
|
|
push @fills_ordering_points, $polylines[0]->first_point;
|
|
}
|
|
|
|
# add thin fill regions
|
|
if ($layerm->thin_fills->count > 0) {
|
|
push @fills, Slic3r::ExtrusionPath::Collection->new(@{$layerm->thin_fills});
|
|
push @fills_ordering_points, $fills[-1]->first_point;
|
|
}
|
|
|
|
# organize infill paths using a nearest-neighbor search
|
|
@fills = @fills[ chained_path(\@fills_ordering_points) ];
|
|
|
|
return @fills;
|
|
}
|
|
|
|
1;
|