set_light Subroutine

private subroutine set_light(self, light, radius)

The light (e.g. the Sun; it must stay alive while set), and its radius (optional: see set_light_radius).

Type Bound

ShadowCones

Arguments

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

the light, e.g. the Sun (not owned)
real(kind=wp), intent(in), optional :: radius

scene units (see set_light_radius)

Calls

proc~~set_light~~CallsGraph proc~set_light ShadowCones%set_light proc~set_light_radius ShadowCones%set_light_radius proc~set_light->proc~set_light_radius

Source Code

    subroutine set_light(self, light, radius)
        class(ShadowCones), intent(inout) :: self
        class(ReferenceFrame), intent(in), target :: light  !! the light, e.g. the Sun (not owned)
        real(wp), intent(in), optional :: radius            !! scene units (see set_light_radius)
        self%light_ => light
        if (present(radius)) call self%set_light_radius(radius)
    end subroutine set_light