apply_mode Subroutine

private subroutine apply_mode(self)

Show or hide the texture, the constellations and the stars (and their names), as the draw mode says.

Arguments

Type IntentOptional Attributes Name
type(SkySphere), intent(in) :: self

Calls

proc~~apply_mode~~CallsGraph proc~apply_mode apply_mode interface~vkf_switch_set vkf_switch_set proc~apply_mode->interface~vkf_switch_set proc~check_status check_status proc~apply_mode->proc~check_status

Called by

proc~~apply_mode~~CalledByGraph proc~apply_mode apply_mode proc~make_line_node make_line_node proc~make_line_node->proc~apply_mode proc~make_name_node make_name_node proc~make_name_node->proc~apply_mode proc~make_star_node make_star_node proc~make_star_node->proc~apply_mode proc~make_star_node->proc~make_name_node proc~make_texture_node make_texture_node proc~make_texture_node->proc~apply_mode proc~set_draw_mode~2 SkySphere%set_draw_mode proc~set_draw_mode~2->proc~apply_mode proc~node~2 SkySphere%node proc~node~2->proc~make_line_node proc~node~2->proc~make_star_node proc~node~2->proc~make_texture_node proc~set_constellations SkySphere%set_constellations proc~set_constellations->proc~make_line_node proc~set_star_data SkySphere%set_star_data proc~set_star_data->proc~make_star_node proc~set_star_names SkySphere%set_star_names proc~set_star_names->proc~make_name_node proc~set_texture_map~2 SkySphere%set_texture_map proc~set_texture_map~2->proc~make_texture_node proc~set_sky WindowProxy%set_sky proc~set_sky->proc~node~2

Source Code

    subroutine apply_mode(self)
        type(SkySphere), intent(in) :: self
        if (c_associated(self%texture_switch)) &
            call check_status(vkf_switch_set(self%texture_switch, merge(1_c_int, 0_c_int, iand(self%mode, SKY_TEXTURE) /= 0)), &
                              'SkySphere')
        if (c_associated(self%star_switch)) &
            call check_status(vkf_switch_set(self%star_switch, merge(1_c_int, 0_c_int, iand(self%mode, SKY_STARS) /= 0)), &
                              'SkySphere')
        if (c_associated(self%line_switch)) &
            call check_status(vkf_switch_set(self%line_switch, merge(1_c_int, 0_c_int, self%mode /= SKY_NONE)), 'SkySphere')
    end subroutine apply_mode