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

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;