set_body Subroutine

private subroutine set_body(self, body, radius)

The body casting the shadow (it must stay alive while set), and its radius (optional: see set_body_radius).

Type Bound

ShadowCones

Arguments

Type IntentOptional Attributes Name
class(ShadowCones), intent(inout) :: self
class(ReferenceFrame), intent(in), target :: body

the body casting the shadow (not owned)
real(kind=wp), intent(in), optional :: radius

scene units (see set_body_radius)

Calls

proc~~set_body~~CallsGraph proc~set_body ShadowCones%set_body proc~set_body_radius ShadowCones%set_body_radius proc~set_body->proc~set_body_radius

Source Code

    subroutine set_body(self, body, radius)
        class(ShadowCones), intent(inout) :: self
        class(ReferenceFrame), intent(in), target :: body   !! the body casting the shadow (not owned)
        real(wp), intent(in), optional :: radius            !! scene units (see set_body_radius)
        self%body_ => body
        if (present(radius)) call self%set_body_radius(radius)
    end subroutine set_body