(use-modules (chickadee)
             (chickadee math vector)
             (chickadee render font)
             (chickadee sdl))

(define font #f)

(define (load)
  (set! font (load-font "fonts/good_neighbors_starling.xml")))

(define (draw alpha)
  (draw-text font "(draw-text font \"Hello, world!\" (vec2 100.0 200.0))"
             #v(100.0 200.0))
  (draw-text font "Chickadee is a game development toolkit for Guile Scheme."
             #v(100.0 150.0))
  (draw-text font "The quick brown fox jumps over the lazy dog"
             #v(100.0 100.0)))

(define (key-press key scan modifiers repeat?)
  (when (eq? key 'q)
    (abort-game)))

(run-game/sdl #:load load #:draw draw #:key-press key-press)