set_light_diffuse Subroutine

private subroutine set_light_diffuse(self, rgb)

The diffuse color of the window's light (see set_light_ambient).

Type Bound

WindowProxy

Arguments

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

[r, g, b], 0 to 1 (default white)

Calls

proc~~set_light_diffuse~~CallsGraph proc~set_light_diffuse WindowProxy%set_light_diffuse proc~apply_window_light apply_window_light proc~set_light_diffuse->proc~apply_window_light interface~vkf_light_set vkf_light_set proc~apply_window_light->interface~vkf_light_set interface~vkf_viewer_light vkf_viewer_light proc~apply_window_light->interface~vkf_viewer_light

Source Code

    subroutine set_light_diffuse(self, rgb)
        class(WindowProxy), intent(inout) :: self
        real(wp), intent(in) :: rgb(3)                      !! [r, g, b], 0 to 1 (default white)
        self%light_diffuse_ = rgb
        call apply_window_light(self)
    end subroutine set_light_diffuse