X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=6a0b50126870a0d3dae4dfbb3c9fd4b00021e49a;hb=e82142f2231e5aacf47e3f0cf5e82679d4291af2;hp=4f1a4ddf54b3030a4cac38a73064009e6d3131b7;hpb=cd001a2c183f65f0894500569fea2ffcf7362f30;p=gacela.git

diff --git a/src/gacela.scm b/src/gacela.scm
index 4f1a4dd..6a0b501 100644
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -17,10 +17,12 @@
 
 ;;; Default values for Gacela
 
+(define *title* "Gacela")
 (define *width-screen* 640)
 (define *height-screen* 480)
 (define *bpp-screen* 32)
 (define *frames-per-second* 20)
+(define *mode* '2d)
 
 
 ;;; SDL Initialization Subsystem
@@ -81,7 +83,9 @@
 			(resize-screen-GL width height)))))
 
   (set! quit-video-mode
-	(lambda () (set! screen #f))))
+	(lambda ()
+	  (SDL_FreeSurface screen)
+	  (set! screen #f))))
 
 (define (set-2d-mode)
   (cond ((not (3d-mode?))
@@ -164,11 +168,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)
@@ -192,7 +191,7 @@
 (define set-game-properties #f)
 (define get-game-properties #f)
 
-(let ((ptitle "") (pwidth *width-screen*) (pheight *height-screen*) (pbpp *bpp-screen*) (pfps *frames-per-second*) (pmode '2d))
+(let ((ptitle *title*) (pwidth *width-screen*) (pheight *height-screen*) (pbpp *bpp-screen*) (pfps *frames-per-second*) (pmode *mode*))
   (set! set-game-properties
 	(lambda* (#:key title width height bpp fps mode)
 ;	  (init-video-mode)
@@ -266,12 +265,3 @@
   (set! set-game-code
 	(lambda (game-function)
 	  (set! game-code game-function))))
-
-(define (quit-game)
-   (quit-audio)
-   (quit-video-mode)
-;  (quit-all-mobs)
-;   (kill-all-objects)
-;   (clear-events)
-   (quit-events)
-   (quit-sdl))