(bind-func gl_draw
(let ((size 0.01))
(lambda (degree)
(glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
(glLoadIdentity)
(glTranslatef 0.0 -1.0 0.0)
(let ((i:float 0.0))
(dotimes (i 1000.0)
(glTranslatef (/ i 2000.0) 0.0 0.0)
(glColor3f (/ i 1500.0) 0.0 1.0)
(glRotatef degree (/ i 200000.0) 0.5 0.0)
(glBegin GL_QUADS)
(glVertex2f 0.0 0.0)
(glVertex2f size 0.0)
(glVertex2f size size)
(glVertex2f 0.0 size)
(glEnd)))
(glfwSwapBuffers window))))