3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-25 15:44:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

Add spacing between adjacent surfaces to avoid mini blobs

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-12-18 13:38:45 +01:00
parent e5619ee543
commit f20209ce01
1 changed files with 31 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lib/Slic3r/Fill.pm
View file

@ -11,7 +11,7 @@ use Slic3r::Fill::OctagramSpiral;
use Slic3r::Fill::PlanePath; use Slic3r::Fill::PlanePath;
use Slic3r::Fill::Rectilinear; use Slic3r::Fill::Rectilinear;
use Slic3r::Fill::Rectilinear2; use Slic3r::Fill::Rectilinear2;
use Slic3r::Geometry qw(shortest_path); use Slic3r::Geometry qw(scale shortest_path);
use Slic3r::Geometry::Clipper qw(union_ex diff_ex); use Slic3r::Geometry::Clipper qw(union_ex diff_ex);
use XXX; use XXX;
@ -79,6 +79,36 @@ sub make_fill {
} }
} }
# add spacing between adjacent surfaces
{
my $distance = scale $Slic3r::flow_spacing / 2;
my @offsets = ();
foreach my $surface (@surfaces) {
my $expolygon = $surface->expolygon;
my $diff = diff_ex(
[ $expolygon->offset($distance) ],
$expolygon,
1,
);
push @offsets, map @$_, @$diff;
}
my @new_surfaces = ();
foreach my $surface (@surfaces) {
my $diff = diff_ex(
$surface->expolygon,
[ @offsets ],
);
push @new_surfaces, map Slic3r::Surface->cast_from_expolygon($_,
surface_type => $surface->surface_type,
bridge_angle => $surface->bridge_angle,
depth_layers => $surface->depth_layers,
), @$diff;
}
@surfaces = @new_surfaces;
}
# organize infill surfaces using a shortest path search # organize infill surfaces using a shortest path search
@surfaces = @{shortest_path([ @surfaces = @{shortest_path([
map [ $_->contour->points->[0], $_ ], @surfaces, map [ $_->contour->points->[0], $_ ], @surfaces,