(include "~/a/rptr/doodle/doodle.scm")
(import doodle)

(define-resource 'my-tileset #:auto-tileset "test1.png" 32 32)
(define-resource-animation 'my-anim 'my-tileset '((all 0 3)
                                                  (test 1 2)))
(define my-sprite (create-animated-sprite 'my-anim))
(animated-sprite-current-animation-set! my-sprite 'all)

(world-inits
 (lambda ()
   (void)
   ))

(world-changes
 (lambda (evts dt exit)
   (clear-screen)
   (let ((delta 10))
     (update-animated-sprite my-sprite delta))
   (draw-animated-sprite my-sprite 10 10)))

(new-doodle title: "doodle anim" background: solid-white)
(run-event-loop)