ray_intersections_number Function

  1. fossil_aabb_tree_object.f90
  2. fossil_aabb_tree_object
  3. ray_intersections_number

private pure function ray_intersections_number(self, ray_origin, ray_direction) result(intersections_number)

Return ray intersections number.

Arguments

Type IntentOptional AttributesName
class(aabb_tree_object), intent(in) :: self

AABB tree.
type(vector_R8P), intent(in) :: ray_origin

Ray origin.
type(vector_R8P), intent(in) :: ray_direction

Ray direction.

Return Value integer(kind=I4P)

Intersection number.

Calls

proc~~ray_intersections_number~3~~CallsGraph proc~ray_intersections_number~3 ray_intersections_number node node proc~ray_intersections_number~3->node proc~first_node first_node proc~ray_intersections_number~3->proc~first_node proc~nodes_number_at_level nodes_number_at_level proc~ray_intersections_number~3->proc~nodes_number_at_level proc~nodes_number nodes_number proc~first_node->proc~nodes_number proc~nodes_number->proc~nodes_number_at_level
Help

Source Code

ray_intersections_number

Source Code

   pure function ray_intersections_number(self, ray_origin, ray_direction) result(intersections_number)
   !< Return ray intersections number.
   class(aabb_tree_object), intent(in) :: self                 !< AABB tree.
   type(vector_R8P),        intent(in) :: ray_origin           !< Ray origin.
   type(vector_R8P),        intent(in) :: ray_direction        !< Ray direction.
   integer(I4P)                        :: intersections_number !< Intersection number.
   integer(I4P)                        :: level                !< Counter.
   integer(I4P)                        :: b, bb, bbb           !< Counter.

   intersections_number = 0
   associate(node=>self%node)
      do level=0, self%refinement_levels                  ! loop over refinement levels
         b = first_node(level=level)                      ! first node at finest level
         do bb=1, nodes_number_at_level(level=level)      ! loop over nodes at level
            bbb = b + bb - 1                              ! node numeration in tree
            if (node(bbb)%do_ray_intersect(ray_origin=ray_origin, ray_direction=ray_direction)) then
               intersections_number = intersections_number + &
                                      node(bbb)%ray_intersections_number(ray_origin=ray_origin, ray_direction=ray_direction)
            endif
         enddo
      enddo
   endassociate
   endfunction ray_intersections_number

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