From 38c45af24c23d039af07a113725210072293754d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 9 Jan 2014 20:21:53 -0500
Subject: Add paused-agenda.

* 2d/game.scm (paused-agenda): New variable.
(tick): Tick paused-agenda.
---
 2d/game.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to '2d')

diff --git a/2d/game.scm b/2d/game.scm
index c58c419..b2dc0a7 100644
--- a/2d/game.scm
+++ b/2d/game.scm
@@ -28,11 +28,11 @@
   #:use-module (2d agenda)
   #:use-module (2d coroutine)
   #:use-module (2d game)
-  #:use-module (2d mvars)
   #:use-module (2d signals)
   #:use-module (2d vector2)
   #:export (ticks-per-second
             tick-interval
+            paused-agenda
             draw-hook
             run-game-loop
             quit-game
@@ -55,6 +55,10 @@
 (define tick-interval (make-parameter 0))
 (define draw-hook (make-hook 2))
 (define accumulator (make-parameter 0))
+;; This agenda is only ticked when the game loop is in the paused
+;; state.  Useful for things like the REPL that should be run even
+;; though the game is paused.
+(define paused-agenda (make-agenda))
 
 (define (run-game-loop)
   "Start the game loop."
@@ -91,6 +95,8 @@ is the unused accumulator time."
   "Advance the game by one frame."
   (if (game-paused?)
       (begin
+        (with-agenda paused-agenda
+          (tick-agenda!))
         (SDL:delay (tick-interval))
         accumulator)
       (catch #t
-- 
cgit v1.2.3