[Euslisp-commit] SF.net SVN: euslisp:[605] trunk/EusLisp/models

[<sn...@us...>]

Revision: 605
          http://sourceforge.net/p/euslisp/code/605
Author:   snozawa
Date:     2013-04-16 04:50:52 +0000 (Tue, 16 Apr 2013)
Log Message:
-----------
remove wall from 610 room

Modified Paths:
--------------
    trunk/EusLisp/models/room610-scene.l

Removed Paths:
-------------
    trunk/EusLisp/models/room610-wall187-object.l
    trunk/EusLisp/models/room610-wall189-object.l
    trunk/EusLisp/models/room610-wall191-object.l
    trunk/EusLisp/models/room610-wall193-object.l
    trunk/EusLisp/models/room610-wall195-object.l

Modified: trunk/EusLisp/models/room610-scene.l
===================================================================
--- trunk/EusLisp/models/room610-scene.l	2013-04-15 11:13:50 UTC (rev 604)
+++ trunk/EusLisp/models/room610-scene.l	2013-04-16 04:50:52 UTC (rev 605)
@@ -23,11 +23,6 @@
 (load "models/room610-kitchen-object.l")
 (load "models/room610-table-object.l")
 (load "models/room610-laundary-machine-object.l")
-(load "models/room610-wall195-object.l")
-(load "models/room610-wall193-object.l")
-(load "models/room610-wall191-object.l")
-(load "models/room610-wall189-object.l")
-(load "models/room610-wall187-object.l")
 
 (defclass room610-scene
   :super scene-model
@@ -58,11 +53,6 @@
  (send (room610-kitchen) :transform (make-coords :pos (float-vector 7750.0 -1010.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
  (send (room610-table) :transform (make-coords :pos (float-vector 4650.0 -110.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
  (send (room610-laundary-machine) :transform (make-coords :pos (float-vector 3500.0 2640.0 0.0) :rot #2f((2.220446e-16 1.0 0.0) (-1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room610-wall195) :transform (make-coords :pos (float-vector 9160.0 0.0 1375.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room610-wall193) :transform (make-coords :pos (float-vector 4580.0 -3870.0 1375.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room610-wall191) :transform (make-coords :pos (float-vector 4580.0 3840.0 1375.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
- (send (room610-wall189) :transform (make-coords :pos (float-vector 0.0 2330.0 1375.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
- (send (room610-wall187) :transform (make-coords :pos (float-vector 0.0 -2345.0 1375.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
        ))
      ))
   )

Deleted: trunk/EusLisp/models/room610-wall187-object.l
===================================================================
--- trunk/EusLisp/models/room610-wall187-object.l	2013-04-15 11:13:50 UTC (rev 604)
+++ trunk/EusLisp/models/room610-wall187-object.l	2013-04-16 04:50:52 UTC (rev 605)
@@ -1,60 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version 
-;;
-;;
-(defclass room610-wall187-object
-  :super cascaded-link
-  :slots (sensors
-         ))
-(defmethod room610-wall187-object
-  (:init
-   (&rest args &key (name "room610-wall187") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
-   (let (c bc
-         blink0
-                 )
-     (send-super* :init :name name args)
-
-     ;; definition of link
-
-     ;; definition of :room610-wall187-bodyset2
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 1525.0 150.0 1375.0) (float-vector -1525.0 150.0 1375.0) (float-vector -1525.0 -150.0 1375.0) (float-vector 1525.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -1525.0 150.0 -1375.0) (float-vector 1525.0 150.0 -1375.0) (float-vector 1525.0 -150.0 -1375.0) (float-vector -1525.0 -150.0 -1375.0)))
-         (instance face :init :vertices (list (float-vector 1525.0 150.0 1375.0) (float-vector 1525.0 150.0 -1375.0) (float-vector -1525.0 150.0 -1375.0) (float-vector -1525.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector 1525.0 -150.0 1375.0) (float-vector 1525.0 -150.0 -1375.0) (float-vector 1525.0 150.0 -1375.0) (float-vector 1525.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -1525.0 -150.0 1375.0) (float-vector -1525.0 -150.0 -1375.0) (float-vector 1525.0 -150.0 -1375.0) (float-vector 1525.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -1525.0 150.0 1375.0) (float-vector -1525.0 150.0 -1375.0) (float-vector -1525.0 -150.0 -1375.0) (float-vector -1525.0 -150.0 1375.0)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :gray70)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room610-wall187-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of assoc
-     (send self :assoc blink0)
-
-     ;; definition of end-coords
-
-     ;; definition of joint
-
-
-     ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
-     (send self :init-ending)
-     (send self :move-to (make-coords :pos pos :rot rot))
-     (send-all links :worldcoords)
-
-     self))
-  (:cameras (&rest args)
-   (forward-message-to-all (list) args))
-
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list ))
-  )
-
-(defun room610-wall187 (&rest args) (instance* room610-wall187-object :init args))
-;; (format *error-output* "(instance room610-wall187-object :init) for generating model~%")

Deleted: trunk/EusLisp/models/room610-wall189-object.l
===================================================================
--- trunk/EusLisp/models/room610-wall189-object.l	2013-04-15 11:13:50 UTC (rev 604)
+++ trunk/EusLisp/models/room610-wall189-object.l	2013-04-16 04:50:52 UTC (rev 605)
@@ -1,60 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version 
-;;
-;;
-(defclass room610-wall189-object
-  :super cascaded-link
-  :slots (sensors
-         ))
-(defmethod room610-wall189-object
-  (:init
-   (&rest args &key (name "room610-wall189") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
-   (let (c bc
-         blink0
-                 )
-     (send-super* :init :name name args)
-
-     ;; definition of link
-
-     ;; definition of :room610-wall189-bodyset2
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 1510.0 150.0 1375.0) (float-vector -1510.0 150.0 1375.0) (float-vector -1510.0 -150.0 1375.0) (float-vector 1510.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -1510.0 150.0 -1375.0) (float-vector 1510.0 150.0 -1375.0) (float-vector 1510.0 -150.0 -1375.0) (float-vector -1510.0 -150.0 -1375.0)))
-         (instance face :init :vertices (list (float-vector 1510.0 150.0 1375.0) (float-vector 1510.0 150.0 -1375.0) (float-vector -1510.0 150.0 -1375.0) (float-vector -1510.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector 1510.0 -150.0 1375.0) (float-vector 1510.0 -150.0 -1375.0) (float-vector 1510.0 150.0 -1375.0) (float-vector 1510.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -1510.0 -150.0 1375.0) (float-vector -1510.0 -150.0 -1375.0) (float-vector 1510.0 -150.0 -1375.0) (float-vector 1510.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -1510.0 150.0 1375.0) (float-vector -1510.0 150.0 -1375.0) (float-vector -1510.0 -150.0 -1375.0) (float-vector -1510.0 -150.0 1375.0)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :gray70)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room610-wall189-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of assoc
-     (send self :assoc blink0)
-
-     ;; definition of end-coords
-
-     ;; definition of joint
-
-
-     ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
-     (send self :init-ending)
-     (send self :move-to (make-coords :pos pos :rot rot))
-     (send-all links :worldcoords)
-
-     self))
-  (:cameras (&rest args)
-   (forward-message-to-all (list) args))
-
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list ))
-  )
-
-(defun room610-wall189 (&rest args) (instance* room610-wall189-object :init args))
-;; (format *error-output* "(instance room610-wall189-object :init) for generating model~%")

Deleted: trunk/EusLisp/models/room610-wall191-object.l
===================================================================
--- trunk/EusLisp/models/room610-wall191-object.l	2013-04-15 11:13:50 UTC (rev 604)
+++ trunk/EusLisp/models/room610-wall191-object.l	2013-04-16 04:50:52 UTC (rev 605)
@@ -1,60 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version 
-;;
-;;
-(defclass room610-wall191-object
-  :super cascaded-link
-  :slots (sensors
-         ))
-(defmethod room610-wall191-object
-  (:init
-   (&rest args &key (name "room610-wall191") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
-   (let (c bc
-         blink0
-                 )
-     (send-super* :init :name name args)
-
-     ;; definition of link
-
-     ;; definition of :room610-wall191-bodyset2
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 4580.0 150.0 1375.0) (float-vector -4580.0 150.0 1375.0) (float-vector -4580.0 -150.0 1375.0) (float-vector 4580.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -4580.0 150.0 -1375.0) (float-vector 4580.0 150.0 -1375.0) (float-vector 4580.0 -150.0 -1375.0) (float-vector -4580.0 -150.0 -1375.0)))
-         (instance face :init :vertices (list (float-vector 4580.0 150.0 1375.0) (float-vector 4580.0 150.0 -1375.0) (float-vector -4580.0 150.0 -1375.0) (float-vector -4580.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector 4580.0 -150.0 1375.0) (float-vector 4580.0 -150.0 -1375.0) (float-vector 4580.0 150.0 -1375.0) (float-vector 4580.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -4580.0 -150.0 1375.0) (float-vector -4580.0 -150.0 -1375.0) (float-vector 4580.0 -150.0 -1375.0) (float-vector 4580.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -4580.0 150.0 1375.0) (float-vector -4580.0 150.0 -1375.0) (float-vector -4580.0 -150.0 -1375.0) (float-vector -4580.0 -150.0 1375.0)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :gray70)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room610-wall191-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of assoc
-     (send self :assoc blink0)
-
-     ;; definition of end-coords
-
-     ;; definition of joint
-
-
-     ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
-     (send self :init-ending)
-     (send self :move-to (make-coords :pos pos :rot rot))
-     (send-all links :worldcoords)
-
-     self))
-  (:cameras (&rest args)
-   (forward-message-to-all (list) args))
-
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list ))
-  )
-
-(defun room610-wall191 (&rest args) (instance* room610-wall191-object :init args))
-;; (format *error-output* "(instance room610-wall191-object :init) for generating model~%")

Deleted: trunk/EusLisp/models/room610-wall193-object.l
===================================================================
--- trunk/EusLisp/models/room610-wall193-object.l	2013-04-15 11:13:50 UTC (rev 604)
+++ trunk/EusLisp/models/room610-wall193-object.l	2013-04-16 04:50:52 UTC (rev 605)
@@ -1,60 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version 
-;;
-;;
-(defclass room610-wall193-object
-  :super cascaded-link
-  :slots (sensors
-         ))
-(defmethod room610-wall193-object
-  (:init
-   (&rest args &key (name "room610-wall193") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
-   (let (c bc
-         blink0
-                 )
-     (send-super* :init :name name args)
-
-     ;; definition of link
-
-     ;; definition of :room610-wall193-bodyset2
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 4580.0 150.0 1375.0) (float-vector -4580.0 150.0 1375.0) (float-vector -4580.0 -150.0 1375.0) (float-vector 4580.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -4580.0 150.0 -1375.0) (float-vector 4580.0 150.0 -1375.0) (float-vector 4580.0 -150.0 -1375.0) (float-vector -4580.0 -150.0 -1375.0)))
-         (instance face :init :vertices (list (float-vector 4580.0 150.0 1375.0) (float-vector 4580.0 150.0 -1375.0) (float-vector -4580.0 150.0 -1375.0) (float-vector -4580.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector 4580.0 -150.0 1375.0) (float-vector 4580.0 -150.0 -1375.0) (float-vector 4580.0 150.0 -1375.0) (float-vector 4580.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -4580.0 -150.0 1375.0) (float-vector -4580.0 -150.0 -1375.0) (float-vector 4580.0 -150.0 -1375.0) (float-vector 4580.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -4580.0 150.0 1375.0) (float-vector -4580.0 150.0 -1375.0) (float-vector -4580.0 -150.0 -1375.0) (float-vector -4580.0 -150.0 1375.0)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :gray70)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room610-wall193-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of assoc
-     (send self :assoc blink0)
-
-     ;; definition of end-coords
-
-     ;; definition of joint
-
-
-     ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
-     (send self :init-ending)
-     (send self :move-to (make-coords :pos pos :rot rot))
-     (send-all links :worldcoords)
-
-     self))
-  (:cameras (&rest args)
-   (forward-message-to-all (list) args))
-
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list ))
-  )
-
-(defun room610-wall193 (&rest args) (instance* room610-wall193-object :init args))
-;; (format *error-output* "(instance room610-wall193-object :init) for generating model~%")

Deleted: trunk/EusLisp/models/room610-wall195-object.l
===================================================================
--- trunk/EusLisp/models/room610-wall195-object.l	2013-04-15 11:13:50 UTC (rev 604)
+++ trunk/EusLisp/models/room610-wall195-object.l	2013-04-16 04:50:52 UTC (rev 605)
@@ -1,60 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version 
-;;
-;;
-(defclass room610-wall195-object
-  :super cascaded-link
-  :slots (sensors
-         ))
-(defmethod room610-wall195-object
-  (:init
-   (&rest args &key (name "room610-wall195") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
-   (let (c bc
-         blink0
-                 )
-     (send-super* :init :name name args)
-
-     ;; definition of link
-
-     ;; definition of :room610-wall195-bodyset2
-     (setq bc (list
-       (instance faceset :init :faces (list
-         (instance face :init :vertices (list (float-vector 3950.0 150.0 1375.0) (float-vector -3950.0 150.0 1375.0) (float-vector -3950.0 -150.0 1375.0) (float-vector 3950.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -3950.0 150.0 -1375.0) (float-vector 3950.0 150.0 -1375.0) (float-vector 3950.0 -150.0 -1375.0) (float-vector -3950.0 -150.0 -1375.0)))
-         (instance face :init :vertices (list (float-vector 3950.0 150.0 1375.0) (float-vector 3950.0 150.0 -1375.0) (float-vector -3950.0 150.0 -1375.0) (float-vector -3950.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector 3950.0 -150.0 1375.0) (float-vector 3950.0 -150.0 -1375.0) (float-vector 3950.0 150.0 -1375.0) (float-vector 3950.0 150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -3950.0 -150.0 1375.0) (float-vector -3950.0 -150.0 -1375.0) (float-vector 3950.0 -150.0 -1375.0) (float-vector 3950.0 -150.0 1375.0)))
-         (instance face :init :vertices (list (float-vector -3950.0 150.0 1375.0) (float-vector -3950.0 150.0 -1375.0) (float-vector -3950.0 -150.0 -1375.0) (float-vector -3950.0 -150.0 1375.0)))
-       ))
-       ))
-     (dolist (b (cdr bc)) (send (car bc) :assoc b))
-     (send (elt bc 0) :set-color :gray70)
-     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room610-wall195-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
-
-     ;; definition of assoc
-     (send self :assoc blink0)
-
-     ;; definition of end-coords
-
-     ;; definition of joint
-
-
-     ;; init-ending 
-     (setq links (list blink0))
-     (setq joint-list (list))
-     (send self :init-ending)
-     (send self :move-to (make-coords :pos pos :rot rot))
-     (send-all links :worldcoords)
-
-     self))
-  (:cameras (&rest args)
-   (forward-message-to-all (list) args))
-
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list ))
-  )
-
-(defun room610-wall195 (&rest args) (instance* room610-wall195-object :init args))
-;; (format *error-output* "(instance room610-wall195-object :init) for generating model~%")

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.