3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-08-07 22:14:00 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Fix threads, tests and require the most recent Moo version

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-09-12 11:09:03 +02:00
parent d660a1de0a
commit 747fd25f6d
7 changed files with 31 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

28
t/geometry.t
View file

@ -30,21 +30,21 @@ isnt Slic3r::Geometry::line_intersection($line1, $line2, 1), undef, 'line_inters
{
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],
[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(1045776000, 3277484000);
my $point = Slic3r::Point->new(104577600, 327748400);
local $Slic3r::Geometry::epsilon = 1E-5;
is_deeply Slic3r::Geometry::polygon_segment_having_point($polygon, $point)->pp,
[ [1070147000, 3400000000], [1045776000, 3277484000] ],
[ [107014700, 340000000], [104577600, 327748400] ],
'polygon_segment_having_point';
}
@ -67,7 +67,7 @@ isnt Slic3r::Geometry::line_intersection($line1, $line2, 1), undef, 'line_inters
#==========================================================
my $polygons = [
[ # contour, ccw
Slic3r::Polygon->new( # 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],
@ -75,18 +75,18 @@ my $polygons = [
[827892000, 3095347000], [698461000, 2947261000], [2540810000, 2947261000], [2852739000, 3487535000],
[2852739000, 4612464000], [2540810000, 5152739000],
],
[ # hole, cw
),
Slic3r::Polygon->new( # 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 ],
Slic3r::Point->new(736310778.185108, 3717423926.892399788),
Slic3r::Point->new(736310778.185108, 5017423926.8924),
];
is Slic3r::Geometry::can_connect_points(@$points, $polygons), 0, 'can_connect_points';