amd/orcaslicer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Minor cleanup of imported symbols

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-10-25 11:15:12 +02:00
parent 366e10d6ec
commit ed17c22889
6 changed files with 6 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Slic3r/GCode.pm
View file

@ -5,7 +5,7 @@ use List::Util qw(min max first);
use Slic3r::ExtrusionLoop ':roles'; use Slic3r::ExtrusionLoop ':roles';
use Slic3r::ExtrusionPath ':roles'; use Slic3r::ExtrusionPath ':roles';
use Slic3r::Flow ':roles'; use Slic3r::Flow ':roles';
use Slic3r::Geometry qw(epsilon scale unscale scaled_epsilon points_coincide PI X Y B); use Slic3r::Geometry qw(epsilon scale unscale PI X Y B);
use Slic3r::Geometry::Clipper qw(union_ex offset_ex); use Slic3r::Geometry::Clipper qw(union_ex offset_ex);
use Slic3r::Surface ':types'; use Slic3r::Surface ':types';

15
lib/Slic3r/Geometry.pm
View file

@ -13,7 +13,7 @@ our @EXPORT_OK = qw(
point_along_segment polygon_segment_having_point polygon_has_subsegment point_along_segment polygon_segment_having_point polygon_has_subsegment
deg2rad rad2deg deg2rad rad2deg
rotate_points move_points rotate_points move_points
dot perp polygon_points_visibility dot perp
line_intersection bounding_box bounding_box_intersect line_intersection bounding_box bounding_box_intersect
angle3points angle3points
chained_path chained_path_from collinear scale unscale chained_path chained_path_from collinear scale unscale
@ -291,19 +291,6 @@ sub perp {
return $u->[X] * $v->[Y] - $u->[Y] * $v->[X]; return $u->[X] * $v->[Y] - $u->[Y] * $v->[X];
} }
sub polygon_points_visibility {
my ($polygon, $p1, $p2) = @_;
my $our_line = [ $p1, $p2 ];
foreach my $line (polygon_lines($polygon)) {
my $intersection = line_intersection($our_line, $line, 1) // next;
next if grep points_coincide($intersection, $_), $p1, $p2;
return 0;
}
return 1;
}
sub line_intersects_any { sub line_intersects_any {
my ($line, $lines) = @_; my ($line, $lines) = @_;
for (@$lines) { for (@$lines) {

1
lib/Slic3r/Layer.pm
View file

@ -3,7 +3,6 @@ use strict;
use warnings; use warnings;
use List::Util qw(first); use List::Util qw(first);
use Slic3r::Geometry qw(scale chained_path);
use Slic3r::Geometry::Clipper qw(union_ex intersection_ex); use Slic3r::Geometry::Clipper qw(union_ex intersection_ex);
# the following two were previously generated by Moo # the following two were previously generated by Moo

2
lib/Slic3r/Layer/Region.pm
View file

@ -6,7 +6,7 @@ use List::Util qw(sum first);
use Slic3r::ExtrusionLoop ':roles'; use Slic3r::ExtrusionLoop ':roles';
use Slic3r::ExtrusionPath ':roles'; use Slic3r::ExtrusionPath ':roles';
use Slic3r::Flow ':roles'; use Slic3r::Flow ':roles';
use Slic3r::Geometry qw(PI A B scale unscale chained_path points_coincide); use Slic3r::Geometry qw(PI A B scale unscale chained_path);
use Slic3r::Geometry::Clipper qw(union_ex diff_ex intersection_ex use Slic3r::Geometry::Clipper qw(union_ex diff_ex intersection_ex
offset offset_ex offset2 offset2_ex union_pt diff intersection offset offset_ex offset2 offset2_ex union_pt diff intersection
union diff intersection_ppl diff_ppl); union diff intersection_ppl diff_ppl);

4
lib/Slic3r/Print.pm
View file

@ -7,9 +7,9 @@ use File::Spec;
use List::Util qw(min max first sum); use List::Util qw(min max first sum);
use Slic3r::ExtrusionPath ':roles'; use Slic3r::ExtrusionPath ':roles';
use Slic3r::Flow ':roles'; use Slic3r::Flow ':roles';
use Slic3r::Geometry qw(X Y Z X1 Y1 X2 Y2 MIN MAX PI scale unscale move_points chained_path use Slic3r::Geometry qw(X Y Z X1 Y1 X2 Y2 MIN MAX PI scale unscale chained_path
convex_hull); convex_hull);
use Slic3r::Geometry::Clipper qw(diff_ex union_ex union_pt intersection_ex intersection offset use Slic3r::Geometry::Clipper qw(diff_ex union_ex intersection_ex intersection offset
offset2 union union_pt_chained JT_ROUND JT_SQUARE); offset2 union union_pt_chained JT_ROUND JT_SQUARE);
use Slic3r::Print::State ':steps'; use Slic3r::Print::State ':steps';

2
lib/Slic3r/Print/Object.pm
View file

@ -4,7 +4,7 @@ use warnings;
use List::Util qw(min max sum first); use List::Util qw(min max sum first);
use Slic3r::Flow ':roles'; use Slic3r::Flow ':roles';
use Slic3r::Geometry qw(X Y Z PI scale unscale deg2rad rad2deg scaled_epsilon chained_path); use Slic3r::Geometry qw(X Y Z PI scale unscale chained_path);
use Slic3r::Geometry::Clipper qw(diff diff_ex intersection intersection_ex union union_ex use Slic3r::Geometry::Clipper qw(diff diff_ex intersection intersection_ex union union_ex
offset offset_ex offset2 offset2_ex CLIPPER_OFFSET_SCALE JT_MITER); offset offset_ex offset2 offset2_ex CLIPPER_OFFSET_SCALE JT_MITER);
use Slic3r::Print::State ':steps'; use Slic3r::Print::State ':steps';