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

New algorithm for clipping lines to complex polygons

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-10-06 12:20:25 +02:00
parent 5812804d6b
commit e2d2574b8b
3 changed files with 53 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/Slic3r/Geometry.pm
View file

@ -90,9 +90,7 @@ sub point_in_polygon {
# if point is not in polygon, let's check whether it belongs to the contour
if (!$side && 0) {
foreach my $line (polygon_lines($polygon)) {
return 1 if point_in_segment($point, $line);
}
return 1 if polygon_segment_having_point($polygon, $point);
}
return $side;
@ -458,5 +456,22 @@ sub bounding_box_intersect {
return 1;
}
sub clip_segment_complex_polygon {
my ($line, $polygons) = @_;
my @intersections = grep $_, map line_intersection($line, $_, 1),
map polygon_lines($_), @$polygons;
@intersections = sort { "$a->[X],$a->[Y]" cmp "$b->[X],$b->[Y]" } @intersections;
shift(@intersections) if !grep(point_in_polygon($intersections[0], $_), @$polygons)
&& !grep(polygon_segment_having_point($_, $intersections[0]), @$polygons);
my @lines = ();
while (@intersections) {
push @lines, [ shift(@intersections), shift(@intersections) ];
}
return [@lines];
}
1;