3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-15 10:47:50 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

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

Browse source 
Reduced the use Slic3r::Geometry and use Slic3r::Geometry::Clipper
clauses to only reference used subroutines.
This commit is contained in:
bubnikv 2017-07-19 10:45:39 +02:00
parent 2c82a327dd
commit 81823fe7df
21 changed files with 51 additions and 437 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/bridges.t
View file

@ -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;
{

1
t/gaps.t
View file

@ -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;

2
t/print.t
View file

@ -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;
{

4
t/slice.t
View file

@ -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)
];
}