X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=aeea861a222d133e94202fe1eca3efd1ea0401a9;hb=66e81fe38e9a6b3c58c5613ec6a81c7306e29cb3;hp=ff28dbb6900f1ae7c574af0db8e0151a06317adf;hpb=023823491bfe1a64e136bcc2d47c6ec5803f23bf;p=gacela.git

diff --git a/src/gacela.scm b/src/gacela.scm
index ff28dbb..aeea861 100644
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -26,6 +26,7 @@
 ;;; SDL Initialization Subsystem
 
 (define init-sdl #f)
+(define sdl-on? #f)
 (define quit-sdl #f)
 
 (let ((initialized #f))
@@ -34,6 +35,10 @@
 	  (cond ((not initialized) (SDL_Init SDL_INIT_EVERYTHING) (set! initialized #t))
 		(else initialized))))
 
+  (set! sdl-on?
+	(lambda ()
+	  (if initialized #t #f)))
+
   (set! quit-sdl
 	(lambda ()
 	  (SDL_Quit)
@@ -159,11 +164,6 @@
 
 ;;; GaCeLa Functions
 
-(define (init-gacela)
-  (init-sdl)
-  (init-gl))
-
-
 (define set-frames-per-second #f)
 (define init-frame-time #f)
 (define delay-frame #f)
@@ -235,20 +235,22 @@
 	(lambda ()
 	  (set! mobs (get-active-mobs))
 	  (set! running #t)
-	  (quit? #f)
+	  (quit! #f)
 	  (do () ((quit?))
 	    (init-frame-time)
-;	    (check-connections)
-;	    (eval-from-clients)
+	    (check-connections)
+	    (eval-from-clients)
 	    (process-events)
 	    (cond ((not (quit?))
-		   (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
-		   (to-origin)
+		   (cond ((video-mode-on?)
+			  (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
+			  (to-origin)))
 		   (cond ((mobs-changed?) (set! mobs (get-active-mobs))))
 		   (if (procedure? game-code) (game-code))
 		   (run-mob-actions mobs)
-		   (render-mobs mobs)
-		   (SDL_GL_SwapBuffers)
+		   (cond ((video-mode-on?)
+			  (render-mobs mobs)
+			  (SDL_GL_SwapBuffers)))
 		   (delay-frame))))
 	  (set! running #f)))