-;(defun game-loop (code)
-; (process-events)
-; (cond ((quit?) nil)
-; (t
-; (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
-; (glLoadIdentity)
-; (translate 0 0 *zoom*)
-; (funcall code)
-; (SDL_GL_SwapBuffers)
-; (SDL_Delay (- *gacela-freq* (rem (SDL_GetTicks) *gacela-freq*)))
-; (game-loop code))))
-