Optimize honeycomb travels

slic3r · Jun 24, 2012 · f88f516 · f88f516
1 parent a6dca1d
commit f88f516
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lib/Slic3r/Fill/Honeycomb.pm b/lib/Slic3r/Fill/Honeycomb.pm
@@ -83,13 +83,15 @@ sub fill_surface {
         $self->cache->{$cache_id} = [@polygons];
     }
 
-    my $loops = intersection_ex(
+    my @paths = map Slic3r::Polyline->new(@$_, $_->[0]), map @$_, @{intersection_ex(
         $self->cache->{$cache_id},
         [ map @$_, $expolygon->offset_ex($overlap_distance) ],
+    )};
+    my $collection = Slic3r::ExtrusionPath::Collection->new(
+        paths => [ map Slic3r::ExtrusionPath->new(polyline => $_, role => -1), @paths ],
     );
-    my @paths = map [ @$_, $_->[0] ], map @$_, @$loops;
 
-    return {}, @paths;
+    return {}, map $_->polyline, $collection->shortest_path;
 }
 
 1;