diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-05-04 14:03:00 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-05-04 14:39:38 -0400 |
commit | d0ff41fb7a33c096a792ab57f5bbf7992b1cc399 (patch) | |
tree | 4b9bd31e0fd6ae71245892a353af83628372e63e /2d/game.scm | |
parent | c2a7defe0d13b20e50dbaf8aa48ffef5f65de65b (diff) |
Add current-agenda parameter.
* 2d/agenda.scm (current-agenda): New variable.
(with-agenda): New macro.
(agenda-time, tick-agenda!, clear-agenda!, schedule)
(schedule-interval, schedule-each, wait): Remove agenda parameter.
* 2d/game.scm (game-agenda): Delete it.
(update): Tick current agenda.
* 2d/helpers.scm (define-guardian): Remove agenda argument.
* 2d/repl.scm (start-2d-repl): Remove agenda argument to schedule-each.
* 2d/signal.scm (signal-sample, signal-delay, signal-throttle): Remove
agenda parameter.
* 2d/sprite.scm:
* examples/common.scm:
* examples/coroutine.scm:
* examples/font.scm:
* examples/particles.scm: Remove mention of game-agenda.
* README.org: Update example snippets.
Diffstat (limited to '2d/game.scm')
-rw-r--r-- | 2d/game.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/2d/game.scm b/2d/game.scm index befe784..d6a0345 100644 --- a/2d/game.scm +++ b/2d/game.scm @@ -32,7 +32,6 @@ #:use-module (2d window) #:export (tick-interval max-ticks-per-frame - game-agenda draw-hook start-game-loop stop-game-loop)) @@ -49,7 +48,6 @@ ;; completely unresponsive and possibly crashing. (define max-ticks-per-frame 4) (define draw-hook (make-hook 2)) -(define game-agenda (make-agenda)) (define (draw dt alpha) "Render a frame." @@ -68,7 +66,7 @@ is the unused accumulator time." (cond ((>= ticks max-ticks-per-frame) lag) ((>= lag tick-interval) - (tick-agenda! game-agenda) + (tick-agenda!) (iter (- lag tick-interval) (1+ ticks))) (else lag))) |