poly_bound Subroutine

private subroutine poly_bound(self, center, radius)

The bounding sphere: about the vertices' box's center.

Type Bound

Polyhedron

Arguments

Type IntentOptional Attributes Name
class(Polyhedron), intent(in) :: self
real(kind=wp), intent(out) :: center(3)

the bounding sphere, frame coordinates (scene units)
real(kind=wp), intent(out) :: radius

the bounding sphere, frame coordinates (scene units)

Calls

proc~~poly_bound~~CallsGraph proc~poly_bound Polyhedron%poly_bound proc~vertices_sphere vertices_sphere proc~poly_bound->proc~vertices_sphere

Source Code

    subroutine poly_bound(self, center, radius)
        class(Polyhedron), intent(in) :: self
        real(wp), intent(out) :: center(3), radius          !! the bounding sphere, frame coordinates (scene units)
        call vertices_sphere(self%v, center, radius)
    end subroutine poly_bound