(bind-func gl_draw
(lambda (degree:float)
(glUseProgram sp)
(glUniform1f (glGetUniformLocation sp "time") (* .025 degree))
(glUniform2f (glGetUniformLocation sp "resolution") (convert width) (convert height))
(VAO_bind_and_draw_arrays vao GL_TRIANGLE_STRIP 0 4)
void))