(bind-func gl_print_driver_info
(lambda ()
(printf "--------------------------\n")
(printf "OpenGL Driver:\nVendor:%s\nRenderer:%s\nVersion:%s\n" (glGetString GL_VENDOR) (glGetString GL_RENDERER) (glGetString GL_VERSION))
(printf "--------------------------\n")
void))