From: Javier Sancho Date: Tue, 11 Nov 2014 12:35:07 +0000 (+0100) Subject: Experimenting with syntax X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;ds=inline;h=210f3997e1597e4d13dbfcd99aea1f62730e1190;p=gacela.git Experimenting with syntax * games/asteroids/asteroids.scm: Experimenting with syntax for games --- diff --git a/games/asteroids/asteroids.scm b/games/asteroids/asteroids.scm new file mode 100644 index 0000000..902fd54 --- /dev/null +++ b/games/asteroids/asteroids.scm @@ -0,0 +1,44 @@ +;;; Gacela, a GNU Guile extension for fast games development +;;; Copyright (C) 2014 by Javier Sancho Fernandez +;;; +;;; This program is free software: you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; This program 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 General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program. If not, see . + + +(define-module (gacela examples asteroids)) +; #:use-module (gacela game)) + + +(define asteroids (game "Asteroids")) +(define player (entity)) +(set! player (add-component player (name "player"))) +(set! player (add-component player (transform))) +(set! player (add-component player (mesh))) +(set! asteroids (add-entity asteroids player)) +(define rock (entity)) +(set! rock (add-component rock (name "rock"))) +(set! rock (add-component rock (transform))) +(set! rock (add-component rock (mesh))) +(set! asteroids (add-entity asteroids rock)) + + +(define asteroids + (game "Asteroids" + (entity + (name "player") + (transform) + (mesh)) + (entity + (name "rock") + (transform) + (mesh)))) diff --git a/src/examples/asteroids.scm b/src/examples/asteroids.scm deleted file mode 100644 index 1915e45..0000000 --- a/src/examples/asteroids.scm +++ /dev/null @@ -1,32 +0,0 @@ -;;; Gacela, a GNU Guile extension for fast games development -;;; Copyright (C) 2014 by Javier Sancho Fernandez -;;; -;;; This program is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation, either version 3 of the License, or -;;; (at your option) any later version. -;;; -;;; This program 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 General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with this program. If not, see . - - -(define-module (gacela examples asteroids)) -; #:use-module (gacela game)) - - -(define asteroids (game "Asteroids")) -(define player (entity)) -(set! player (add-component player (transform))) -(set! player (add-component player (mesh))) -(set! asteroids (add-entity asteroids player)) - -(define asteroids - (game "Asteroids" - (entity - (transform) - (mesh))))