3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-24 07:03:59 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Bugfix: support material was generated under most bridges

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-02-25 21:39:01 +01:00
parent 1d0a852679
commit 70e69be60a
3 changed files with 41 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

56
lib/Slic3r/Print.pm
View file

@ -446,14 +446,38 @@ sub infill_every_layers {
sub generate_support_material {
my $self = shift;
# determine unsupported surfaces
my %layers = ();
my @unsupported_expolygons = ();
{
my (@a, @b) = ();
for (my $i = $#{$self->layers}; $i >=0; $i--) {
my $layer = $self->layers->[$i];
my @c = ();
if (@b) {
@c = @{diff_ex(
[ map @$_, @b ],
[ map @$_, map $_->expolygon->offset_ex(scale $Slic3r::flow_width), @{$layer->slices} ],
)};
$layers{$i} = [@c];
}
@b = @{union_ex([ map @$_, @c, @a ])};
# get unsupported surfaces for current layer
@a = map $_->expolygon->offset_ex(scale $Slic3r::flow_spacing * $Slic3r::perimeters),
grep $_->surface_type eq 'bottom' && !defined $_->bridge_angle,
@{$layer->fill_surfaces};
$_->simplify(scale $Slic3r::flow_spacing * 3) for @a;
push @unsupported_expolygons, @a;
}
}
return if !@unsupported_expolygons;
# generate paths for the pattern that we're going to use
my $support_pattern = [];
{
# get all surfaces needing support material
my @surfaces = grep $_->surface_type eq 'bottom' && !defined $_->bridge_angle,
map @{$_->slices}, grep $_->id > 0, @{$self->layers} or return;
my @support_material_areas = @{union_ex([ map $_->p, @surfaces ])};
my @support_material_areas = @{union_ex([ map @$_, @unsupported_expolygons ])};
for (1..$Slic3r::perimeters+1) {
foreach my $expolygon (@support_material_areas) {
@ -497,28 +521,6 @@ sub generate_support_material {
);
}
# now determine where to apply the pattern below unsupported surfaces
my %layers = ();
{
my (@a, @b) = ();
for (my $i = $#{$self->layers}; $i >=0; $i--) {
my $layer = $self->layers->[$i];
my @c = ();
if (@b) {
@c = @{diff_ex(
[ map @$_, @b ],
[ map @$_, map $_->expolygon->offset_ex(scale $Slic3r::flow_width), @{$layer->slices} ],
)};
$layers{$i} = [@c];
}
@b = @{union_ex([ map @$_, @c, @a ])};
@a = map $_->expolygon->offset_ex(scale 2),
grep $_->surface_type eq 'bottom' && !defined $_->bridge_angle,
@{$layer->slices};
$_->simplify(scale $Slic3r::flow_spacing * 3) for @a;
}
}
# apply the pattern to layers
{
my $clip_pattern = sub {