summaryrefslogtreecommitdiff
path: root/lisparuga.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2020-04-10 08:55:50 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2020-04-10 08:55:50 -0400
commit2c5b19226815a406c60cc1a49c59864922364c55 (patch)
tree29348c110eb8cac36adfe20abfcfe3042e06c4d4 /lisparuga.scm
parent781ab757856f95b3dd8c2ad573589912d8093464 (diff)
Add project skeleton and import engine code.
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>))))