Compute facets metrix.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(file_stl_object), | intent(inout) | :: | self | File STL. |
pure subroutine compute_metrix(self)
!< Compute facets metrix.
class(file_stl_object), intent(inout) :: self !< File STL.
if (self%facets_number>0) then
call self%facet%compute_metrix
! computing bounding box extents
self%bmin%x = minval(self%facet(:)%bb(1)%x)
self%bmin%y = minval(self%facet(:)%bb(1)%y)
self%bmin%z = minval(self%facet(:)%bb(1)%z)
self%bmax%x = maxval(self%facet(:)%bb(2)%x)
self%bmax%y = maxval(self%facet(:)%bb(2)%y)
self%bmax%z = maxval(self%facet(:)%bb(2)%z)
endif
endsubroutine compute_metrix