Exclude support from bridged areas

This commit is contained in:
Alessandro Ranellucci 2014-04-26 16:07:43 +02:00
parent 7e3024d6ad
commit 148c773319
4 changed files with 33 additions and 4 deletions

View file

@ -1,4 +1,4 @@
use Test::More tests => 12;
use Test::More tests => 14;
use strict;
use warnings;
@ -67,6 +67,20 @@ use Slic3r::Test;
ok check_angle($lower, $bridge, 135), 'correct bridge angle for C-shaped overhang';
}
{
my $bridge = Slic3r::ExPolygon->new(
Slic3r::Polygon->new_scale([10,10],[20,10],[20,20], [10,20]),
);
my $lower = [
Slic3r::ExPolygon->new(
Slic3r::Polygon->new_scale([10,10],[10,20],[20,20],[20,30],[0,30],[0,10]),
),
];
$_->translate(scale 20, scale 20) for $bridge, @$lower; # avoid negative coordinates for easier SVG preview
ok check_angle($lower, $bridge, 45, undef, $bridge->area/2), 'correct bridge angle for L-shaped overhang';
}
sub check_angle {
my ($lower, $bridge, $expected, $tolerance, $expected_coverage) = @_;