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

Create *::Geometry::nearest_point_index to speed up shortest_path method.

Browse source 
This fix gives a further 10% speedup on simcop2387's coaster.
This commit is contained in:
Mark Hindess 2012-06-19 18:15:08 +01:00
parent 62eb41b967
commit f61a1f5a07
2 changed files with 23 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/Slic3r/Geometry.pm
View file

@ -239,17 +239,23 @@ sub polygon_lines {
sub nearest_point {
my ($point, $points) = @_;
my $index = nearest_point_index(@_);
return $points->[$index];
}
sub nearest_point_index {
my ($point, $points) = @_;
my ($nearest_point, $distance) = ();
foreach my $p (@$points) {
my $d = distance_between_points($point, $p);
my ($nearest_point_index, $distance) = ();
for my $i (0..$#$points) {
my $d = distance_between_points($point, $points->[$i]);
if (!defined $distance || $d < $distance) {
$nearest_point = $p;
$nearest_point_index = $i;
$distance = $d;
return $p if $distance < epsilon;
return $i if $distance < epsilon;
}
}
return $nearest_point;
return $nearest_point_index;
}
# given a segment $p1-$p2, get the point at $distance from $p1 along segment