apply_settings Subroutine

private subroutine apply_settings(self)

Give the lighting and the frame's color to the map (if made).

Arguments

Type IntentOptional Attributes Name
type(TerrainBody), intent(inout) :: self

Calls

proc~~apply_settings~~CallsGraph proc~apply_settings 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

Called by

proc~~apply_settings~~CalledByGraph proc~apply_settings apply_settings proc~make_map make_map proc~make_map->proc~apply_settings proc~set_lighting TerrainBody%set_lighting proc~set_lighting->proc~apply_settings proc~terrain_build_contents TerrainBody%terrain_build_contents proc~terrain_build_contents->proc~make_map proc~terrain_update TerrainBody%terrain_update proc~terrain_update->proc~make_map

Source Code

    subroutine apply_settings(self)
        type(TerrainBody), intent(inout) :: self
        if (.not. c_associated(self%map)) return
        if (vkf_rocky_map_settings(self%map, merge(1_c_int, 0_c_int, self%lighting_), real(self%color(), c_float)) /= 0) &
            write(*, '(a)') 'vkframes: TerrainBody '//self%name()//': could not apply the settings'
    end subroutine apply_settings