Prevent tiny extrusion points. #323

This commit is contained in:
Alessandro Ranellucci 2012-05-01 15:23:17 +02:00
parent f063d100f4
commit da43cd70b2

View File

@ -142,8 +142,10 @@ sub make_surfaces {
1, 1,
); );
# TODO: remove very small expolygons from diff before attempting to do medial axis if (@$diff) {
# (benchmark first) my $area_threshold = scale($Slic3r::flow_spacing) ** 2;
@$diff = grep $_->area > ($area_threshold), @$diff;
push @{$self->thin_walls}, push @{$self->thin_walls},
grep $_, grep $_,
map $_->medial_axis(scale $Slic3r::flow_width), map $_->medial_axis(scale $Slic3r::flow_width),
@ -151,6 +153,7 @@ sub make_surfaces {
Slic3r::debugf " %d thin walls detected\n", scalar(@{$self->thin_walls}) if @{$self->thin_walls}; Slic3r::debugf " %d thin walls detected\n", scalar(@{$self->thin_walls}) if @{$self->thin_walls};
} }
}
if (0) { if (0) {
require "Slic3r/SVG.pm"; require "Slic3r/SVG.pm";