Additions to the polygon library

1 files changed, 31 insertions, 0 deletions

diff --git a/t/polyclip.t b/t/polyclip.t
new file mode 100644
index 000000000..821e7011f
--- /dev/null
+++ b/t/polyclip.t
@@ -0,0 +1,31 @@
+use Test::More;
+
+plan tests => 4;
+
+BEGIN {
+    use FindBin;
+    use lib "$FindBin::Bin/../lib";
+}
+
+use Slic3r;
+
+my $square = [
+    [10, 10],
+    [20, 10],
+    [20, 20],
+    [10, 20],
+];
+
+my $line = [ [5, 15], [30, 15] ];
+
+my $intersection = Slic3r::Geometry::clip_segment_polygon($line, $square);
+is_deeply $intersection, [ [10, 15], [20, 15] ], 'line is clipped to square';
+
+$intersection = Slic3r::Geometry::clip_segment_polygon([ [0, 15], [8, 15] ], $square);
+is $intersection, undef, 'external lines are ignored 1';
+
+$intersection = Slic3r::Geometry::clip_segment_polygon([ [30, 15], [40, 15] ], $square);
+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';