Window scene

[gacela.git] / gacela / game.scm

diff --git a/gacela/game.scm b/gacela/game.scm
index dad04126bbd1812ea0ef7b92f4810fb49d33ab9f..86136cd9a08fdf0070554dcf6a975efff108ff1d 100644 (file)
--- a/gacela/game.scm
+++ b/gacela/game.scm
@@ -17,6 +17,7 @@
 
 (define-module (gacela game)
   #:use-module (gacela math)
+  #:use-module (gacela event)
   #:use-module ((sdl2) #:prefix sdl2:)
   #:use-module ((sdl2 render) #:prefix sdl2:)
   #:use-module ((sdl2 surface) #:prefix sdl2:)
@@ -72,7 +73,7 @@ unused accumulator time."
        (cond ((>= ticks max-ticks-per-frame)
               lag)
              ((>= lag tick-interval)
-                                       ;(process-events)
+              (process-events)
                                        ;(agenda-tick!)
               (iter (- lag tick-interval) (1+ ticks)))
              (else
@@ -152,8 +153,8 @@ milliseconds of the last iteration of the game loop."
   (sdl2:hide-window! %sdl-window)
   (sdl2:sdl-quit))
 
-(define (play-game scene)
+(define (play-game scene . args)
   (init-window)
-  (open-window)
+  (apply open-window args)
   (run-game-loop scene)
   (close-window))