3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-16 11:17:51 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Removed unused code

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-08-29 11:48:58 +02:00
parent bd7b0e2aed
commit 649ef6ce79
2 changed files with 0 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lib/Slic3r/ExtrusionPath.pm
View file

@ -87,38 +87,4 @@ sub is_bridge {
|| $self->role == EXTR_ROLE_OVERHANG_PERIMETER; || $self->role == EXTR_ROLE_OVERHANG_PERIMETER;
} }
sub split_at_acute_angles {
my $self = shift;
# calculate angle limit
my $angle_limit = abs(Slic3r::Geometry::deg2rad(40));
my @points = @{$self->p};
my @paths = ();
# take first two points
my @p = splice @points, 0, 2;
# loop until we have one spare point
while (my $p3 = shift @points) {
my $angle = abs(Slic3r::Geometry::angle3points($p[-1], $p[-2], $p3));
$angle = 2*PI - $angle if $angle > PI;
if ($angle < $angle_limit) {
# if the angle between $p[-2], $p[-1], $p3 is too acute
# then consider $p3 only as a starting point of a new
# path and stop the current one as it is
push @paths, $self->clone(polyline => Slic3r::Polyline->new(@p));
@p = ($p3);
push @p, grep $_, shift @points or last;
} else {
push @p, $p3;
}
}
push @paths, $self->clone(polyline => Slic3r::Polyline->new(@p))
if @p > 1;
return @paths;
}
1; 1;

9
lib/Slic3r/ExtrusionPath/Collection.pm
View file

@ -2,13 +2,4 @@ package Slic3r::ExtrusionPath::Collection;
use strict; use strict;
use warnings; use warnings;
sub cleanup {
my $self = shift;
# split paths at angles that are too acute to be printed as they will cause blobs
my @paths = map $_->split_at_acute_angles, @$self;
$self->clear;
$self->append(@paths);
}
1; 1;