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

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

Revision: 610
          http://sourceforge.net/p/euslisp/code/610
Author:   snozawa
Date:     2013-04-19 05:07:03 +0000 (Fri, 19 Apr 2013)
Log Message:
-----------
fix handle coords of tray

Modified Paths:
--------------
    trunk/EusLisp/models/room602-tray1-object.l
    trunk/EusLisp/models/room610-tray-object.l
    trunk/EusLisp/models/room73b2-tray-object.l
    trunk/EusLisp/models/tray-object.l

Modified: trunk/EusLisp/models/room602-tray1-object.l
===================================================================
--- trunk/EusLisp/models/room602-tray1-object.l	2013-04-19 04:51:10 UTC (rev 609)
+++ trunk/EusLisp/models/room602-tray1-object.l	2013-04-19 05:07:03 UTC (rev 610)
@@ -98,9 +98,9 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 150.0 55.0) :rot #2f((2.220446e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 2.220446e-16)) :name ":larm-handle"))
+     (setq handle0 (make-cascoords :pos (float-vector 200.0 0.0 55.0) :rot #2f((1.110223e-16 -1.0 -1.110223e-16) (1.110223e-16 -1.110223e-16 1.0) (-1.0 -1.110223e-16 1.110223e-16)) :name ":rarm-handle"))
      (send self :assoc handle0)
-     (setq handle1 (make-cascoords :pos (float-vector 0.0 -150.0 55.0) :rot #2f((2.220446e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 2.220446e-16)) :name ":rarm-handle"))
+     (setq handle1 (make-cascoords :pos (float-vector -200.0 0.0 55.0) :rot #2f((1.110223e-16 -1.0 -1.110223e-16) (1.110223e-16 -1.110223e-16 1.0) (-1.0 -1.110223e-16 1.110223e-16)) :name ":larm-handle"))
      (send self :assoc handle1)
      (setq handle2 (make-cascoords :pos (float-vector 200.0 -120.0 55.0) :rot #2f((-0.707107 -7.216450e-16 -0.707107) (0.707107 -5.551115e-16 -0.707107) (1.665335e-16 -1.0 8.881784e-16)) :name "handle2"))
      (send self :assoc handle2)
@@ -123,8 +123,8 @@
    (forward-message-to-all (list) args))
 
   (:handle () (list  handle0 handle1 handle2 handle3 handle4 handle5))
-  (:handle-larm-handle () handle0)
-  (:handle-rarm-handle () handle1)
+  (:handle-rarm-handle () handle0)
+  (:handle-larm-handle () handle1)
   (:handle-handle2 () handle2)
   (:handle-handle3 () handle3)
   (:handle-handle4 () handle4)

Modified: trunk/EusLisp/models/room610-tray-object.l
===================================================================
--- trunk/EusLisp/models/room610-tray-object.l	2013-04-19 04:51:10 UTC (rev 609)
+++ trunk/EusLisp/models/room610-tray-object.l	2013-04-19 05:07:03 UTC (rev 610)
@@ -78,9 +78,9 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 150.0 30.0) :rot #2f((2.220446e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 2.220446e-16)) :name ":larm-handle"))
+     (setq handle0 (make-cascoords :pos (float-vector 200.0 0.0 30.0) :rot #2f((0.0 -1.0 0.0) (0.0 0.0 1.0) (-1.0 0.0 0.0)) :name ":rarm-handle"))
      (send self :assoc handle0)
-     (setq handle1 (make-cascoords :pos (float-vector 0.0 -150.0 30.0) :rot #2f((2.220446e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 2.220446e-16)) :name ":rarm-handle"))
+     (setq handle1 (make-cascoords :pos (float-vector -200.0 0.0 30.0) :rot #2f((0.0 -1.0 0.0) (0.0 0.0 1.0) (-1.0 0.0 0.0)) :name ":larm-handle"))
      (send self :assoc handle1)
      (setq handle2 (make-cascoords :pos (float-vector 200.0 -120.0 30.0) :rot #2f((-0.707107 -6.106227e-16 -0.707107) (0.707107 -2.775558e-16 -0.707107) (2.775558e-16 -1.0 6.106227e-16)) :name "handle2"))
      (send self :assoc handle2)
@@ -103,8 +103,8 @@
    (forward-message-to-all (list) args))
 
   (:handle () (list  handle0 handle1 handle2 handle3 handle4 handle5))
-  (:handle-larm-handle () handle0)
-  (:handle-rarm-handle () handle1)
+  (:handle-rarm-handle () handle0)
+  (:handle-larm-handle () handle1)
   (:handle-handle2 () handle2)
   (:handle-handle3 () handle3)
   (:handle-handle4 () handle4)

Modified: trunk/EusLisp/models/room73b2-tray-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-tray-object.l	2013-04-19 04:51:10 UTC (rev 609)
+++ trunk/EusLisp/models/room73b2-tray-object.l	2013-04-19 05:07:03 UTC (rev 610)
@@ -78,9 +78,9 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 200.0 30.0) :rot #2f((2.220446e-16 8.715764e-33 1.0) (-8.715764e-33 1.0 -8.715764e-33) (-1.0 -8.715764e-33 2.220446e-16)) :name ":larm-handle"))
+     (setq handle0 (make-cascoords :pos (float-vector 150.0 0.0 30.0) :rot #2f((2.775558e-16 -1.0 -5.551115e-17) (2.775558e-16 -5.551115e-17 1.0) (-1.0 -2.775558e-16 2.775558e-16)) :name ":rarm-handle"))
      (send self :assoc handle0)
-     (setq handle1 (make-cascoords :pos (float-vector 5.684342e-14 -200.0 30.0) :rot #2f((2.220446e-16 8.715764e-33 1.0) (-8.715764e-33 1.0 -8.715764e-33) (-1.0 -8.715764e-33 2.220446e-16)) :name ":rarm-handle"))
+     (setq handle1 (make-cascoords :pos (float-vector -150.0 0.0 30.0) :rot #2f((2.775558e-16 -1.0 -5.551115e-17) (2.775558e-16 -5.551115e-17 1.0) (-1.0 -2.775558e-16 2.775558e-16)) :name ":larm-handle"))
      (send self :assoc handle1)
      (setq handle2 (make-cascoords :pos (float-vector 150.0 -160.0 30.0) :rot #2f((-0.707107 -6.106227e-16 -0.707107) (0.707107 -7.771561e-16 -0.707107) (-5.551115e-17 -1.0 9.992007e-16)) :name "handle2"))
      (send self :assoc handle2)
@@ -103,8 +103,8 @@
    (forward-message-to-all (list) args))
 
   (:handle () (list  handle0 handle1 handle2 handle3 handle4 handle5))
-  (:handle-larm-handle () handle0)
-  (:handle-rarm-handle () handle1)
+  (:handle-rarm-handle () handle0)
+  (:handle-larm-handle () handle1)
   (:handle-handle2 () handle2)
   (:handle-handle3 () handle3)
   (:handle-handle4 () handle4)

Modified: trunk/EusLisp/models/tray-object.l
===================================================================
--- trunk/EusLisp/models/tray-object.l	2013-04-19 04:51:10 UTC (rev 609)
+++ trunk/EusLisp/models/tray-object.l	2013-04-19 05:07:03 UTC (rev 610)
@@ -78,9 +78,9 @@
 
 
      ;; definition of :handle
-     (setq handle0 (make-cascoords :pos (float-vector 0.0 200.0 30.0) :rot #2f((2.220446e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 2.220446e-16)) :name ":larm-handle"))
+     (setq handle0 (make-cascoords :pos (float-vector 150.0 0.0 30.0) :rot #2f((0.0 -1.0 0.0) (0.0 0.0 1.0) (-1.0 0.0 0.0)) :name ":rarm-handle"))
      (send self :assoc handle0)
-     (setq handle1 (make-cascoords :pos (float-vector 0.0 -200.0 30.0) :rot #2f((2.220446e-16 0.0 1.0) (0.0 1.0 0.0) (-1.0 0.0 2.220446e-16)) :name ":rarm-handle"))
+     (setq handle1 (make-cascoords :pos (float-vector -150.0 0.0 30.0) :rot #2f((0.0 -1.0 0.0) (0.0 0.0 1.0) (-1.0 0.0 0.0)) :name ":larm-handle"))
      (send self :assoc handle1)
      (setq handle2 (make-cascoords :pos (float-vector 150.0 -160.0 30.0) :rot #2f((-0.707107 -6.106227e-16 -0.707107) (0.707107 -2.775558e-16 -0.707107) (2.775558e-16 -1.0 6.106227e-16)) :name "handle2"))
      (send self :assoc handle2)
@@ -103,8 +103,8 @@
    (forward-message-to-all (list) args))
 
   (:handle () (list  handle0 handle1 handle2 handle3 handle4 handle5))
-  (:handle-larm-handle () handle0)
-  (:handle-rarm-handle () handle1)
+  (:handle-rarm-handle () handle0)
+  (:handle-larm-handle () handle1)
   (:handle-handle2 () handle2)
   (:handle-handle3 () handle3)
   (:handle-handle4 () handle4)

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