X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=src%2Fexamples%2Fasteroids.scm;h=1915e450b6042da74b5dee41b2d92469b3966d29;hp=ff607f462553b43685925882de8be4dd136f12f9;hb=4ccfda6a7ebdf665edbf32452c8f4cbc3d010dfd;hpb=3b22fd3f425de9419f98bacf2d1c4675058389ed

diff --git a/src/examples/asteroids.scm b/src/examples/asteroids.scm
index ff607f4..1915e45 100644
--- a/src/examples/asteroids.scm
+++ b/src/examples/asteroids.scm
@@ -15,18 +15,18 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(define-module (gacela examples asteroids)
-  #:use-module (gacela game))
+(define-module (gacela examples asteroids))
+;  #:use-module (gacela game))
 
 
-(define asteroids (make-game "Asteroids"))
-(define player (make-entity))
-(add-component player (make-transform))
-(add-component player (make-mesh))
-(add-entity asteroids player)
+(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
-  (make-game "Asteroids"
-   (make-entity
-    (make-transform)
-    (make-mesh))))
+  (game "Asteroids"
+   (entity
+    (transform)
+    (mesh))))