From 2c5b19226815a406c60cc1a49c59864922364c55 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Fri, 10 Apr 2020 08:55:50 -0400
Subject: Add project skeleton and import engine code.

---
 lisparuga.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 lisparuga.scm

(limited to 'lisparuga.scm')

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>))))
-- 
cgit v1.2.3