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