diff options
author | Alessandro <al@ubuntu1204-32.(none)> | 2013-11-11 16:00:50 +0400 |
---|---|---|
committer | Alessandro <al@ubuntu1204-32.(none)> | 2013-11-11 16:00:50 +0400 |
commit | e024b08762a7fac426555f88ca5d0bb645bad7fd (patch) | |
tree | 29c084d030bb8af02cf3a05f7a3bb0ef7d90ff05 /t/geometry.t | |
parent | 4250ebf64465cbdc72e7fafb65c7f766f9a4d96a (diff) |
Round Perl coordinates instead of truncating them to integers. #1486 #1445 #1464
Diffstat (limited to 't/geometry.t')
-rw-r--r-- | t/geometry.t | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/t/geometry.t b/t/geometry.t index 20736b50d..643900c1d 100644 --- a/t/geometry.t +++ b/t/geometry.t @@ -69,25 +69,25 @@ isnt Slic3r::Geometry::line_intersection($line1, $line2, 1), undef, 'line_inters my $polygons = [ 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], - [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], ), 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], + [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(736310778.185108, 3717423926.892399788), - Slic3r::Point->new(736310778.185108, 5017423926.8924), + Slic3r::Point->new(73631077, 371742392), + Slic3r::Point->new(73631077, 501742392), ]; is Slic3r::Geometry::can_connect_points(@$points, $polygons), 0, 'can_connect_points'; |