3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added first unit test for bridge direction

Browse Source
This commit is contained in:
Alessandro Ranellucci 2014-04-08 13:08:42 +02:00
parent 119778caa9
commit 23e6abff49
2 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/Slic3r/Layer/BridgeDetector.pm
View File

@ -1,8 +1,9 @@
package Slic3r::Layer::BridgeDetector;
use Moo;
use List::Util qw(first sum);
use Slic3r::Geometry qw(PI);
use Slic3r::Geometry::Clipper qw(intersection_pl);
use Slic3r::Geometry::Clipper qw(intersection_pl intersection_ex);
has 'lower_slices' => (is => 'ro', required => 1); # ExPolygons or ExPolygonCollection
has 'perimeter_flow' => (is => 'ro', required => 1);

34
t/bridges.t Normal file
View File

@ -0,0 +1,34 @@
use Test::More tests => 1;
use strict;
use warnings;
BEGIN {
use FindBin;
use lib "$FindBin::Bin/../lib";
}
use List::Util qw(first);
use Slic3r;
use Slic3r::Geometry qw(scale);
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';
}
__END__