204 lines
8.0 KiB
Perl
204 lines
8.0 KiB
Perl
use Test::More;
|
|
use strict;
|
|
use warnings;
|
|
|
|
plan tests => 26;
|
|
|
|
BEGIN {
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../lib";
|
|
}
|
|
|
|
use Slic3r;
|
|
use Slic3r::Geometry qw(PI polyline_remove_parallel_continuous_edges
|
|
polyline_remove_acute_vertices polygon_remove_acute_vertices
|
|
polygon_remove_parallel_continuous_edges polygon_is_convex
|
|
chained_path_points epsilon scale);
|
|
|
|
#==========================================================
|
|
|
|
my $line1 = [ [5, 15], [30, 15] ];
|
|
my $line2 = [ [10, 20], [10, 10] ];
|
|
is_deeply Slic3r::Geometry::line_intersection($line1, $line2, 1)->arrayref, [10, 15], 'line_intersection';
|
|
|
|
#==========================================================
|
|
|
|
$line1 = [ [73.6310778185108/0.0000001, 371.74239268924/0.0000001], [73.6310778185108/0.0000001, 501.74239268924/0.0000001] ];
|
|
$line2 = [ [75/0.0000001, 437.9853/0.0000001], [62.7484/0.0000001, 440.4223/0.0000001] ];
|
|
isnt Slic3r::Geometry::line_intersection($line1, $line2, 1), undef, 'line_intersection';
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $polygon = Slic3r::Polygon->new(
|
|
[45919000, 515273900], [14726100, 461246400], [14726100, 348753500], [33988700, 315389800],
|
|
[43749700, 343843000], [45422300, 352251500], [52362100, 362637800], [62748400, 369577600],
|
|
[75000000, 372014700], [87251500, 369577600], [97637800, 362637800], [104577600, 352251500],
|
|
[107014700, 340000000], [104577600, 327748400], [97637800, 317362100], [87251500, 310422300],
|
|
[82789200, 309534700], [69846100, 294726100], [254081000, 294726100], [285273900, 348753500],
|
|
[285273900, 461246400], [254081000, 515273900],
|
|
);
|
|
|
|
# this points belongs to $polyline
|
|
# note: it's actually a vertex, while we should better check an intermediate point
|
|
my $point = Slic3r::Point->new(104577600, 327748400);
|
|
|
|
local $Slic3r::Geometry::epsilon = 1E-5;
|
|
is_deeply Slic3r::Geometry::polygon_segment_having_point($polygon, $point)->pp,
|
|
[ [107014700, 340000000], [104577600, 327748400] ],
|
|
'polygon_segment_having_point';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $point = Slic3r::Point->new(736310778.185108, 5017423926.8924);
|
|
my $line = Slic3r::Line->new([627484000, 3695776000], [750000000, 3720147000]);
|
|
is Slic3r::Geometry::point_in_segment($point, $line), 0, 'point_in_segment';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $point = Slic3r::Point->new(736310778.185108, 5017423926.8924);
|
|
my $line = Slic3r::Line->new([627484000, 3695776000], [750000000, 3720147000]);
|
|
is Slic3r::Geometry::point_in_segment($point, $line), 0, 'point_in_segment';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
my $polygons = [
|
|
Slic3r::Polygon->new( # contour, ccw
|
|
[45919000, 515273900], [14726100, 461246400], [14726100, 348753500], [33988700, 315389800],
|
|
[43749700, 343843000], [45422300, 352251500], [52362100, 362637800], [62748400, 369577600],
|
|
[75000000, 372014700], [87251500, 369577600], [97637800, 362637800], [104577600, 352251500],
|
|
[107014700, 340000000], [104577600, 327748400], [97637800, 317362100], [87251500, 310422300],
|
|
[82789200, 309534700], [69846100, 294726100], [254081000, 294726100], [285273900, 348753500],
|
|
[285273900, 461246400], [254081000, 515273900],
|
|
|
|
),
|
|
Slic3r::Polygon->new( # hole, cw
|
|
[75000000, 502014700], [87251500, 499577600], [97637800, 492637800], [104577600, 482251500],
|
|
[107014700, 470000000], [104577600, 457748400], [97637800, 447362100], [87251500, 440422300],
|
|
[75000000, 437985300], [62748400, 440422300], [52362100, 447362100], [45422300, 457748400],
|
|
[42985300, 470000000], [45422300, 482251500], [52362100, 492637800], [62748400, 499577600],
|
|
),
|
|
];
|
|
|
|
my $points = [
|
|
Slic3r::Point->new(73631077, 371742392),
|
|
Slic3r::Point->new(73631077, 501742392),
|
|
];
|
|
|
|
is Slic3r::Geometry::can_connect_points(@$points, $polygons), 0, 'can_connect_points';
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $p1 = [10, 10];
|
|
my $p2 = [10, 20];
|
|
my $p3 = [10, 30];
|
|
my $p4 = [20, 20];
|
|
my $p5 = [0, 20];
|
|
|
|
is Slic3r::Geometry::angle3points($p2, $p3, $p1), PI(), 'angle3points';
|
|
is Slic3r::Geometry::angle3points($p2, $p1, $p3), PI(), 'angle3points';
|
|
is Slic3r::Geometry::angle3points($p2, $p3, $p4), PI()/2*3, 'angle3points';
|
|
is Slic3r::Geometry::angle3points($p2, $p4, $p3), PI()/2, 'angle3points';
|
|
is Slic3r::Geometry::angle3points($p2, $p1, $p4), PI()/2, 'angle3points';
|
|
is Slic3r::Geometry::angle3points($p2, $p1, $p5), PI()/2*3, 'angle3points';
|
|
}
|
|
|
|
{
|
|
my $p1 = [30, 30];
|
|
my $p2 = [20, 20];
|
|
my $p3 = [10, 10];
|
|
my $p4 = [30, 10];
|
|
|
|
is Slic3r::Geometry::angle3points($p2, $p1, $p3), PI(), 'angle3points';
|
|
is Slic3r::Geometry::angle3points($p2, $p1, $p4), PI()/2*3, 'angle3points';
|
|
is Slic3r::Geometry::angle3points($p2, $p1, $p1), 2*PI(), 'angle3points';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $polygon = [
|
|
[2265447881, 7013509857], [2271869937, 7009802077], [2606221146, 6816764300], [1132221146, 4263721402],
|
|
[1098721150, 4205697705], [1228411320, 4130821051], [1557501031, 3940821051], [1737340080, 3836990933],
|
|
[1736886253, 3837252951], [1494771522, 3977037948], [2959638603, 6514262167], [3002271522, 6588104548],
|
|
[3083252364, 6541350240], [2854283608, 6673545411], [2525193897, 6863545411],
|
|
];
|
|
polygon_remove_parallel_continuous_edges($polygon);
|
|
polygon_remove_acute_vertices($polygon);
|
|
is scalar(@$polygon), 4, 'polygon_remove_acute_vertices';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $polygon = [
|
|
[226.5447881,701.3509857], [260.6221146,681.67643], [109.872115,420.5697705], [149.4771522,397.7037948],
|
|
[300.2271522,658.8104548], [308.3252364,654.135024],
|
|
];
|
|
polyline_remove_acute_vertices($polygon);
|
|
is scalar(@$polygon), 6, 'polyline_remove_acute_vertices';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $cw_square = [ [0,0], [0,10], [10,10], [10,0] ];
|
|
is polygon_is_convex($cw_square), 0, 'cw square is not convex';
|
|
is polygon_is_convex([ reverse @$cw_square ]), 1, 'ccw square is convex';
|
|
|
|
my $convex1 = [ [0,0], [10,0], [10,10], [0,10], [0,6], [4,6], [4,4], [0,4] ];
|
|
is polygon_is_convex($convex1), 0, 'concave polygon';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $polyline = Slic3r::Polyline->new([0, 0], [10, 0], [20, 0]);
|
|
is_deeply [ map $_->pp, @{$polyline->lines} ], [
|
|
[ [0, 0], [10, 0] ],
|
|
[ [10, 0], [20, 0] ],
|
|
], 'polyline_lines';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $polygon = Slic3r::Polygon->new([0, 0], [10, 0], [5, 5]);
|
|
my $result = $polygon->split_at_index(1);
|
|
is ref($result), 'Slic3r::Polyline', 'split_at_index returns polyline';
|
|
is_deeply $result->pp, [ [10, 0], [5, 5], [0, 0], [10, 0] ], 'split_at_index';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $bb = Slic3r::Geometry::BoundingBox->new_from_points([ map Slic3r::Point->new(@$_), [0, 1], [10, 2], [20, 2] ]);
|
|
$bb->scale(2);
|
|
is_deeply $bb->extents, [ [0,40], [2,4] ], 'bounding box is scaled correctly';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $line = Slic3r::Line->new([10,10], [20,10]);
|
|
is +($line->grow(5))[0]->area, Slic3r::Polygon->new([5,5], [25,5], [25,15], [5,15])->area, 'grow line';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
# if chained_path() works correctly, these points should be joined with no diagonal paths
|
|
# (thus 26 units long)
|
|
my @points = map Slic3r::Point->new_scale(@$_), [26,26],[52,26],[0,26],[26,52],[26,0],[0,52],[52,52],[52,0];
|
|
my @ordered = @{chained_path_points(\@points, $points[0])};
|
|
ok !(grep { abs($ordered[$_]->distance_to($ordered[$_+1]) - scale 26) > epsilon } 0..$#ordered-1), 'chained_path';
|
|
}
|
|
|
|
#==========================================================
|