Return the true if point is inside ABB.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(aabb_object), | intent(in) | :: | self | AABB. |
||
| type(vector_R8P), | intent(in) | :: | point | Point reference. |
Check result.
pure function is_inside(self, point)
!< Return the true if point is inside ABB.
class(aabb_object), intent(in) :: self !< AABB.
type(vector_R8P), intent(in) :: point !< Point reference.
logical :: is_inside !< Check result.
is_inside = ((point%x >= self%bmin%x.and.point%x <= self%bmax%x).and.&
(point%y >= self%bmin%y.and.point%y <= self%bmax%y).and.&
(point%z >= self%bmin%z.and.point%z <= self%bmax%z))
endfunction is_inside