diff options
Diffstat (limited to 'demo/audio.scm')
| -rw-r--r-- | demo/audio.scm | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/demo/audio.scm b/demo/audio.scm index 62bebf4..8e3fead 100644 --- a/demo/audio.scm +++ b/demo/audio.scm @@ -15,42 +15,42 @@ (define *game* (make-game - title: "Demo: Audio" width: 600 height: 400 + title: "Demo: Audio" width: 600 height: 400 - preload: (lambda (game) - (init-audio!) - (load-sounds! '((jump . "demo/assets/jump.wav"))) - (load-music! "demo/assets/theme.ogg") - (game-asset-set! game 'font - (ttf:open-font "demo/assets/DejaVuSans.ttf" 20))) + preload: (lambda (game) + (init-audio!) + (load-sounds! '((jump . "demo/assets/jump.wav"))) + (load-music! "demo/assets/theme.ogg") + (game-asset-set! game 'font + (ttf:open-font "demo/assets/DejaVuSans.ttf" 20))) - update: (lambda (game dt) - (let ((input (game-input game))) - (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)))))) + update: (lambda (game dt) + (let ((input (game-input game))) + (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) +bg-color+) - (sdl2:render-fill-rect! renderer (sdl2:make-rect 0 0 600 400)) - (draw-ui-text renderer font "Audio Demo" white 220 80) - (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?* - (sdl2:make-color 100 255 100 255) - (sdl2:make-color 255 100 100 255)) - 240 310))))) + 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) +bg-color+) + (sdl2:render-fill-rect! renderer (sdl2:make-rect 0 0 600 400)) + (draw-ui-text renderer font "Audio Demo" white 220 80) + (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?* + (sdl2:make-color 100 255 100 255) + (sdl2:make-color 255 100 100 255)) + 240 310))))) (game-run! *game*) |