(use-modules (srfi srfi-9)
             (figl gl)
             (2d color)
             (2d font)
             (2d game)
             (2d scene)
             (2d stage)
             (2d vector2))

(define (make-demo-textbox)
  (make-textbox (load-font "fonts/Boxy-Bold.ttf" 48)
                "The quick brown fox jumped over the lazy dog."
                (vector2 240 160)
                white
                'left
                200))

(define fonts-scene
  (make-scene
   "Fonts"
   #:init make-demo-textbox
   #:draw draw-textbox))

(define fonts-demo
  (make-game
   #:title "Fonts"
   #:first-scene fonts-scene))

(run-game fonts-demo)
