set_lighting Subroutine

private subroutine set_lighting(self, lit)

Light the body with the scene's lights (default), or show its imagery as it is.

Type Bound

TerrainBody

Arguments

Type IntentOptional Attributes Name
class(TerrainBody), intent(inout) :: self
logical, intent(in) :: lit

true: lit by the scene's lights; false: imagery as it is

Calls

proc~~set_lighting~~CallsGraph proc~set_lighting TerrainBody%set_lighting proc~apply_settings apply_settings proc~set_lighting->proc~apply_settings interface~vkf_rocky_map_settings vkf_rocky_map_settings proc~apply_settings->interface~vkf_rocky_map_settings proc~color~2 ReferenceFrame%color proc~apply_settings->proc~color~2 proc~name ReferenceFrame%name proc~apply_settings->proc~name

Source Code

    subroutine set_lighting(self, lit)
        class(TerrainBody), intent(inout) :: self
        logical, intent(in) :: lit                          !! true: lit by the scene's lights; false: imagery as it is
        self%lighting_ = lit
        call apply_settings(self)
    end subroutine set_lighting