set_light_specular Subroutine

private subroutine set_light_specular(self, rgb)

The light source's specular 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)

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

Calls

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