(bind-func glfw_get_pixel_ratio
(lambda (window)
(let ((ww:i32* (alloc))
(wh:i32* (alloc))
(fbw:i32* (alloc))
(fbh:i32* (alloc)))
(glfwGetWindowSize window ww wh)
(glfwGetFramebufferSize window fbw fbh)
(/ (convert fbw float) (convert ww float)))))