summaryrefslogtreecommitdiff
path: root/bonnie-bee/background.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2022-10-12 06:48:14 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2022-10-27 13:22:50 -0400
commite287a11c4387382277c31735504fc762c33b4cee (patch)
treeb262dc8de64db21a7d2cb2c980f2be39805d6a34 /bonnie-bee/background.scm
parentf713890a773a7d6ff666277592eec72f2328a5b6 (diff)
Switch to Catbird engine.
Diffstat (limited to 'bonnie-bee/background.scm')
-rw-r--r--bonnie-bee/background.scm10
1 files changed, 8 insertions, 2 deletions
diff --git a/bonnie-bee/background.scm b/bonnie-bee/background.scm
index f374556..9434993 100644
--- a/bonnie-bee/background.scm
+++ b/bonnie-bee/background.scm
@@ -11,8 +11,8 @@
#:use-module (chickadee scripting)
#:use-module (chickadee utils)
#:use-module (oop goops)
- #:use-module (starling node)
- #:use-module (starling node-2d)
+ #:use-module (catbird node)
+ #:use-module (catbird node-2d)
#:export (<background>
scroll-y))
@@ -94,6 +94,12 @@ void main (void) {
(geometry #:getter geometry #:init-thunk make-background-geometry)
(mvp-matrix #:getter mvp-matrix #:init-thunk make-identity-matrix4))
+(define-method (default-width (background <background>))
+ (texture-width (texture background)))
+
+(define-method (default-height (background <background>))
+ (texture-height (texture background)))
+
(define-method (render (background <background>) alpha)
(let ((mvp (mvp-matrix background))
(t (texture background)))