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

Optimization of travel paths for perimeters

Browse Source
This commit is contained in:
Alessandro Ranellucci
2011-09-25 23:15:45 +02:00
parent 03341f3485
commit 0cd10441a1
7 changed files with 113 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/Slic3r/Polyline.pm
View File

@@ -18,11 +18,11 @@ sub id {
}
sub cast {
my $self = shift;
my $class = shift;
my ($points) = @_;
@$points = map { ref $_ eq 'ARRAY' ? Slic3r::Point->cast($_) : $_ } @$points;
return __PACKAGE__->new(points => $points);
return $class->new(points => $points);
}
sub lines {
@@ -82,4 +82,15 @@ sub make_clockwise {
$self->reverse_points if $self->is_counter_clockwise;
}
sub nearest_point_to {
my $self = shift;
my ($point) = @_;
# get point as arrayref
$point = ref $point eq 'ARRAY' ? $point : $point->p;
$point = Slic3r::Geometry::nearest_point($point, $self->p);
return Slic3r::Point->cast($point);
}
1;