146 lines
5.9 KiB
Perl
146 lines
5.9 KiB
Perl
use Test::More;
|
|
use strict;
|
|
use warnings;
|
|
|
|
plan tests => 17;
|
|
|
|
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);
|
|
|
|
#==========================================================
|
|
|
|
my $line1 = [ [5, 15], [30, 15] ];
|
|
my $line2 = [ [10, 20], [10, 10] ];
|
|
is_deeply Slic3r::Geometry::line_intersection($line1, $line2, 1), [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 $polyline = [
|
|
[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
|
|
my $point = [2797980957.103410,3392691792.513960];
|
|
|
|
local $Slic3r::Geometry::epsilon = 1E-5;
|
|
is_deeply Slic3r::Geometry::polygon_segment_having_point($polyline, $point),
|
|
[ [2540810000, 2947261000], [2852739000, 3487535000] ],
|
|
'polygon_segment_having_point';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $point = [ 736310778.185108, 5017423926.8924 ];
|
|
my $line = [ [627484000, 3695776000], [750000000, 3720147000] ];
|
|
is Slic3r::Geometry::point_in_segment($point, $line), 0, 'point_in_segment';
|
|
}
|
|
|
|
#==========================================================
|
|
|
|
{
|
|
my $point = [ 736310778.185108, 5017423926.8924 ];
|
|
my $line = [ [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';
|
|
}
|
|
|
|
#========================================================== |