diff options
Diffstat (limited to 'super-bloom/common.scm')
| -rw-r--r-- | super-bloom/common.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/super-bloom/common.scm b/super-bloom/common.scm index 08d4eae..0e55b90 100644 --- a/super-bloom/common.scm +++ b/super-bloom/common.scm @@ -14,6 +14,8 @@ (define-module (super-bloom common) #:use-module (catbird asset) + #:use-module (catbird mixins) + #:use-module (catbird scene) #:use-module (chickadee) #:use-module (chickadee audio) #:use-module (chickadee graphics text) @@ -32,6 +34,7 @@ spray-sound random:float steps + <game-scene> water)) (define %default-width 640) @@ -66,4 +69,12 @@ (define (steps n) (* n (current-timestep))) +(define-class <game-scene> (<scene>)) + +(define-method (width (scene <game-scene>)) + %game-width:float) + +(define-method (height (scene <game-scene>)) + %game-height:float) + (define-accessor water) |