(bind-func glfw_create_fullscreen_window
"creates a windowed fullscreen window (i.e. doesn't change video mode)"
(let ((window_title:i8* (zalloc 128)))
(lambda (mon)
(sprintf window_title "Extempore OpenGL Window")
(let ((monitor mon) ;;(glfwGetPrimaryMonitor))
(vidmode (glfwGetVideoMode monitor))
(width (tref vidmode 0))
(height (tref vidmode 1))
(res:GLFWwindow* null))
;; (glfwWindowHint GLFW_RED_BITS (tref vidmode 2))
;; (glfwWindowHint GLFW_GREEN_BITS (tref vidmode 3))
;; (glfwWindowHint GLFW_BLUE_BITS (tref vidmode 4))
;; (glfwWindowHint GLFW_REFRESH_RATE (tref vidmode 5))
(glfwWindowHint GLFW_DECORATED 0)
(glfwWindowHint GLFW_AUTO_ICONIFY 1)
(set! res (glfwCreateWindow width height window_title monitor null))
(glfwSetWindowPos res 0 0)
res))))