has_light_source Function

private recursive function has_light_source(self) result(has)

Whether this frame or one of its descendants has a light source enabled.

Type Bound

ReferenceFrame

Arguments

Type IntentOptional Attributes Name
class(ReferenceFrame), intent(in) :: self

Return Value logical


Called by

proc~~has_light_source~~CalledByGraph proc~has_light_source ReferenceFrame%has_light_source proc~has_light_source->proc~has_light_source proc~update_window_light update_window_light proc~update_window_light->proc~has_light_source proc~frame WindowProxy%frame proc~frame->proc~update_window_light proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame

Source Code

    recursive logical function has_light_source(self) result(has)
        class(ReferenceFrame), intent(in) :: self
        integer :: k
        has = self%light_source
        do k = 1, self%n_children
            if (has) return
            has = self%children(k)%p%has_light_source()
        end do
    end function has_light_source