diff options
Diffstat (limited to 'demo/menu.scm')
| -rw-r--r-- | demo/menu.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/demo/menu.scm b/demo/menu.scm index 322e046..67fd655 100644 --- a/demo/menu.scm +++ b/demo/menu.scm @@ -46,23 +46,23 @@ (let ((renderer (game-renderer game))) (clear-screen! renderer) (draw-ui-text renderer *menu-font* - "PLAYING! PRESS ESC TO RETURN" +text-color+ 120 150))) + "PLAYING! PRESS ESC TO RETURN" +text-color+ 120 150))) ;; ── Game ───────────────────────────────────────────────────────────────────── (define *game* (make-game - title: "Demo: Menu System" width: 600 height: 400 + title: "Demo: Menu System" width: 600 height: 400 - preload: (lambda (game) - (set! *title-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 24)) - (set! *menu-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 16))) + preload: (lambda (game) + (set! *title-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 24)) + (set! *menu-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 16))) - create: (lambda (game) - (game-add-state! game 'main-menu - (make-game-state #:update main-menu-update #:render main-menu-render)) - (game-add-state! game 'playing - (make-game-state #:update playing-update #:render playing-render)) - (game-start-state! game 'main-menu)))) + create: (lambda (game) + (game-add-state! game 'main-menu + (make-game-state #:update main-menu-update #:render main-menu-render)) + (game-add-state! game 'playing + (make-game-state #:update playing-update #:render playing-render)) + (game-start-state! game 'main-menu)))) (game-run! *game*) |