Create AABB tree.
Facets metrix must be already computed.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(file_stl_object), | intent(inout) | :: | self | File STL. |
||
| integer(kind=I4P), | intent(in), | optional | :: | refinement_levels | Total number of refinement levels used. |
subroutine create_aabb_tree(self, refinement_levels)
!< Create AABB tree.
!<
!< @note Facets metrix must be already computed.
class(file_stl_object), intent(inout) :: self !< File STL.
integer(I4P), intent(in), optional :: refinement_levels !< Total number of refinement levels used.
integer(I4P) :: refinement_levels_ !< Total number of refinement levels used, local variable.
refinement_levels_ = 2 ; if (present(refinement_levels)) refinement_levels_ = refinement_levels
call self%aabb%initialize(refinement_levels=refinement_levels_, facet=self%facet)
endsubroutine create_aabb_tree