juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-17 02:22:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Also remove bridged perimeters area from support material

Browse Source
This commit is contained in:
Alessandro Ranellucci
2014-04-30 01:20:18 +02:00
parent 3e3cc4171c
commit 1d10cd3da6
3 changed files with 71 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/Slic3r/Polyline.pm
View File

@@ -2,7 +2,7 @@ package Slic3r::Polyline;
use strict;
use warnings;
use Slic3r::Geometry qw(A B X Y X1 X2 Y1 Y2);
use Slic3r::Geometry qw(X Y epsilon);
use Slic3r::Geometry::Clipper qw(JT_SQUARE);
sub new_scale {
@@ -26,4 +26,21 @@ sub size {
return [ Slic3r::Geometry::size_2D($self) ];
}
sub is_straight {
my ($self) = @_;
my $last_dir;
foreach my $line (@{$self->lines}) {
my $dir = $line->direction;
if (defined $last_dir) {
if (abs($dir - $last_dir) > epsilon) {
return 0;
}
}
$last_dir = $dir;
}
return 1;
}
1;