blob: b7bc5e38409bca3e0c8e6a5a22d8e58fd4a6b3a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(define-module (starling game)
#:use-module (oop goops)
#:use-module (starling node))
(define-class <game> (<node>))
(define-method (render (game <game>))
#t)
(define-class <2d-game> (<game>))
(define-method (render (game <2d-game>))
(render-2d game))
|