Small optimization on an incredibly hot codepath.
This commit is contained in:
parent
7e51cbcf69
commit
060d2da7fe
1 changed files with 1 additions and 2 deletions
|
@ -116,8 +116,7 @@ sub distance_between_points {
|
||||||
}
|
}
|
||||||
|
|
||||||
sub comparable_distance_between_points {
|
sub comparable_distance_between_points {
|
||||||
my ($p1, $p2) = @_;
|
return (($_[0]->[X] - $_[1]->[X])**2) + (($_[0]->[Y] - $_[1]->[Y])**2);
|
||||||
return (($p1->[X] - $p2->[X])**2) + (($p1->[Y] - $p2->[Y])**2);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
sub point_line_distance {
|
sub point_line_distance {
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue