diff options
Diffstat (limited to 'demo/audio.scm')
| -rw-r--r-- | demo/audio.scm | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/demo/audio.scm b/demo/audio.scm index 2cf5665..62bebf4 100644 --- a/demo/audio.scm +++ b/demo/audio.scm @@ -11,6 +11,8 @@ (define *music-on?* #f) +(define +bg-color+ (sdl2:make-color 30 30 60 255)) + (define *game* (make-game title: "Demo: Audio" width: 600 height: 400 @@ -24,24 +26,26 @@ update: (lambda (game dt) (let ((input (game-input game))) - (when (input-pressed? input 'a) - (play-sound 'jump)) + (when (input-pressed? input 'a) (play-sound 'jump)) (when (input-pressed? input 'b) (if *music-on?* (begin (stop-music!) (set! *music-on?* #f)) (begin (play-music! 0.5) (set! *music-on?* #t)))))) render: (lambda (game) - (let* ((renderer (game-renderer game)) - (font (game-asset game 'font)) - (white (sdl2:make-color 255 255 255 255)) - (gray (sdl2:make-color 180 180 180 255))) - (set! (sdl2:render-draw-color renderer) (sdl2:make-color 30 30 60 255)) + (let ((renderer (game-renderer game)) + (font (game-asset game 'font)) + (white (sdl2:make-color 255 255 255 255)) + (gray (sdl2:make-color 180 180 180 255))) + (set! (sdl2:render-draw-color renderer) +bg-color+) (sdl2:render-fill-rect! renderer (sdl2:make-rect 0 0 600 400)) (draw-ui-text renderer font "Audio Demo" white 220 80) - (draw-ui-text renderer font "J / Z -- play sound effect" gray 160 160) - (draw-ui-text renderer font "K / X -- toggle music on/off" gray 160 200) - (draw-ui-text renderer font "Escape -- quit" gray 160 240) + (for-each + (lambda (entry) + (draw-ui-text renderer font (car entry) gray (cadr entry) (caddr entry))) + '(("J / Z -- play sound effect" 160 160) + ("K / X -- toggle music on/off" 160 200) + ("Escape -- quit" 160 240))) (draw-ui-text renderer font (if *music-on?* "Music: ON" "Music: OFF") (if *music-on?* |