From 3fc18437f905f18aa4bf3b688930dbc68f8721b3 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Sat, 23 Oct 2021 17:09:34 -0400
Subject: Lots of tweaks and also sprite animations!

---
 bonnie-bee/popcorn.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'bonnie-bee/popcorn.scm')

diff --git a/bonnie-bee/popcorn.scm b/bonnie-bee/popcorn.scm
index 8c70326..594e88c 100644
--- a/bonnie-bee/popcorn.scm
+++ b/bonnie-bee/popcorn.scm
@@ -19,9 +19,12 @@
 
 (define-method (on-boot (popcorn <popcorn>))
   (attach-to popcorn
-             (make <sprite>
-               #:texture popcorn-image
-               #:origin (vec2 16.0 16.0))))
+             (make <animated-sprite>
+               #:atlas popcorn-atlas
+               #:origin (vec2 16.0 16.0)
+               #:animations `((default . ,(make <animation>
+                                            #:frames #(0 1)
+                                            #:frame-duration .25))))))
 
 (define-method (on-collide (popcorn <popcorn>) (bullet <bullet>))
   (if (player-bullet? bullet)
-- 
cgit v1.2.3