Return closest point on (or in) AABB from point reference.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(aabb_node_object), | intent(in) | :: | self | AABB box. |
||
| type(vector_R8P), | intent(in) | :: | point | Point reference. |
Closest point on (on in) aabb to point.
pure function closest_point(self, point) result(closest)
!< Return closest point on (or in) AABB from point reference.
class(aabb_node_object), intent(in) :: self !< AABB box.
type(vector_R8P), intent(in) :: point !< Point reference.
type(vector_R8P) :: closest !< Closest point on (on in) aabb to point.
closest = MaxR8P
if (allocated(self%aabb)) closest = self%aabb%closest_point(point=point)
endfunction closest_point