diff options
Diffstat (limited to 'demo/spritefont.scm')
| -rw-r--r-- | demo/spritefont.scm | 44 |
1 files changed, 22 insertions, 22 deletions
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*) |