3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-11-02 20:51:23 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Prune bridge angles

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-04-29 18:36:50 +02:00
parent 7a9dec3720
commit caf7b3f97e
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/Slic3r/Layer/BridgeDetector.pm
View file

@ -81,11 +81,21 @@ sub detect_angle {
grep { !$_->first_point->coincides_with($_->last_point) } grep { !$_->first_point->coincides_with($_->last_point) }
@edges; @edges;
# remove duplicates
my $min_resolution = PI/180; # 1 degree
@angles = sort @angles;
for (my $i = 1; $i <= $#angles; ++$i) {
if (abs($angles[$i] - $angles[$i-1]) < $min_resolution) {
splice @angles, $i, 1;
--$i;
}
}
my %directions_coverage = (); # angle => score my %directions_coverage = (); # angle => score
my %directions_avg_length = (); # angle => score my %directions_avg_length = (); # angle => score
my $line_increment = $self->extrusion_width; my $line_increment = $self->extrusion_width;
my %unique_angles = map { $_ => 1 } @angles; my %unique_angles = map { $_ => 1 } @angles;
for my $angle (keys %unique_angles) { for my $angle (@angles) {
my $my_clip_area = [ map $_->clone, @$clip_area ]; my $my_clip_area = [ map $_->clone, @$clip_area ];
my $my_anchors = [ map $_->clone, @$anchors ]; my $my_anchors = [ map $_->clone, @$anchors ];
@ -106,8 +116,6 @@ sub detect_angle {
my @clipped_lines = map Slic3r::Line->new(@$_), @{ intersection_pl(\@lines, [ map @$_, @$my_clip_area ]) }; my @clipped_lines = map Slic3r::Line->new(@$_), @{ intersection_pl(\@lines, [ map @$_, @$my_clip_area ]) };
# remove any line not having both endpoints within anchors # remove any line not having both endpoints within anchors
# NOTE: these calls to contains_point() probably need to check whether the point
# is on the anchor boundaries too
@clipped_lines = grep { @clipped_lines = grep {
my $line = $_; my $line = $_;
(first { $_->contains_point($line->a) } @$my_anchors) (first { $_->contains_point($line->a) } @$my_anchors)