From 38eee24832fe6da4f135cae455881ab97953b23a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sat, 18 Apr 2026 02:47:10 +0100 Subject: Refresh docs and re-indent --- demo/menu.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'demo/menu.scm') 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*) -- cgit v1.2.3