diff options
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" |