summaryrefslogtreecommitdiff
path: root/bonnie-bee/background.scm
diff options
context:
space:
mode:
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)))