diff options
author | David Thompson <dthompson2@worcester.edu> | 2013-10-23 22:51:10 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2013-10-23 22:51:10 -0400 |
commit | 861151d185eefa79c05684fd268d7af09a8195cd (patch) | |
tree | 677ebfbd73a1c5e903ec9dedb77819ae2a9cb5b7 /2d/private | |
parent | 93633116cc3f3ffc01cb62cddf1222c50c816b4c (diff) |
Use the new scene/stage API.
Diffstat (limited to '2d/private')
-rw-r--r-- | 2d/private/game.scm | 87 |
1 files changed, 0 insertions, 87 deletions
diff --git a/2d/private/game.scm b/2d/private/game.scm deleted file mode 100644 index 88a971f..0000000 --- a/2d/private/game.scm +++ /dev/null @@ -1,87 +0,0 @@ -;;; guile-2d -;;; Copyright (C) 2013 David Thompson <dthompson2@worcester.edu> -;;; -;;; Guile-2d is free software: you can redistribute it and/or modify it -;;; under the terms of the GNU Lesser General Public License as -;;; published by the Free Software Foundation, either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; Guile-2d is distributed in the hope that it will be useful, but -;;; WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; Lesser General Public License for more details. -;;; -;;; You should have received a copy of the GNU Lesser General Public -;;; License along with this program. If not, see -;;; <http://www.gnu.org/licenses/>. - -;;; Commentary: -;; -;; Game data structure. -;; -;;; Code: - -(define-module (2d private game) - #:use-module (srfi srfi-9) - #:use-module (2d observer)) - -;;; -;;; Scenes -;;; - -(define-record-type <scene> - (%make-scene title observer update-proc draw-proc state) - scene? - (title scene-title) - (observer scene-observer) - (update-proc scene-update-proc) - (draw-proc scene-draw-proc) - (state scene-state)) - -(define (scene-trigger scene event-type . args) - "Trigger an event on the scene observer." - (apply observer-trigger - (scene-observer scene) - event-type - (scene-state scene) - args)) - -(define (draw-scene scene) - "Draw SCENE." - ((scene-draw-proc scene) (scene-state scene))) - -(define (update-scene scene) - "Update SCENE." - ((scene-update-proc scene) (scene-state scene))) - -(export <scene> - %make-scene - scene? - scene-title - scene-observer - scene-update-proc - scene-draw-proc - scene-state - scene-trigger - update-scene - draw-scene) - -;;; -;;; Games -;;; - -(define-record-type <game> - (%make-game title resolution fullscreen first-scene) - game? - (title game-title) - (resolution game-resolution) - (fullscreen game-fullscreen?) - (first-scene game-first-scene)) - -(export <game> - %make-game - game? - game-title - game-resolution - game-fullscreen? - game-first-scene) |