vector_bound Subroutine

private subroutine vector_bound(self, center, radius)

The arrow's bounding sphere (frame coordinates).

Type Bound

VectorHandle

Arguments

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

the bound's center (frame coordinates)
real(kind=wp), intent(out) :: radius

its radius (scene units)

Calls

proc~~vector_bound~~CallsGraph proc~vector_bound VectorHandle%vector_bound proc~tip VectorHandle%tip proc~vector_bound->proc~tip

Source Code

    subroutine vector_bound(self, center, radius)
        class(VectorHandle), intent(in) :: self
        real(wp), intent(out) :: center(3)                  !! the bound's center (frame coordinates)
        real(wp), intent(out) :: radius                     !! its radius (scene units)
        center = 0.5_wp * self%tip()
        radius = 0.5_wp * norm2(self%tip())
    end subroutine vector_bound