GitHub-Proxy/PrusaSlicer
1
0
Fork 0
mirror of https://git.mirrors.martin98.com/https://github.com/prusa3d/PrusaSlicer.git synced 2025-08-14 19:35:57 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Support material: refactoring

Browse Source
This commit is contained in:
Alessandro Ranellucci 2012-02-25 16:23:41 +01:00
parent a24ffee2aa
commit cc695c6c22
2 changed files with 29 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/Slic3r/Geometry.pm
View File

@ -295,6 +295,7 @@ sub polygon_has_vertex {
return 0; return 0;
} }
# polygon must be simple (non complex) and ccw
sub polygon_is_convex { sub polygon_is_convex {
my ($points) = @_; my ($points) = @_;
for (my $i = 0; $i <= $#$points; $i++) { for (my $i = 0; $i <= $#$points; $i++) {

21
lib/Slic3r/Print.pm
View File

@ -496,7 +496,9 @@ sub generate_support_material {
); );
} }
# now apply the pattern to layers below unsupported surfaces # now determine where to apply the pattern below unsupported surfaces
my %layers = ();
{
my (@a, @b) = (); my (@a, @b) = ();
for (my $i = $#{$self->layers}; $i >=0; $i--) { for (my $i = $#{$self->layers}; $i >=0; $i--) {
my $layer = $self->layers->[$i]; my $layer = $self->layers->[$i];
@ -506,11 +508,7 @@ sub generate_support_material {
[ map @$_, @b ], [ map @$_, @b ],
[ map @$_, map $_->expolygon->offset_ex(scale $Slic3r::flow_width), @{$layer->slices} ], [ map @$_, map $_->expolygon->offset_ex(scale $Slic3r::flow_width), @{$layer->slices} ],
)}; )};
$layer->support_fills(Slic3r::ExtrusionPath::Collection->new); $layers{$i} = [@c];
foreach my $expolygon (@c) {
push @{$layer->support_fills->paths}, map $_->clip_with_expolygon($expolygon),
map $_->clip_with_polygon($expolygon->bounding_box_polygon), @$support_pattern;
}
} }
@b = @{union_ex([ map @$_, @c, @a ])}; @b = @{union_ex([ map @$_, @c, @a ])};
@a = map $_->expolygon->offset_ex(scale 2), @a = map $_->expolygon->offset_ex(scale 2),
@ -518,6 +516,17 @@ sub generate_support_material {
@{$layer->slices}; @{$layer->slices};
$_->simplify(scale $Slic3r::flow_spacing * 3) for @a; $_->simplify(scale $Slic3r::flow_spacing * 3) for @a;
} }
}
# apply the pattern to layers
foreach my $layer_id (keys %layers) {
my $layer = $self->layers->[$layer_id];
$layer->support_fills(Slic3r::ExtrusionPath::Collection->new);
foreach my $expolygon (@{ $layers{$layer_id} }) {
push @{$layer->support_fills->paths}, map $_->clip_with_expolygon($expolygon),
map $_->clip_with_polygon($expolygon->bounding_box_polygon), @$support_pattern;
};
}
} }
sub export_gcode { sub export_gcode {