diff options
author | bubnikv <bubnikv@gmail.com> | 2017-07-19 11:45:39 +0300 |
---|---|---|
committer | bubnikv <bubnikv@gmail.com> | 2017-07-19 11:45:39 +0300 |
commit | 81823fe7dfa5aa1282ff921c36f66b08a02de63c (patch) | |
tree | 294d8c6b718f6968db33e45e8940294bd72a399e /t | |
parent | 2c82a327dd9e5270cf0f3a976360c8ec99ed3452 (diff) |
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.
Diffstat (limited to 't')
-rw-r--r-- | t/bridges.t | 2 | ||||
-rw-r--r-- | t/gaps.t | 1 | ||||
-rw-r--r-- | t/print.t | 2 | ||||
-rw-r--r-- | t/slice.t | 4 |
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; { @@ -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; @@ -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; { @@ -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) ]; } |