X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=de3a3f886a848fee75beb12de1266fa5758bb080;hb=cb537bf64e0effe6e8b43cb98e23936d1434a9fb;hp=b9b415a0b711121da8cb8dcea11faf2a75194669;hpb=57a2b49670c77a435b67d19fed2d4ea80e5d2a3f;p=gacela.git diff --git a/gacela.lisp b/gacela.lisp index b9b415a..de3a3f8 100644 --- a/gacela.lisp +++ b/gacela.lisp @@ -246,14 +246,18 @@ (init-video-mode) (SDL_WM_SetCaption ,title "") (init-frame-time) + (refresh-running-mobs) (process-events) (do () ((quit?)) (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT)) + (logic-mobs) + (render-mobs) (glLoadIdentity) ,@code (SDL_GL_SwapBuffers) (delay-frame) (init-frame-time) + (refresh-running-mobs) (process-events) (setq running nil)))) @@ -261,7 +265,7 @@ (free-all-resources) ; (quit-audio) (quit-video-mode) -; (quit-all-procs) + (quit-all-mobs) ; (clear-events) ; (quit-events) (quit-sdl))