]> git.llucax.com Git - z.facultad/75.68/celdas.git/blobdiff - trunk/src/breve/robot/Demo-2wheels2-5.tz
Construyo wrappers con la nueva interfaz que habíamos hablado para el sistema autónom...
[z.facultad/75.68/celdas.git] / trunk / src / breve / robot / Demo-2wheels2-5.tz
index da40ac76fb6562c00d88020b4fac986a02b82625..dd3f53406b1c495fb458e91fc63f74bc953d92a0 100644 (file)
@@ -1,5 +1,5 @@
 
 
-@use Celdas-2-5.
+@use Celdas-2-6.
 \r
 @define CELDAS_MAX_TURN_VELOCITY 2.\r
 
 \r
 @define CELDAS_MAX_TURN_VELOCITY 2.\r
 
@@ -12,26 +12,7 @@ CeldasControl : DemoController {
 
        + to init: \r
                 obs(object).\r
 
        + to init: \r
                 obs(object).\r
-                \r
-                obs = new CeldasObstacle .
-                obs init at-location (0,1,10)with-size (20,3,1).\r
-                obs set-direction at (0,0,1) .\r
-                \r
-                obs = new CeldasObstacle. \r
-                obs init at-location (-25,1,0) with-size (20,3,1).\r
-                obs set-direction at (0,0,1).\r
-                \r
-                obs = new CeldasObstacle.\r
-                obs init at-location (-10,1,-10) with-size (1,3,20).\r
-                obs set-direction at (1,0,0).\r
-                
-                obs = new CeldasObstacle.\r
-                obs init at-location (-10,1,10)  with-size (1,3,20).\r
-                obs set-direction at (1,0,0).\r
-
-                obs = new CeldasObstacle.\r
-                obs init at-location (10,1,10)  with-size (1,3,20).\r
-                obs set-direction at (1,0,0).\r
+\r
 \r
                vehicle = new CeldasVehicle.
                self watch item vehicle.
 \r
                vehicle = new CeldasVehicle.
                self watch item vehicle.