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


(define pos #v(100.0 140.0))
(define sprite #f)
(define ss 0)
(define time 0)

(define (draw alpha)
  (draw-sprite (texture-atlas-ref sprite (+ 12 ss))
               pos))

(define (update t)
  (set! time (+ time 1))
  (set! pos (vec2+ pos #v(1.0 0.0)))
  (when (eq? (floor-remainder time 4) 0)
    (set! ss (floor-remainder (+ ss 1) 4))))


(define (load)
  (set! sprite (split-texture (load-image "llama_walk.png")
                              128 128)))

(define (key-press key scancode modifier repea?)
  (when (eq? key 'q)
    (abort-game)))

(run-game #:load load
          #:draw draw
          #:key-press key-press
          #:update update)