GitHub-Proxy/PrusaSlicer
1
0
Fork 0
mirror of https://git.mirrors.martin98.com/https://github.com/prusa3d/PrusaSlicer.git synced 2025-08-12 16:39:02 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

New logic for connecting honeycomb loops

Browse Source
This commit is contained in:
Alessandro Ranellucci 2013-06-16 13:31:10 +02:00
parent 9ff85898b1
commit 258842b845
1 changed files with 39 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
lib/Slic3r/Fill/Honeycomb.pm
View File

@ -6,7 +6,7 @@ extends 'Slic3r::Fill::Base';
has 'cache' => (is => 'rw', default => sub {{}}); has 'cache' => (is => 'rw', default => sub {{}});
use Slic3r::Geometry qw(PI X Y MIN MAX scale scaled_epsilon); use Slic3r::Geometry qw(PI X Y MIN MAX scale scaled_epsilon);
use Slic3r::Geometry::Clipper qw(intersection_ex); use Slic3r::Geometry::Clipper qw(intersection);
sub angles () { [0, PI/3, PI/3*2] } sub angles () { [0, PI/3, PI/3*2] }
@ -77,39 +77,48 @@ sub fill_surface {
$_->rotate(-$rotate_vector->[0][0], $m->{hex_center}) for @polygons; $_->rotate(-$rotate_vector->[0][0], $m->{hex_center}) for @polygons;
} }
# consider polygons as polylines without re-appending the initial point: my @paths;
# this cuts the last segment on purpose, so that the jump to the next if ($params{complete}) {
# path is more straight # we were requested to complete each loop;
my @paths = map Slic3r::Polyline->new($_), # in this case we don't try to make more continuous paths
@{ Boost::Geometry::Utils::polygon_multi_linestring_intersection( @paths = map $_->split_at_first_point,
$surface->expolygon, @{intersection($surface->expolygon, \@polygons)};
\@polygons,
) };
# connect paths } else {
{ # consider polygons as polylines without re-appending the initial point:
my $collection = Slic3r::Polyline::Collection->new(polylines => [@paths]); # this cuts the last segment on purpose, so that the jump to the next
@paths = (); # path is more straight
foreach my $path ($collection->chained_path) { @paths = map Slic3r::Polyline->new($_),
if (@paths) { @{ Boost::Geometry::Utils::polygon_multi_linestring_intersection(
# distance between first point of this path and last point of last path $surface->expolygon,
my $distance = $paths[-1][-1]->distance_to($path->[0]); \@polygons,
) };
if ($distance <= $m->{hex_width}) { # connect paths
push @{$paths[-1]}, @$path; {
next; my $collection = Slic3r::Polyline::Collection->new(polylines => [@paths]);
@paths = ();
foreach my $path ($collection->chained_path) {
if (@paths) {
# distance between first point of this path and last point of last path
my $distance = $paths[-1][-1]->distance_to($path->[0]);
if ($distance <= $m->{hex_width}) {
push @{$paths[-1]}, @$path;
next;
}
} }
push @paths, $path;
} }
push @paths, $path;
} }
}
# clip paths again to prevent connection segments from crossing the expolygon boundaries # clip paths again to prevent connection segments from crossing the expolygon boundaries
@paths = map Slic3r::Polyline->new($_), @paths = map Slic3r::Polyline->new($_),
@{ Boost::Geometry::Utils::multi_polygon_multi_linestring_intersection( @{ Boost::Geometry::Utils::multi_polygon_multi_linestring_intersection(
[ $surface->expolygon->offset_ex(scaled_epsilon) ], [ $surface->expolygon->offset_ex(scaled_epsilon) ],
[ @paths ], [ @paths ],
) }; ) };
}
return { flow_spacing => $params{flow_spacing} }, @paths; return { flow_spacing => $params{flow_spacing} }, @paths;
} }