(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 dir 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((* dir 2) 0.0)))
  (when (eq? (floor-remainder time 4) 0)
    (set! ss (floor-remainder (+ ss dir) 4))))

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

(define (key-press key scancode modifier repeat?)
  (case key
    ((q) (abort-game))
    ((right) (set! dir 1))
    ((left) (set! dir -1))))


(define (key-release key scancode modifier)
  (case key
    ((right) (set! dir 0))
    ((left) (set! dir 0))))


(run-game #:window-title "Hey Llama!"
          #:load load
          #:draw draw
          #:key-press key-press
          #:key-release key-release
          #:update update)