From e287a11c4387382277c31735504fc762c33b4cee Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Wed, 12 Oct 2022 06:48:14 -0400
Subject: Switch to Catbird engine.

---
 bonnie-bee/popcorn.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/bonnie-bee/popcorn.scm b/bonnie-bee/popcorn.scm
index 594e88c..1fde520 100644
--- a/bonnie-bee/popcorn.scm
+++ b/bonnie-bee/popcorn.scm
@@ -10,9 +10,9 @@
   #:use-module (chickadee scripting)
   #:use-module (chickadee utils)
   #:use-module (oop goops)
-  #:use-module (starling asset)
-  #:use-module (starling node)
-  #:use-module (starling node-2d)
+  #:use-module (catbird asset)
+  #:use-module (catbird node)
+  #:use-module (catbird node-2d)
   #:export (<popcorn>))
 
 (define-class <popcorn> (<damageable> <actor>))
@@ -35,8 +35,8 @@
       #f))
 
 (define-method (on-death (popcorn <popcorn>))
-  (audio-play (asset-ref explosion-sound))
+  (audio-play (artifact explosion-sound))
   (let ((p (position popcorn)))
-    (add-particle-emitter (particles (particles (parent popcorn)))
+    (add-particle-emitter (particles (& (parent popcorn) particles))
                           (make-particle-emitter (make-rect (vec2-x p) (vec2-y p) 1.0 1.0)
                                                  4 3))))
-- 
cgit v1.2.3