blob: 40b7653f3ebbbbc2712108c46ca586c12d55b286 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(use-modules (chickadee)
(chickadee math vector)
(chickadee render font)
(chickadee sdl))
(define (draw alpha)
(draw-text "(draw-text font \"Hello, world!\" (vec2 100.0 200.0))"
#v(100.0 200.0))
(draw-text "Chickadee is a game development toolkit for Guile Scheme."
#v(100.0 150.0))
(draw-text "The quick brown fox jumps over the lazy dog"
#v(100.0 100.0)))
(run-game/sdl #:draw draw)
|
