region_color Function

private function region_color(self, region) result(c)

A region's color [r, g, b, a] (0 for an unknown region).

Type Bound

ShadowCones

Arguments

Type IntentOptional Attributes Name
class(ShadowCones), intent(in) :: self
integer, intent(in) :: region

SHADOW_UMBRA, SHADOW_PENUMBRA or SHADOW_ANTUMBRA

Return Value real(kind=wp), (4)


Calls

proc~~region_color~~CallsGraph proc~region_color ShadowCones%region_color proc~region_index region_index proc~region_color->proc~region_index

Source Code

    function region_color(self, region) result(c)
        class(ShadowCones), intent(in) :: self
        integer, intent(in) :: region                       !! SHADOW_UMBRA, SHADOW_PENUMBRA or SHADOW_ANTUMBRA
        real(wp) :: c(4)
        integer :: k
        c = 0.0_wp
        k = region_index(region)
        if (k > 0) c = self%region(k)%color
    end function region_color