diff options
Diffstat (limited to 'lisparuga.scm')
-rw-r--r-- | lisparuga.scm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/lisparuga.scm b/lisparuga.scm new file mode 100644 index 0000000..2a700a2 --- /dev/null +++ b/lisparuga.scm @@ -0,0 +1,18 @@ +(define-module (lisparuga) + #:use-module (lisparuga kernel) + #:use-module (lisparuga scene) + #:use-module (oop goops) + #:export (launch-lisparuga)) + +(define %window-width 640) +(define %window-height 480) + +(define-class <lisparuga> (<scene>)) + +(define (launch-lisparuga) + (boot-kernel (make <kernel> + #:window-config (make <window-config> + #:title "Lisparuga" + #:width %window-width + #:height %window-height)) + (lambda () (make <lisparuga>)))) |