set_light_radius Subroutine

private subroutine set_light_radius(self, radius)

The light's radius (scene units; 0: the light's own, if a Sphere).

Type Bound

ShadowCones

Arguments

Type IntentOptional Attributes Name
class(ShadowCones), intent(inout) :: self
real(kind=wp), intent(in) :: radius

scene units (0: the light's own)

Called by

proc~~set_light_radius~~CalledByGraph proc~set_light_radius ShadowCones%set_light_radius proc~new_shadow_cones new_shadow_cones proc~new_shadow_cones->proc~set_light_radius proc~set_light ShadowCones%set_light proc~set_light->proc~set_light_radius interface~shadowcones ShadowCones interface~shadowcones->proc~new_shadow_cones

Source Code

    subroutine set_light_radius(self, radius)
        class(ShadowCones), intent(inout) :: self
        real(wp), intent(in) :: radius                      !! scene units (0: the light's own)
        self%light_radius_ = max(0.0_wp, radius)
    end subroutine set_light_radius