Switch to Catbird engine.

1 files changed, 11 insertions, 11 deletions

diff --git a/bonnie-bee/common.scm b/bonnie-bee/common.scm
index 885ab33..6ff21c6 100644
--- a/bonnie-bee/common.scm
+++ b/bonnie-bee/common.scm
@@ -6,9 +6,9 @@
   #:use-module (chickadee math vector)
   #:use-module (chickadee scripting)
   #:use-module (oop goops)
-  #:use-module (starling scene)
-  #:use-module (starling node)
-  #:use-module (starling node-2d)
+  #:use-module (catbird scene)
+  #:use-module (catbird node)
+  #:use-module (catbird node-2d)
   #:export (%window-width
             %window-height
             %game-width
@@ -23,17 +23,17 @@
 (define %game-width 320)
 (define %game-height 240)
 
-(define-method (set-cameras! (scene <scene-2d>))
-  (set! (cameras scene)
-        (list (make <camera-2d>
-                #:resolution (vec2 %game-width %game-height)
-                #:viewport (make-viewport 0 0 %window-width %window-height
-                                          #:clear-color black)))))
+;; (define-method (set-cameras! (scene <scene-2d>))
+;;   (set! (cameras scene)
+;;         (list (make <camera-2d>
+;;                 #:resolution (vec2 %game-width %game-height)
+;;                 #:viewport (make-viewport 0 0 %window-width %window-height
+;;                                           #:clear-color black)))))
 
 (define (steps n)
   (* n (current-timestep)))
 
-(define-method (fade-in (scene <scene-2d>) duration)
+(define-method (fade-in (scene <scene>) duration)
   (let ((bg (make <sprite>
               #:rank 999
               #:texture darkness-image)))
@@ -43,7 +43,7 @@
              (set! (tint bg) (transparency a))))
     (detach bg)))
 
-(define-method (fade-out (scene <scene-2d>) duration)
+(define-method (fade-out (scene <scene>) duration)
   (let ((bg (make <sprite>
               #:rank 999
               #:texture darkness-image)))