Build facets connectivity.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(file_stl_object), | intent(inout) | :: | self | File STL. |
pure subroutine build_connectivity(self)
!< Build facets connectivity.
class(file_stl_object), intent(inout) :: self !< File STL.
integer(I4P) :: f1, f2 !< Counter.
if (self%facets_number>0) then
do f1=1, self%facets_number - 1
do f2=f1 + 1, self%facets_number
call self%facet(f1)%check_vertices_occurrencies(other=self%facet(f2))
enddo
enddo
do f1=1, self%facets_number
call self%facet(f1)%update_connectivity
enddo
endif
endsubroutine build_connectivity