3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 04:31:15 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

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
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),
@ -520,6 +518,17 @@ sub generate_support_material {
} }
} }
# 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 {
my $self = shift; my $self = shift;
my ($file) = @_; my ($file) = @_;