set_light_diffuse Subroutine

private subroutine set_light_diffuse(self, rgb)

The light source's diffuse color (see set_light_ambient).

Type Bound

ReferenceFrame

Arguments

Type IntentOptional Attributes Name
class(ReferenceFrame), intent(inout) :: self
real(kind=wp), intent(in) :: rgb(3)

diffuse color [r, g, b] (0 to 1; default 0.8 gray)

Calls

proc~~set_light_diffuse~2~~CallsGraph proc~set_light_diffuse~2 ReferenceFrame%set_light_diffuse proc~apply_light apply_light proc~set_light_diffuse~2->proc~apply_light interface~vkf_light_set vkf_light_set proc~apply_light->interface~vkf_light_set proc~check_status check_status proc~apply_light->proc~check_status

Source Code

    subroutine set_light_diffuse(self, rgb)
        class(ReferenceFrame), intent(inout) :: self
        real(wp), intent(in) :: rgb(3)                      !! diffuse color [r, g, b] (0 to 1; default 0.8 gray)
        self%light_diffuse_ = rgb
        call apply_light(self)
    end subroutine set_light_diffuse