Bugfix: medial axis missed some segments. #2144

1 files changed, 20 insertions, 1 deletions

diff --git a/t/angles.t b/t/angles.t
index 3b5d64e23..1e1a6c9c5 100644
--- a/t/angles.t
+++ b/t/angles.t
@@ -2,7 +2,7 @@ use Test::More;
 use strict;
 use warnings;
 
-plan tests => 26;
+plan tests => 34;
 
 BEGIN {
     use FindBin;
@@ -29,6 +29,20 @@ use Slic3r::Geometry qw(rad2deg_dir angle3points PI);
 #==========================================================
 
 {
+    is line_orientation([ [0, 0],  [10, 0] ]),  (0),      'E orientation';
+    is line_orientation([ [0, 0],  [0, 10] ]),  (PI/2),   'N orientation';
+    is line_orientation([ [10, 0], [0, 0]  ]),  (PI),     'W orientation';
+    is line_orientation([ [0, 10], [0, 0]  ]),  (PI*3/2), 'S orientation';
+    
+    is line_orientation([ [0, 0], [10, 10] ]),  (PI*1/4), 'NE orientation';
+    is line_orientation([ [10, 0], [0, 10] ]),  (PI*3/4), 'NW orientation';
+    is line_orientation([ [10, 10], [0, 0] ]),  (PI*5/4), 'SW orientation';
+    is line_orientation([ [0, 10], [10, 0] ]),  (PI*7/4), 'SE orientation';
+}
+
+#==========================================================
+
+{
     is line_direction([ [0, 0],  [10, 0] ]), (0),      'E direction';
     is line_direction([ [10, 0], [0, 0]  ]), (0),      'W direction';
     is line_direction([ [0, 0],  [0, 10] ]), (PI/2),   'N direction';
@@ -67,6 +81,11 @@ sub line_atan {
     return Slic3r::Line->new(@$l)->atan2_;
 }
 
+sub line_orientation {
+    my ($l) = @_;
+    return Slic3r::Line->new(@$l)->orientation;
+}
+
 sub line_direction {
     my ($l) = @_;
     return Slic3r::Line->new(@$l)->direction;