starling/game.scm


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))