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

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

Revision: 645
          http://sourceforge.net/p/euslisp/code/645
Author:   snozawa
Date:     2013-06-17 06:06:22 +0000 (Mon, 17 Jun 2013)
Log Message:
-----------
add room602 wall

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

Added Paths:
-----------
    trunk/EusLisp/models/room602-wall1-object.l
    trunk/EusLisp/models/room602-wall2-object.l
    trunk/EusLisp/models/room602-wall3-object.l
    trunk/EusLisp/models/room602-wall33-object.l
    trunk/EusLisp/models/room602-wall4-object.l
    trunk/EusLisp/models/room602-wall5-object.l
    trunk/EusLisp/models/room602-wall6-object.l
    trunk/EusLisp/models/room602-wall7-object.l

Modified: trunk/EusLisp/models/room602-scene.l
===================================================================
--- trunk/EusLisp/models/room602-scene.l	2013-06-03 02:38:02 UTC (rev 644)
+++ trunk/EusLisp/models/room602-scene.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -57,6 +57,14 @@
 (load "models/room602-clock-object.l")
 (load "models/room602-laundry-machine-object.l")
 (load "models/room602-tray1-object.l")
+(load "models/room602-wall1-object.l")
+(load "models/room602-wall2-object.l")
+(load "models/room602-wall3-object.l")
+(load "models/room602-wall33-object.l")
+(load "models/room602-wall4-object.l")
+(load "models/room602-wall5-object.l")
+(load "models/room602-wall6-object.l")
+(load "models/room602-wall7-object.l")
 
 (defclass room602-scene
   :super scene-model
@@ -121,6 +129,14 @@
  (send (room602-clock) :transform (make-coords :pos (float-vector 25.0 1300.0 2100.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
  (send (room602-laundry-machine) :transform (make-coords :pos (float-vector 500.0 4300.0 0.0) :rot #2f((0.984808 0.173648 0.0) (-0.173648 0.984808 0.0) (0.0 0.0 1.0))))
  (send (room602-tray1) :transform (make-coords :pos (float-vector 4790.0 2400.0 705.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room602-wall1) :transform (make-coords :pos (float-vector 5300.0 4700.0 1125.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room602-wall2) :transform (make-coords :pos (float-vector 3445.0 4700.0 1125.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room602-wall3) :transform (make-coords :pos (float-vector 2048.0 4700.0 1125.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room602-wall33) :transform (make-coords :pos (float-vector 290.0 4800.0 1125.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room602-wall4) :transform (make-coords :pos (float-vector 1800.0 -1500.0 1125.0) :rot #2f((-1.0 -1.224606e-16 0.0) (1.224606e-16 -1.0 0.0) (0.0 0.0 1.0))))
+ (send (room602-wall5) :transform (make-coords :pos (float-vector 800.0 -1100.0 1125.0) :rot #2f((2.220446e-16 -1.0 0.0) (1.0 2.220446e-16 0.0) (0.0 0.0 1.0))))
+ (send (room602-wall6) :transform (make-coords :pos (float-vector 2300.0 -1600.0 1125.0) :rot #2f((-1.0 -1.224606e-16 0.0) (1.224606e-16 -1.0 0.0) (0.0 0.0 1.0))))
+ (send (room602-wall7) :transform (make-coords :pos (float-vector 1500.0 1300.0 1125.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
        ))
      ))
   )

Added: trunk/EusLisp/models/room602-wall1-object.l
===================================================================
--- trunk/EusLisp/models/room602-wall1-object.l	                        (rev 0)
+++ trunk/EusLisp/models/room602-wall1-object.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -0,0 +1,62 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room602-wall1-object
+  :super cascaded-link
+  :slots (sensors
+         ))
+(defmethod room602-wall1-object
+  (:init
+   (&rest args &key (name "room602-wall1") (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 :room602-wall1-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector -915.0 40.0 1125.0) (float-vector -915.0 -40.0 1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 -40.0 1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 -40.0 1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 1125.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     ;; paste texture irt83b1-panel.jpg
+     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/irt83b1-panel.jpg")
+     (send (elt bc 0) :set-color :cornsilk)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room602-wall1-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 (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room602-wall1 (&rest args) (instance* room602-wall1-object :init args))
+;; (format *error-output* "(instance room602-wall1-object :init) for generating model~%")

Added: trunk/EusLisp/models/room602-wall2-object.l
===================================================================
--- trunk/EusLisp/models/room602-wall2-object.l	                        (rev 0)
+++ trunk/EusLisp/models/room602-wall2-object.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -0,0 +1,62 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room602-wall2-object
+  :super cascaded-link
+  :slots (sensors
+         ))
+(defmethod room602-wall2-object
+  (:init
+   (&rest args &key (name "room602-wall2") (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 :room602-wall2-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector -915.0 40.0 1125.0) (float-vector -915.0 -40.0 1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 -40.0 1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 -40.0 1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 1125.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     ;; paste texture irt83b1-panel.jpg
+     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/irt83b1-panel.jpg")
+     (send (elt bc 0) :set-color :cornsilk)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room602-wall2-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 (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room602-wall2 (&rest args) (instance* room602-wall2-object :init args))
+;; (format *error-output* "(instance room602-wall2-object :init) for generating model~%")

Added: trunk/EusLisp/models/room602-wall3-object.l
===================================================================
--- trunk/EusLisp/models/room602-wall3-object.l	                        (rev 0)
+++ trunk/EusLisp/models/room602-wall3-object.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -0,0 +1,62 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room602-wall3-object
+  :super cascaded-link
+  :slots (sensors
+         ))
+(defmethod room602-wall3-object
+  (:init
+   (&rest args &key (name "room602-wall3") (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 :room602-wall3-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 457.5 40.0 1125.0) (float-vector -457.5 40.0 1125.0) (float-vector -457.5 -40.0 1125.0) (float-vector 457.5 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 40.0 -1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector -457.5 -40.0 -1125.0)))
+         (instance face :init :vertices (list (float-vector 457.5 40.0 1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector -457.5 40.0 -1125.0) (float-vector -457.5 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector 457.5 -40.0 1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector 457.5 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 -40.0 1125.0) (float-vector -457.5 -40.0 -1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector 457.5 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 40.0 1125.0) (float-vector -457.5 40.0 -1125.0) (float-vector -457.5 -40.0 -1125.0) (float-vector -457.5 -40.0 1125.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     ;; paste texture irt83b1-panel.jpg
+     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/irt83b1-panel.jpg")
+     (send (elt bc 0) :set-color :cornsilk)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room602-wall3-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 (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room602-wall3 (&rest args) (instance* room602-wall3-object :init args))
+;; (format *error-output* "(instance room602-wall3-object :init) for generating model~%")

Added: trunk/EusLisp/models/room602-wall33-object.l
===================================================================
--- trunk/EusLisp/models/room602-wall33-object.l	                        (rev 0)
+++ trunk/EusLisp/models/room602-wall33-object.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -0,0 +1,62 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room602-wall33-object
+  :super cascaded-link
+  :slots (sensors
+         ))
+(defmethod room602-wall33-object
+  (:init
+   (&rest args &key (name "room602-wall33") (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 :room602-wall33-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector -915.0 40.0 1125.0) (float-vector -915.0 -40.0 1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 -40.0 1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 -40.0 1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 1125.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     ;; paste texture irt83b1-panel.jpg
+     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/irt83b1-panel.jpg")
+     (send (elt bc 0) :set-color :cornsilk)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room602-wall33-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 (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room602-wall33 (&rest args) (instance* room602-wall33-object :init args))
+;; (format *error-output* "(instance room602-wall33-object :init) for generating model~%")

Added: trunk/EusLisp/models/room602-wall4-object.l
===================================================================
--- trunk/EusLisp/models/room602-wall4-object.l	                        (rev 0)
+++ trunk/EusLisp/models/room602-wall4-object.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -0,0 +1,62 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room602-wall4-object
+  :super cascaded-link
+  :slots (sensors
+         ))
+(defmethod room602-wall4-object
+  (:init
+   (&rest args &key (name "room602-wall4") (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 :room602-wall4-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector -915.0 40.0 1125.0) (float-vector -915.0 -40.0 1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 -40.0 1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 -40.0 1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 1125.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     ;; paste texture irt83b1-panel.jpg
+     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/irt83b1-panel.jpg")
+     (send (elt bc 0) :set-color :cornsilk)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room602-wall4-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 (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room602-wall4 (&rest args) (instance* room602-wall4-object :init args))
+;; (format *error-output* "(instance room602-wall4-object :init) for generating model~%")

Added: trunk/EusLisp/models/room602-wall5-object.l
===================================================================
--- trunk/EusLisp/models/room602-wall5-object.l	                        (rev 0)
+++ trunk/EusLisp/models/room602-wall5-object.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -0,0 +1,62 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room602-wall5-object
+  :super cascaded-link
+  :slots (sensors
+         ))
+(defmethod room602-wall5-object
+  (:init
+   (&rest args &key (name "room602-wall5") (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 :room602-wall5-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 457.5 40.0 1125.0) (float-vector -457.5 40.0 1125.0) (float-vector -457.5 -40.0 1125.0) (float-vector 457.5 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 40.0 -1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector -457.5 -40.0 -1125.0)))
+         (instance face :init :vertices (list (float-vector 457.5 40.0 1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector -457.5 40.0 -1125.0) (float-vector -457.5 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector 457.5 -40.0 1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector 457.5 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 -40.0 1125.0) (float-vector -457.5 -40.0 -1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector 457.5 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 40.0 1125.0) (float-vector -457.5 40.0 -1125.0) (float-vector -457.5 -40.0 -1125.0) (float-vector -457.5 -40.0 1125.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     ;; paste texture irt83b1-panel.jpg
+     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/irt83b1-panel.jpg")
+     (send (elt bc 0) :set-color :cornsilk)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room602-wall5-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 (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room602-wall5 (&rest args) (instance* room602-wall5-object :init args))
+;; (format *error-output* "(instance room602-wall5-object :init) for generating model~%")

Added: trunk/EusLisp/models/room602-wall6-object.l
===================================================================
--- trunk/EusLisp/models/room602-wall6-object.l	                        (rev 0)
+++ trunk/EusLisp/models/room602-wall6-object.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -0,0 +1,62 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room602-wall6-object
+  :super cascaded-link
+  :slots (sensors
+         ))
+(defmethod room602-wall6-object
+  (:init
+   (&rest args &key (name "room602-wall6") (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 :room602-wall6-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 457.5 40.0 1125.0) (float-vector -457.5 40.0 1125.0) (float-vector -457.5 -40.0 1125.0) (float-vector 457.5 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 40.0 -1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector -457.5 -40.0 -1125.0)))
+         (instance face :init :vertices (list (float-vector 457.5 40.0 1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector -457.5 40.0 -1125.0) (float-vector -457.5 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector 457.5 -40.0 1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector 457.5 40.0 -1125.0) (float-vector 457.5 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 -40.0 1125.0) (float-vector -457.5 -40.0 -1125.0) (float-vector 457.5 -40.0 -1125.0) (float-vector 457.5 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -457.5 40.0 1125.0) (float-vector -457.5 40.0 -1125.0) (float-vector -457.5 -40.0 -1125.0) (float-vector -457.5 -40.0 1125.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     ;; paste texture irt83b1-panel.jpg
+     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/irt83b1-panel.jpg")
+     (send (elt bc 0) :set-color :cornsilk)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room602-wall6-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 (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room602-wall6 (&rest args) (instance* room602-wall6-object :init args))
+;; (format *error-output* "(instance room602-wall6-object :init) for generating model~%")

Added: trunk/EusLisp/models/room602-wall7-object.l
===================================================================
--- trunk/EusLisp/models/room602-wall7-object.l	                        (rev 0)
+++ trunk/EusLisp/models/room602-wall7-object.l	2013-06-17 06:06:22 UTC (rev 645)
@@ -0,0 +1,62 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass room602-wall7-object
+  :super cascaded-link
+  :slots (sensors
+         ))
+(defmethod room602-wall7-object
+  (:init
+   (&rest args &key (name "room602-wall7") (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 :room602-wall7-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector -915.0 40.0 1125.0) (float-vector -915.0 -40.0 1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 40.0 1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector 915.0 -40.0 1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 40.0 -1125.0) (float-vector 915.0 40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 -40.0 1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 -1125.0) (float-vector 915.0 -40.0 1125.0)))
+         (instance face :init :vertices (list (float-vector -915.0 40.0 1125.0) (float-vector -915.0 40.0 -1125.0) (float-vector -915.0 -40.0 -1125.0) (float-vector -915.0 -40.0 1125.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     ;; paste texture irt83b1-panel.jpg
+     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/irt83b1-panel.jpg")
+     (send (elt bc 0) :set-color :cornsilk)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :room602-wall7-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 (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
+  )
+
+(defun room602-wall7 (&rest args) (instance* room602-wall7-object :init args))
+;; (format *error-output* "(instance room602-wall7-object :init) for generating model~%")

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