diff options
Diffstat (limited to 'bonnie-bee/common.scm')
| -rw-r--r-- | bonnie-bee/common.scm | 22 |
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))) |