compute_bb_from_facets Subroutine

  1. fossil_aabb_object.f90
  2. fossil_aabb_object
  3. compute_bb_from_facets

private pure subroutine compute_bb_from_facets(facet, bmin, bmax)

Compute AABB extents (minimum and maximum bounding box) from facets list.

Arguments

Type IntentOptional AttributesName
type(facet_object), intent(in) :: facet(:)

Facets list.
type(vector_R8P), intent(inout) :: bmin

Minimum point of AABB.
type(vector_R8P), intent(inout) :: bmax

Maximum point of AABB.

Called By

proc~~compute_bb_from_facets~~CalledByGraph proc~compute_bb_from_facets compute_bb_from_facets proc~initialize~2 initialize proc~initialize~2->proc~compute_bb_from_facets proc~update_extents update_extents proc~update_extents->proc~compute_bb_from_facets
Help

Source Code

compute_bb_from_facets

Source Code

   pure subroutine compute_bb_from_facets(facet, bmin, bmax)
   !< Compute AABB extents (minimum and maximum bounding box) from facets list.
   !<
   !< @note Facets' metrix must be already computed.
   type(facet_object), intent(in)    :: facet(:) !< Facets list.
   type(vector_R8P),   intent(inout) :: bmin     !< Minimum point of AABB.
   type(vector_R8P),   intent(inout) :: bmax     !< Maximum point of AABB.
   real(R8P)                         :: toll(3)  !< Small tollerance on AABB inclusion.

   toll(1) = (maxval(facet(:)%bb(2)%x) - minval(facet(:)%bb(1)%x)) / 100._R8P
   toll(2) = (maxval(facet(:)%bb(2)%y) - minval(facet(:)%bb(1)%y)) / 100._R8P
   toll(3) = (maxval(facet(:)%bb(2)%z) - minval(facet(:)%bb(1)%z)) / 100._R8P
   bmin%x = minval(facet(:)%bb(1)%x) - toll(1)
   bmin%y = minval(facet(:)%bb(1)%y) - toll(2)
   bmin%z = minval(facet(:)%bb(1)%z) - toll(3)
   bmax%x = maxval(facet(:)%bb(2)%x) + toll(1)
   bmax%y = maxval(facet(:)%bb(2)%y) + toll(2)
   bmax%z = maxval(facet(:)%bb(2)%z) + toll(3)
   endsubroutine compute_bb_from_facets

All Procedures

aabb_assign_aabb aabb_node_assign_aabb_node aabb_tree_assign_aabb_tree add_facets add_facets add_vertex_occurrence allocate_facets analize bmax bmin build_connectivity check_normal check_vertices_occurrencies cli_parse cli_parse cli_parse cli_parse cli_parse cli_parse close_file closest_point closest_point compute_bb_from_facets compute_metrix compute_metrix compute_normal compute_normals compute_octants compute_octants compute_volume create_aabb_tree destroy destroy destroy destroy destroy distance distance distance distance distance distance_from_facets distance_from_facets do_ray_intersect do_ray_intersect do_ray_intersect edge_connection_in_other_ref facet_assign_facet file_stl_assign_file_stl first_child_node first_node flip_edge has_facets has_facets initialize initialize initialize initialize initialize is_allocated is_inside is_point_inside_polyhedron_ri is_point_inside_polyhedron_sa load_facets_number_from_file load_from_file load_from_file_ascii load_from_file_binary load_header_from_file make_normal_consistent mirror_by_matrix mirror_by_matrix mirror_by_normal mirror_by_normal nodes_number nodes_number_at_level open_file parent_node ray_intersections_number ray_intersections_number ray_intersections_number resize resize reverse_normal reverse_normals rotate_by_axis_angle rotate_by_axis_angle rotate_by_matrix rotate_by_matrix sanitize_normals save_facets_into_file_stl save_facets_into_file_stl save_geometry_tecplot_ascii save_geometry_tecplot_ascii save_geometry_tecplot_ascii save_header_into_file save_into_file save_into_file_ascii save_into_file_binary save_into_file_stl save_trailer_into_file solid_angle statistics tetrahedron_volume translate translate update_connectivity update_extents update_extents vertex vertex_global_id