Better toolpaths for infills with different density

This commit is contained in:
Alessandro Ranellucci 2011-11-13 20:22:44 +01:00
parent fe9ed84f64
commit a10d13120c

View File

@ -41,8 +41,6 @@ sub make_fill {
printf "Filling layer %d:\n", $layer->id; printf "Filling layer %d:\n", $layer->id;
foreach my $surfaces (@{ $layer->fill_surfaces }) { foreach my $surfaces (@{ $layer->fill_surfaces }) {
my @path_collection = ();
SURFACE: foreach my $surface (@$surfaces) { SURFACE: foreach my $surface (@$surfaces) {
Slic3r::debugf " Processing surface %s:\n", $surface->id; Slic3r::debugf " Processing surface %s:\n", $surface->id;
@ -66,17 +64,17 @@ sub make_fill {
flow_width => $flow_width, flow_width => $flow_width,
); );
push @path_collection, map Slic3r::ExtrusionPath->cast( # save into layer
[ @$_ ], push @{ $layer->fills }, Slic3r::ExtrusionPath::Collection->new(
depth_layers => $surface->depth_layers, paths => [
), @paths; map Slic3r::ExtrusionPath->cast(
[ @$_ ],
depth_layers => $surface->depth_layers,
), @paths,
],
);
$layer->fills->[-1]->cleanup;
} }
# save into layer
push @{ $layer->fills }, Slic3r::ExtrusionPath::Collection->new(
paths => [ @path_collection ],
);
$layer->fills->[-1]->cleanup;
} }
} }