+ (process-events)
+ (cond ((not (quit?))
+ (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
+ (to-origin)
+ (refresh-active-objects)
+ (when (functionp game-code) (funcall game-code))
+ (render-objects)
+ (SDL_GL_SwapBuffers)
+ (delay-frame))))