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/spritefont.scm | 44 ++++++++++++++++++++++---------------------- 1 file changed, 22 insertions(+), 22 deletions(-) (limited to 'demo/spritefont.scm') diff --git a/demo/spritefont.scm b/demo/spritefont.scm index 2abc07a..ef70461 100644 --- a/demo/spritefont.scm +++ b/demo/spritefont.scm @@ -14,29 +14,29 @@ (define *game* (make-game - title: "Demo: Sprite Font" width: 600 height: 400 + title: "Demo: Sprite Font" width: 600 height: 400 - create: (lambda (game) - (game-load-scene! game "demo/assets/level-0.tmx") - (set! *sprite-font* - (make-sprite-font* - #:tile-size 16 #:spacing 1 - #:ranges '((#\A #\M 918) (#\N #\Z 967) (#\0 #\9 869))))) + create: (lambda (game) + (game-load-scene! game "demo/assets/level-0.tmx") + (set! *sprite-font* + (make-sprite-font* + #:tile-size 16 #:spacing 1 + #:ranges '((#\A #\M 918) (#\N #\Z 967) (#\0 #\9 869))))) - render: (lambda (game) - (let* ((scene (game-scene game)) - (renderer (game-renderer game)) - (tileset (tilemap-tileset (scene-tilemap scene))) - (texture (scene-tileset-texture scene))) - (set! (sdl2:render-draw-color renderer) (sdl2:make-color 30 30 60 255)) - (sdl2:render-fill-rect! renderer (sdl2:make-rect 0 0 600 400)) - (for-each - (lambda (entry) - (draw-sprite-text renderer texture tileset *sprite-font* - (car entry) (cadr entry) (caddr entry))) - '(("HELLO WORLD" 50 50) - ("DOWNSTROKE" 100 120) - ("ABCDEFGHIJKLMNOPQRSTUVWXYZ" 20 200) - ("0123456789" 150 280))))))) + render: (lambda (game) + (let* ((scene (game-scene game)) + (renderer (game-renderer game)) + (tileset (tilemap-tileset (scene-tilemap scene))) + (texture (scene-tileset-texture scene))) + (set! (sdl2:render-draw-color renderer) (sdl2:make-color 30 30 60 255)) + (sdl2:render-fill-rect! renderer (sdl2:make-rect 0 0 600 400)) + (for-each + (lambda (entry) + (draw-sprite-text renderer texture tileset *sprite-font* + (car entry) (cadr entry) (caddr entry))) + '(("HELLO WORLD" 50 50) + ("DOWNSTROKE" 100 120) + ("ABCDEFGHIJKLMNOPQRSTUVWXYZ" 20 200) + ("0123456789" 150 280))))))) (game-run! *game*) -- cgit v1.2.3