summaryrefslogtreecommitdiff
path: root/lisparuga.scm
diff options
context:
space:
mode:
Diffstat (limited to 'lisparuga.scm')
-rw-r--r--lisparuga.scm18
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>))))