From 210f3997e1597e4d13dbfcd99aea1f62730e1190 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Tue, 11 Nov 2014 13:35:07 +0100 Subject: [PATCH] Experimenting with syntax * games/asteroids/asteroids.scm: Experimenting with syntax for games --- {src/examples => games/asteroids}/asteroids.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) rename {src/examples => games/asteroids}/asteroids.scm (77%) diff --git a/src/examples/asteroids.scm b/games/asteroids/asteroids.scm similarity index 77% rename from src/examples/asteroids.scm rename to games/asteroids/asteroids.scm index 1915e45..902fd54 100644 --- a/src/examples/asteroids.scm +++ b/games/asteroids/asteroids.scm @@ -21,12 +21,24 @@ (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)))) -- 2.39.2