Reduced the content of Geometry.pm, removed unused Perl subroutines.

Reduced the use Slic3r::Geometry and use Slic3r::Geometry::Clipper
clauses to only reference used subroutines.

4 files changed, 4 insertions, 5 deletions

diff --git a/t/bridges.t b/t/bridges.t
index 582863a33..cee3d3caa 100644
--- a/t/bridges.t
+++ b/t/bridges.t
@@ -9,7 +9,7 @@ BEGIN {
 
 use List::Util qw(first sum);
 use Slic3r;
-use Slic3r::Geometry qw(scale epsilon deg2rad rad2deg PI);
+use Slic3r::Geometry qw(scale epsilon deg2rad rad2deg);
 use Slic3r::Test;
 
 {
diff --git a/t/gaps.t b/t/gaps.t
index 6210a7dce..23acf9fd0 100644
--- a/t/gaps.t
+++ b/t/gaps.t
@@ -11,7 +11,6 @@ use List::Util qw(first);
 use Slic3r;
 use Slic3r::Flow ':roles';
 use Slic3r::Geometry qw(PI scale unscale convex_hull);
-use Slic3r::Geometry::Clipper qw();
 use Slic3r::Surface ':types';
 use Slic3r::Test;
 
diff --git a/t/print.t b/t/print.t
index b716d9d9d..19f416357 100644
--- a/t/print.t
+++ b/t/print.t
@@ -9,7 +9,7 @@ BEGIN {
 
 use List::Util qw(first);
 use Slic3r;
-use Slic3r::Geometry qw(epsilon unscale X Y);
+use Slic3r::Geometry qw(unscale X Y);
 use Slic3r::Test;
 
 {
diff --git a/t/slice.t b/t/slice.t
index 301ae164e..6d1daff97 100644
--- a/t/slice.t
+++ b/t/slice.t
@@ -17,7 +17,7 @@ sub Slic3r::TriangleMesh::FE_BOTTOM {
 sub Slic3r::TriangleMesh::FE_TOP {}}
 
 use Slic3r;
-use Slic3r::Geometry qw(X Y Z A B);
+use Slic3r::Geometry qw(X Y Z);
 
 my @lines;
 my $z = 20;
@@ -143,7 +143,7 @@ sub line_plane_intersection {
     
     return [
         map sprintf('%.0f', $_),
-            map +($line->[B][$_] + ($line->[A][$_] - $line->[B][$_]) * ($z - $line->[B][Z]) / ($line->[A][Z] - $line->[B][Z])),
+            map +($line->[1][$_] + ($line->[0][$_] - $line->[1][$_]) * ($z - $line->[1][Z]) / ($line->[0][Z] - $line->[1][Z])),
                 (X,Y)
     ];
 }