diff options
-rw-r--r-- | starling/kernel.scm | 24 |
1 files changed, 17 insertions, 7 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm index 3f19d5f..15e05e3 100644 --- a/starling/kernel.scm +++ b/starling/kernel.scm @@ -70,13 +70,10 @@ reboot-current-scene) #:re-export (abort-game)) -(define-class <window-config> () - (width #:accessor window-width #:init-form 640 #:init-keyword #:width) - (height #:accessor window-height #:init-form 480 #:init-keyword #:height) - (title #:accessor window-title #:init-form "Lisparuga" - #:init-keyword #:title) - (fullscreen? #:accessor window-fullscreen? #:init-form #f - #:init-keyword #:fullscreen?)) + +;;; +;;; FPS Display +;;; (define-class <fps-display> (<node>)) @@ -110,6 +107,19 @@ (set! (text (& fps-display canvas fps-label)) (format #f "~1,1f" fps))) + +;;; +;;; Kernel +;;; + +(define-class <window-config> () + (width #:accessor window-width #:init-form 640 #:init-keyword #:width) + (height #:accessor window-height #:init-form 480 #:init-keyword #:height) + (title #:accessor window-title #:init-form "Lisparuga" + #:init-keyword #:title) + (fullscreen? #:accessor window-fullscreen? #:init-form #f + #:init-keyword #:fullscreen?)) + (define-class <kernel> (<scene-mux>) (name #:accessor name #:init-form "lisparuga-kernel" #:init-keyword #:name) |