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

Ported same_line() to XS

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-11-06 19:38:10 +01:00
parent b5aaeb9b12
commit d8e098ab0e
5 changed files with 21 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/Slic3r/ExPolygon.pm
View file

@ -7,7 +7,7 @@ use warnings;
use Boost::Geometry::Utils;
use List::Util qw(first);
use Math::Geometry::Voronoi;
use Slic3r::Geometry qw(X Y A B point_in_polygon same_line epsilon scaled_epsilon);
use Slic3r::Geometry qw(X Y A B point_in_polygon epsilon scaled_epsilon);
use Slic3r::Geometry::Clipper qw(union_ex);
sub wkt {
@ -60,9 +60,9 @@ sub encloses_line {
my $clip = $self->clip_line($line);
if (!defined $tolerance) {
# optimization
return @$clip == 1 && same_line($clip->[0]->pp, $line->pp);
return @$clip == 1 && $clip->[0]->coincides_with($line);
} else {
return @$clip == 1 && abs(Boost::Geometry::Utils::linestring_length($clip->[0]->pp) - $line->length) < $tolerance;
return @$clip == 1 && abs($clip->[0]->length - $line->length) < $tolerance;
}
}