diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2022-10-12 06:48:14 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-10-27 13:22:50 -0400 |
commit | e287a11c4387382277c31735504fc762c33b4cee (patch) | |
tree | b262dc8de64db21a7d2cb2c980f2be39805d6a34 /bonnie-bee/background.scm | |
parent | f713890a773a7d6ff666277592eec72f2328a5b6 (diff) |
Switch to Catbird engine.
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))) |