create_hud Subroutine

private subroutine create_hud(self, k)

The node of HUD text k, added to the window (compiled if it runs).

Arguments

Type IntentOptional Attributes Name
type(WindowProxy), intent(inout) :: self
integer, intent(in) :: k

index in huds

Calls

proc~~create_hud~~CallsGraph proc~create_hud create_hud interface~vkf_viewer_hud_add vkf_viewer_hud_add proc~create_hud->interface~vkf_viewer_hud_add proc~alignment HUDText%alignment proc~create_hud->proc~alignment proc~color HUDText%color proc~create_hud->proc~color proc~font HUDText%font proc~create_hud->proc~font proc~label_create label_create proc~create_hud->proc~label_create proc~position HUDText%position proc~create_hud->proc~position proc~revision HUDText%revision proc~create_hud->proc~revision proc~text~2 HUDText%text proc~create_hud->proc~text~2 interface~vkf_label_create vkf_label_create proc~label_create->interface~vkf_label_create proc~get_font get_font proc~label_create->proc~get_font proc~vsg_alignment vsg_alignment proc~label_create->proc~vsg_alignment interface~vkf_font_read vkf_font_read proc~get_font->interface~vkf_font_read proc~find_font find_font proc~get_font->proc~find_font proc~find_in_dirs find_in_dirs proc~find_font->proc~find_in_dirs

Called by

proc~~create_hud~~CalledByGraph proc~create_hud create_hud proc~add_hud_text WindowProxy%add_hud_text proc~add_hud_text->proc~create_hud proc~create_huds create_huds proc~create_huds->proc~create_hud proc~update_huds update_huds proc~update_huds->proc~create_hud proc~frame WindowProxy%frame proc~frame->proc~create_huds proc~frame->proc~update_huds proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame

Source Code

    subroutine create_hud(self, k)
        type(WindowProxy), intent(inout) :: self
        integer, intent(in) :: k                            !! index in huds
        type(HUDText), pointer :: h
        h => self%huds(k)%p
        self%huds(k)%node = label_create(h%text(), [h%position(), 0.0_wp], h%color(), h%size(), 0.0_wp, &
                                         h%alignment(), h%font())
        self%huds(k)%font = h%font()
        if (.not. c_associated(self%huds(k)%node)) return
        if (vkf_viewer_hud_add(self%viewer_, self%huds(k)%node) /= 0) write(*, '(a)') 'vkframes: could not add HUD text'
        self%huds(k)%revision = h%revision()
    end subroutine create_hud