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

(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))"
             (vec2 100.0 200.0))
  (draw-text font "Chickadee is a game development toolkit for Guile Scheme."
             (vec2 100.0 150.0))
  (draw-text font "The quick brown fox jumps over the lazy dog"
             (vec2 100.0 100.0)))

(add-hook! load-hook load)
(add-hook! draw-hook draw)
(add-hook! quit-hook abort-game)
(add-hook! key-press-hook
           (lambda (key scan modifiers repeat?)
             (when (eq? key 'q)
               (abort-game))))

(run-game)