set_light_ambient Subroutine

private subroutine set_light_ambient(self, rgb)

The light source's ambient, diffuse and specular colors ([r, g, b], 0 to 1; defaults 0.05, 0.8 and 0.05 gray).

Type Bound

ReferenceFrame

Arguments

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

ambient color [r, g, b] (0 to 1; default 0.05 gray)

Calls

proc~~set_light_ambient~2~~CallsGraph proc~set_light_ambient~2 ReferenceFrame%set_light_ambient proc~apply_light apply_light proc~set_light_ambient~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_ambient(self, rgb)
        class(ReferenceFrame), intent(inout) :: self
        real(wp), intent(in) :: rgb(3)                      !! ambient color [r, g, b] (0 to 1; default 0.05 gray)
        self%light_ambient_ = rgb
        call apply_light(self)
    end subroutine set_light_ambient