diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2020-04-10 08:55:50 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2020-04-10 08:55:50 -0400 |
commit | 2c5b19226815a406c60cc1a49c59864922364c55 (patch) | |
tree | 29348c110eb8cac36adfe20abfcfe3042e06c4d4 /lisparuga.scm | |
parent | 781ab757856f95b3dd8c2ad573589912d8093464 (diff) |
Add project skeleton and import engine code.
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>)))) |