Files
OrcaSlicer-bambulab/lib/Slic3r/ExtrusionPath/Collection.pm
T

15 lines
303 B
Perl
Raw Normal View History

2011-09-26 10:52:58 +02:00
package Slic3r::ExtrusionPath::Collection;
2013-07-18 19:09:07 +02:00
use strict;
use warnings;
2011-10-01 14:26:54 +02:00
sub cleanup {
my $self = shift;
# split paths at angles that are too acute to be printed as they will cause blobs
my @paths = map $_->split_at_acute_angles, @$self;
$self->clear;
$self->append(@paths);
2011-10-01 14:26:54 +02:00
}
2011-09-26 10:52:58 +02:00
1;