(bind-func gui_mouse_x (lambda () (let ((x_ptr:double* (salloc)) (y_ptr:double* (salloc))) (glfwGetCursorPos (GUI_window EXTEMPORE_GUI) x_ptr y_ptr) (convert (pref x_ptr 0) float))))