mirror of
https://github.com/SoftFever/OrcaSlicer.git
synced 2025-08-08 14:34:04 -06:00
Some fixes to bridge direction detection. Includes regression tests
This commit is contained in:
parent
23e6abff49
commit
9be57f750d
3 changed files with 89 additions and 47 deletions
41
t/bridges.t
41
t/bridges.t
|
@ -1,4 +1,4 @@
|
|||
use Test::More tests => 1;
|
||||
use Test::More tests => 2;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
|
@ -9,26 +9,35 @@ BEGIN {
|
|||
|
||||
use List::Util qw(first);
|
||||
use Slic3r;
|
||||
use Slic3r::Geometry qw(scale);
|
||||
use Slic3r::Geometry qw(scale epsilon rad2deg);
|
||||
use Slic3r::Test;
|
||||
|
||||
my $flow = Slic3r::Flow->new(width => 0.5, spacing => 0.45, nozzle_diameter => 0.5);
|
||||
|
||||
{
|
||||
my $lower = Slic3r::ExPolygon->new(
|
||||
Slic3r::Polygon->new_scale([0,0], [20,0], [20,10], [0,10]),
|
||||
Slic3r::Polygon->new_scale([2,2], [2,8], [18,8], [18,2]),
|
||||
);
|
||||
my $bridge = $lower->[1]->clone;
|
||||
$bridge->reverse;
|
||||
$bridge = Slic3r::ExPolygon->new($bridge);
|
||||
my $bd = Slic3r::Layer::BridgeDetector->new(
|
||||
lower_slices => [$lower],
|
||||
perimeter_flow => $flow,
|
||||
infill_flow => $flow,
|
||||
);
|
||||
# 0 is North/South
|
||||
is $bd->detect_angle($bridge), 0, 'correct bridge angle detected';
|
||||
my $test = sub {
|
||||
my ($bridge_size, $expected_angle) = @_;
|
||||
|
||||
my ($x, $y) = @$bridge_size;
|
||||
my $lower = Slic3r::ExPolygon->new(
|
||||
Slic3r::Polygon->new_scale([-2,-2], [$x+2,-2], [$x+2,$y+2], [-2,$y+2]),
|
||||
Slic3r::Polygon->new_scale([0,0], [0,$y], [$x,$y], [$x,0]),
|
||||
);
|
||||
$lower->translate(scale 20, scale 20); # avoid negative coordinates for easier SVG preview
|
||||
my $bridge = $lower->[1]->clone;
|
||||
$bridge->reverse;
|
||||
$bridge = Slic3r::ExPolygon->new($bridge);
|
||||
my $bd = Slic3r::Layer::BridgeDetector->new(
|
||||
lower_slices => [$lower],
|
||||
perimeter_flow => $flow,
|
||||
infill_flow => $flow,
|
||||
);
|
||||
|
||||
ok abs(rad2deg($bd->detect_angle($bridge)) - $expected_angle) < epsilon, 'correct bridge angle detected';
|
||||
};
|
||||
|
||||
$test->([20,10], 90);
|
||||
$test->([10,20], 0);
|
||||
}
|
||||
|
||||
__END__
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue