Ported nearest_point() and nearest_point_index()

This commit is contained in:
Alessandro Ranellucci 2013-08-27 00:52:20 +02:00
parent f1e9216c70
commit b11b595c97
18 changed files with 79 additions and 69 deletions

View file

@ -54,20 +54,6 @@ sub grow {
)};
}
sub nearest_point_to {
my $self = shift;
my ($point) = @_;
$point = Slic3r::Geometry::nearest_point($point, $self);
return Slic3r::Point->new($point);
}
sub nearest_point_index_to {
my $self = shift;
my ($point) = @_;
return Slic3r::Geometry::nearest_point_index($point, $self);
}
sub clip_with_polygon {
my $self = shift;
my ($polygon) = @_;
@ -197,7 +183,7 @@ sub chained_path {
while (@my_paths) {
# find nearest point
my $start_index = defined $start_near
? Slic3r::Geometry::nearest_point_index($start_near, $endpoints)
? $start_near->nearest_point_index($endpoints)
: 0;
my $path_index = int($start_index/2);