amd/orcaslicer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

More medial axis tests

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-03-03 02:13:50 +01:00
parent b49a652736
commit ba5435cde1
1 changed files with 62 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

77
t/thin.t
View file

@ -1,4 +1,4 @@
use Test::More tests => 3; use Test::More tests => 9;
use strict; use strict;
use warnings; use warnings;
@ -9,7 +9,7 @@ BEGIN {
use Slic3r; use Slic3r;
use List::Util qw(first); use List::Util qw(first);
use Slic3r::Geometry qw(epsilon scale); use Slic3r::Geometry qw(epsilon scale unscale);
use Slic3r::Test; use Slic3r::Test;
{ {
@ -45,20 +45,19 @@ use Slic3r::Test;
'no superfluous thin walls are generated for toothed profile'; 'no superfluous thin walls are generated for toothed profile';
} }
my $square = Slic3r::Polygon->new_scale( # ccw
[100, 100],
[200, 100],
[200, 200],
[100, 200],
);
my $hole_in_square = Slic3r::Polygon->new_scale( # cw
[140, 140],
[140, 160],
[160, 160],
[160, 140],
);
{ {
my $square = Slic3r::Polygon->new_scale( # ccw
[100, 100],
[200, 100],
[200, 200],
[100, 200],
);
my $hole_in_square = Slic3r::Polygon->new_scale( # cw
[140, 140],
[140, 160],
[160, 160],
[160, 140],
);
my $expolygon = Slic3r::ExPolygon->new($square, $hole_in_square); my $expolygon = Slic3r::ExPolygon->new($square, $hole_in_square);
my $res = $expolygon->medial_axis(scale 10); my $res = $expolygon->medial_axis(scale 10);
is scalar(@$res), 1, 'medial axis of a square shape is a single closed loop'; is scalar(@$res), 1, 'medial axis of a square shape is a single closed loop';
@ -66,4 +65,52 @@ my $hole_in_square = Slic3r::Polygon->new_scale( # cw
'medial axis loop has reasonable length'; 'medial axis loop has reasonable length';
} }
{
my $expolygon = Slic3r::ExPolygon->new(Slic3r::Polygon->new_scale(
[100, 100],
[120, 100],
[120, 200],
[100, 200],
));
my $res = $expolygon->medial_axis(scale 10);
is scalar(@$res), 1, 'medial axis of a narrow rectangle is a single line';
ok unscale($res->[0]->length) >= (200-100 - (120-100)) - epsilon, 'medial axis has reasonable length';
}
{
my $expolygon = Slic3r::ExPolygon->new(Slic3r::Polygon->new_scale(
[100, 100],
[120, 100],
[112, 200],
[108, 200],
));
my $res = $expolygon->medial_axis(scale 10);
is scalar(@$res), 1, 'medial axis of a narrow trapezoid is a single line';
ok unscale($res->[0]->length) >= (200-100 - (120-100)) - epsilon, 'medial axis has reasonable length';
}
{
my $expolygon = Slic3r::ExPolygon->new(Slic3r::Polygon->new_scale(
[100, 100],
[120, 100],
[120, 180],
[200, 180],
[200, 200],
[100, 200],
));
my $res = $expolygon->medial_axis(scale 20);
is scalar(@$res), 1, 'medial axis of a L shape is a single polyline';
my $len = unscale($res->[0]->length) + 20; # 20 is the thickness of the expolygon, which is subtracted from the ends
ok $len > 80*2 && $len < 100*2, 'medial axis has reasonable length';
if (0) {
require "Slic3r/SVG.pm";
Slic3r::SVG::output(
"thin.svg",
expolygons => [$expolygon],
polylines => $res,
);
}
}
__END__ __END__