From e287a11c4387382277c31735504fc762c33b4cee Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 12 Oct 2022 06:48:14 -0400 Subject: Switch to Catbird engine. --- bonnie-bee/common.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'bonnie-bee/common.scm') 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 )) - (set! (cameras scene) - (list (make - #:resolution (vec2 %game-width %game-height) - #:viewport (make-viewport 0 0 %window-width %window-height - #:clear-color black))))) +;; (define-method (set-cameras! (scene )) +;; (set! (cameras scene) +;; (list (make +;; #: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 ) duration) +(define-method (fade-in (scene ) duration) (let ((bg (make #:rank 999 #:texture darkness-image))) @@ -43,7 +43,7 @@ (set! (tint bg) (transparency a)))) (detach bg))) -(define-method (fade-out (scene ) duration) +(define-method (fade-out (scene ) duration) (let ((bg (make #:rank 999 #:texture darkness-image))) -- cgit v1.2.3