(bind-func gui_render
(lambda ()
(if (not (null? (GUI_window EXTEMPORE_GUI)))
(begin
(glClear (bitwise-or GL_COLOR_BUFFER_BIT
GL_DEPTH_BUFFER_BIT
GL_STENCIL_BUFFER_BIT))
(nvgBeginFrame (GUI_context EXTEMPORE_GUI)
(convert (GUI_width EXTEMPORE_GUI))
(convert (GUI_height EXTEMPORE_GUI))
(GUI_pixel_ratio EXTEMPORE_GUI))
(gui_render_subtree (GUI_root EXTEMPORE_GUI) (Rect 0. 0. (GUI_width EXTEMPORE_GUI) (GUI_height EXTEMPORE_GUI)))
(nvgEndFrame (GUI_context EXTEMPORE_GUI))
(glfwPollEvents)
(glfwSwapBuffers (GUI_window EXTEMPORE_GUI)))
void)))