blob: baaaa007bb8b85c5d248ee2f110bf44d9047f43a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(use-modules (chickadee graphics texture)
(chickadee math vector)
(oop goops)
(starling asset)
(starling gui)
(starling kernel)
(starling node)
(starling node-2d)
(starling scene))
(define window-width 1280)
(define window-height 720)
(define game-width 640)
(define game-height 360)
(define-class <game> (<gui-scene>))
(define-method (on-boot (game <game>))
(set! (cameras game)
(list (make <camera-2d>
#:resolution (vec2 game-width game-height)))))
(boot-kernel (make <kernel>
#:window-config (make <window-config>
#:title "Spring Lisp Game Jam 2021"
#:width window-width
#:height window-height))
(lambda () (make <game>)))
|
