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 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
vehicle = new CeldasVehicle.
self watch item vehicle.