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

Make sure bridges don't overlap. #58

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-11-21 16:35:10 +01:00
parent 74786185e4
commit 36e1ea0caa
1 changed files with 31 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lib/Slic3r/Layer.pm
View file

@ -297,6 +297,7 @@ sub make_surfaces {
$self->cleanup_lines;
eval { $detect->(); };
warn $@ if $@;
if (@discarded_lines) {
print " Warning: even slow detection algorithm throwed errors. Review the output before printing.\n";
@ -441,6 +442,36 @@ sub process_bridges {
), @$intersection;
}
}
# now we need to merge bridges to avoid overlapping
{
# build a list of unique bridge types
my $unique_type = sub { $_[0]->surface_type . "_" . ($_[0]->bridge_angle || '') };
my @unique_types = ();
foreach my $bridge (@{$self->bridges}) {
push @unique_types, $unique_type->($bridge);
}
# merge bridges of the same type, removing any of the bridges already merged;
# the order of @unique_types determines the priority between bridges having
# different surface_type or bridge_angle
my @bridges = ();
foreach my $type (@unique_types) {
my @surfaces = grep { $unique_type->($_) eq $type } @{$self->bridges};
my $union = union_ex([ map $_->p, @surfaces ]);
my $diff = diff_ex(
[ map @$_, @$union ],
[ map $_->p, @bridges ],
);
push @bridges, map Slic3r::Surface::Bridge->cast_from_expolygon($_,
surface_type => $surfaces[0]->surface_type,
bridge_angle => $surfaces[0]->bridge_angle,
), @$union;
}
@{$self->bridges} = @bridges;
}
}
# generates a set of surfaces that will be used to make perimeters