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 /examples | |
| 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 'examples')
| -rw-r--r-- | examples/common.scm | 8 | ||||
| -rw-r--r-- | examples/coroutine.scm | 4 | ||||
| -rw-r--r-- | examples/font.scm | 2 | ||||
| -rw-r--r-- | examples/particles.scm | 2 |
4 files changed, 8 insertions, 8 deletions
diff --git a/examples/common.scm b/examples/common.scm index 0acb6c2..62ddd14 100644 --- a/examples/common.scm +++ b/examples/common.scm @@ -33,9 +33,9 @@ (add-hook! window-close-hook stop-game-loop) -(schedule-interval game-agenda - (lambda () - (format #t "FPS: ~d\n" (signal-ref fps))) - 60) +(schedule-interval + (lambda () + (format #t "FPS: ~d\n" (signal-ref fps))) + 60) (start-2d-repl) diff --git a/examples/coroutine.scm b/examples/coroutine.scm index 98dec16..7b4a1e6 100644 --- a/examples/coroutine.scm +++ b/examples/coroutine.scm @@ -38,9 +38,9 @@ sprite (vector2 (random window-width) (random window-height))) - (wait game-agenda 15) + (wait 15) (set-sprite-rotation! sprite (random 360)) - (wait game-agenda 15))) + (wait 15))) (add-hook! draw-hook (lambda (dt alpha) (draw-sprite sprite))) diff --git a/examples/font.scm b/examples/font.scm index 304070f..8bcd90d 100644 --- a/examples/font.scm +++ b/examples/font.scm @@ -44,7 +44,7 @@ (signal-map (lambda (p) (let ((text (format #f "Mouse: (~d, ~d)" (vx p) (vy p)))) (make-label font text (vector2 0 20)))) - (signal-throttle game-agenda 5 mouse-position))) + (signal-throttle 5 mouse-position))) (add-hook! draw-hook (lambda (dt alpha) (draw-label label) diff --git a/examples/particles.scm b/examples/particles.scm index d811eb7..4269b99 100644 --- a/examples/particles.scm +++ b/examples/particles.scm @@ -76,7 +76,7 @@ (define (update) (for-each update-particle! particles)) -(schedule-each game-agenda update) +(schedule-each update) (add-hook! draw-hook draw) (with-window (make-window #:title "Particles" |