diff options
author | David Thompson <dthompson@member.fsf.org> | 2013-09-02 09:08:20 -0400 |
---|---|---|
committer | David Thompson <dthompson@member.fsf.org> | 2013-09-06 00:09:29 -0400 |
commit | 7f6d69e986ae9d77b6e7f8e5572f1bdc210a0ad7 (patch) | |
tree | d9242ceadb8e9d2279482b4f5f424456c9edd972 /2d/game.scm | |
parent | b23e7776be3b410c0771715f5624aa6b7190bda4 (diff) |
Add a *running* flag to the game loop.
Diffstat (limited to '2d/game.scm')
-rw-r--r-- | 2d/game.scm | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/2d/game.scm b/2d/game.scm index e20638c..cb043ec 100644 --- a/2d/game.scm +++ b/2d/game.scm @@ -25,16 +25,11 @@ #:use-module (srfi srfi-9) #:use-module (2d game-loop) #:use-module (2d window) - #:use-module (2d vector2) - #:export (<game> - make-game - define-game - game? - game-title - game-resolution - game-fullscreen? - game-first-scene - run-game)) + #:use-module (2d vector2)) + +;;; +;;; Games +;;; (define-record-type <game> (%make-game title resolution fullscreen first-scene) @@ -64,3 +59,13 @@ value." (game-fullscreen? game)) (run-game-loop) (close-window)) + +(export <game> + make-game + define-game + game? + game-title + game-resolution + game-fullscreen? + game-first-scene + run-game) |