diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2011-10-05 00:27:45 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2011-10-05 00:27:45 +0400 |
commit | 2da5ee744812f0a2d49d7bd63eabcec984be5537 (patch) | |
tree | 22e4cbb277f125b982c33e24d3dc005f12819322 /t/polyclip.t | |
parent | f1a36502e11292b44d0a433322032ede519a7509 (diff) |
Bugfixes and improvements in surface detection
Diffstat (limited to 't/polyclip.t')
-rw-r--r-- | t/polyclip.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/polyclip.t b/t/polyclip.t index 821e7011f..605c4834b 100644 --- a/t/polyclip.t +++ b/t/polyclip.t @@ -1,6 +1,6 @@ use Test::More; -plan tests => 4; +plan tests => 9; BEGIN { use FindBin; @@ -29,3 +29,10 @@ is $intersection, undef, 'external lines are ignored 2'; $intersection = Slic3r::Geometry::clip_segment_polygon([ [12, 12], [18, 16] ], $square); is_deeply $intersection, [ [12, 12], [18, 16] ], 'internal lines are preserved'; + +is Slic3r::Geometry::point_in_segment([10, 10], [ [5, 10], [20, 10] ]), 1, 'point in horizontal segment'; +is Slic3r::Geometry::point_in_segment([30, 10], [ [5, 10], [20, 10] ]), 0, 'point not in horizontal segment'; +is Slic3r::Geometry::point_in_segment([10, 10], [ [10, 5], [10, 20] ]), 1, 'point in vertical segment'; +is Slic3r::Geometry::point_in_segment([10, 30], [ [10, 5], [10, 20] ]), 0, 'point not in vertical segment'; +is Slic3r::Geometry::point_in_segment([15, 15], [ [10, 10], [20, 20] ]), 1, 'point in diagonal segment'; +is Slic3r::Geometry::point_in_segment([20, 15], [ [10, 10], [20, 20] ]), 0, 'point not in diagonal segment'; |