juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-20 11:53:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Ported Slic3r::Polyline::Collection

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-08-30 00:06:10 +02:00
parent fb82de9aaf
commit 1cfdf7e955
12 changed files with 194 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -96,9 +96,9 @@ sub fill_surface {
# connect paths
{
my $collection = Slic3r::Polyline::Collection->new(polylines => [@paths]);
my $collection = Slic3r::Polyline::Collection->new(@paths);
@paths = ();
foreach my $path ($collection->chained_path) {
foreach my $path (@{$collection->chained_path(0)}) {
if (@paths) {
# distance between first point of this path and last point of last path
my $distance = $paths[-1]->last_point->distance_to($path->first_point);

6
lib/Slic3r/Fill/Rectilinear.pm
View File

@@ -66,9 +66,7 @@ sub fill_surface {
# connect lines
unless ($params{dont_connect}) {
my ($expolygon_off) = @{$expolygon->offset_ex(scale $params{flow_spacing}/2)};
my $collection = Slic3r::Polyline::Collection->new(
polylines => [ @polylines ],
);
my $collection = Slic3r::Polyline::Collection->new(@polylines);
@polylines = ();
my $tolerance = 10 * scaled_epsilon;
@@ -80,7 +78,7 @@ sub fill_surface {
}
: sub { $_[X] <= $diagonal_distance && $_[Y] <= $diagonal_distance };
foreach my $polyline ($collection->chained_path) {
foreach my $polyline (@{$collection->chained_path(0)}) {
if (@polylines) {
my $first_point = $polyline->first_point;
my $last_point = $polylines[-1]->last_point;