193 lines
7.6 KiB
Perl
193 lines
7.6 KiB
Perl
use Test::More;
|
|
use strict;
|
|
use warnings;
|
|
|
|
plan tests => 25;
|
|
|
|
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);
|
|
|
|
#==========================================================
|
|
|
|
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(
|
|
[459190000, 5152739000], [147261000, 4612464000], [147261000, 3487535000], [339887000, 3153898000],
|
|
[437497000, 3438430000], [454223000, 3522515000], [523621000, 3626378000], [627484000, 3695776000],
|
|
[750000000, 3720147000], [872515000, 3695776000], [976378000, 3626378000], [1045776000, 3522515000],
|
|
[1070147000, 3400000000], [1045776000, 3277484000], [976378000, 3173621000], [872515000, 3104223000],
|
|
[827892000, 3095347000], [698461000, 2947261000], [2540810000, 2947261000], [2852739000, 3487535000],
|
|
[2852739000, 4612464000], [2540810000, 5152739000],
|
|
);
|
|
|
|
# this points belongs to $polyline
|
|
# note: it's actually a vertex, while we should better check an intermediate point
|
|
my $point = Slic3r::Point->new(1045776000, 3277484000);
|
|
|
|
local $Slic3r::Geometry::epsilon = 1E-5;
|
|
is_deeply Slic3r::Geometry::polygon_segment_having_point($polygon, $point)->pp,
|
|
[ [1070147000, 3400000000], [1045776000, 3277484000] ],
|
|
'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 = [
|
|
[ # contour, ccw
|
|
[459190000, 5152739000], [147261000, 4612464000], [147261000, 3487535000], [339887000, 3153898000],
|
|
[437497000, 3438430000], [454223000, 3522515000], [523621000, 3626378000], [627484000, 3695776000],
|
|
[750000000, 3720147000], [872515000, 3695776000], [976378000, 3626378000], [1045776000, 3522515000],
|
|
[1070147000, 3400000000], [1045776000, 3277484000], [976378000, 3173621000], [872515000, 3104223000],
|
|
[827892000, 3095347000], [698461000, 2947261000], [2540810000, 2947261000], [2852739000, 3487535000],
|
|
[2852739000, 4612464000], [2540810000, 5152739000],
|
|
|
|
],
|
|
[ # hole, cw
|
|
[750000000, 5020147000], [872515000, 4995776000], [976378000, 4926378000], [1045776000, 4822515000],
|
|
[1070147000, 4700000000], [1045776000, 4577484000], [976378000, 4473621000], [872515000, 4404223000],
|
|
[750000000, 4379853000], [627484000, 4404223000], [523621000, 4473621000], [454223000, 4577484000],
|
|
[429853000, 4700000000], [454223000, 4822515000], [523621000, 4926378000], [627484000, 4995776000],
|
|
],
|
|
];
|
|
|
|
my $points = [
|
|
[ 736310778.185108, 3717423926.892399788 ],
|
|
[ 736310778.185108, 5017423926.8924 ],
|
|
];
|
|
|
|
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';
|
|
}
|
|
|
|
#==========================================================
|