Menu
▾
▴
euslisp-commit — euslisp commit mailing list
You can subscribe to this list here.
| 2013 |
Jan
|
Feb
|
Mar
|
Apr
(31) |
May
(50) |
Jun
(6) |
Jul
(8) |
Aug
(4) |
Sep
(2) |
Oct
(4) |
Nov
(6) |
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2014 |
Jan
(24) |
Feb
(2) |
Mar
|
Apr
|
May
(2) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: <sn...@us...> - 2013-05-01 04:43:27
|
Revision: 622
http://sourceforge.net/p/euslisp/code/622
Author: snozawa
Date: 2013-05-01 04:43:15 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]
Modified Paths:
--------------
trunk/EusLisp/models/room73b2-73b2-ground-object.l
trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l
trunk/EusLisp/models/room73b2-askul-1400-desk-object.l
trunk/EusLisp/models/room73b2-azuma-broom-object.l
trunk/EusLisp/models/room73b2-azuma-short-broom-object.l
trunk/EusLisp/models/room73b2-bamboo-broom-object.l
trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l
trunk/EusLisp/models/room73b2-bariera-1200-right-object.l
trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l
trunk/EusLisp/models/room73b2-bariera-900-left-object.l
trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l
trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l
trunk/EusLisp/models/room73b2-bottle-object.l
trunk/EusLisp/models/room73b2-broom-object.l
trunk/EusLisp/models/room73b2-chair0-object.l
trunk/EusLisp/models/room73b2-chair1-object.l
trunk/EusLisp/models/room73b2-coe-450-shelf-object.l
trunk/EusLisp/models/room73b2-coe-800-shelf-object.l
trunk/EusLisp/models/room73b2-cup-object.l
trunk/EusLisp/models/room73b2-cupboard-left-object.l
trunk/EusLisp/models/room73b2-cupboard-right-object.l
trunk/EusLisp/models/room73b2-desk-0-object.l
trunk/EusLisp/models/room73b2-desk-1-object.l
trunk/EusLisp/models/room73b2-desk-2-object.l
trunk/EusLisp/models/room73b2-dish-object.l
trunk/EusLisp/models/room73b2-door-left-object.l
trunk/EusLisp/models/room73b2-door-right-object.l
trunk/EusLisp/models/room73b2-empty-box-object.l
trunk/EusLisp/models/room73b2-foldable-desk-object.l
trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l
trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l
trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l
trunk/EusLisp/models/room73b2-kettle-object.l
trunk/EusLisp/models/room73b2-kitchen-object.l
trunk/EusLisp/models/room73b2-kitchen-shelf-object.l
trunk/EusLisp/models/room73b2-knife-object.l
trunk/EusLisp/models/room73b2-locker1-object.l
trunk/EusLisp/models/room73b2-locker2-object.l
trunk/EusLisp/models/room73b2-mug-cup-object.l
trunk/EusLisp/models/room73b2-panelwall-0-object.l
trunk/EusLisp/models/room73b2-picaladder-object.l
trunk/EusLisp/models/room73b2-plus-590-locker-object.l
trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l
trunk/EusLisp/models/room73b2-sponge-object.l
trunk/EusLisp/models/room73b2-sushi-cup-object.l
trunk/EusLisp/models/room73b2-sushi-cup2-object.l
trunk/EusLisp/models/room73b2-toshiba-clacio-refrigerator-object.l
trunk/EusLisp/models/room73b2-trashbox0-object.l
trunk/EusLisp/models/room73b2-tray-object.l
trunk/EusLisp/models/room73b2-uchida-shelf-1100-object.l
trunk/EusLisp/models/room73b2-uchida-shelf-1300-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-0-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-1-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-2-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-3-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-4-object.l
trunk/EusLisp/models/room73b2-x-leg-desk-object.l
Modified: trunk/EusLisp/models/room73b2-73b2-ground-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-73b2-ground-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-73b2-ground-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-73b2-ground (&rest args) (instance* room73b2-73b2-ground-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1000x700-desk (&rest args) (instance* room73b2-askul-1000x700-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-0 (&rest args) (instance* room73b2-askul-1200x700-desk-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-1 (&rest args) (instance* room73b2-askul-1200x700-desk-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-2 (&rest args) (instance* room73b2-askul-1200x700-desk-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-3 (&rest args) (instance* room73b2-askul-1200x700-desk-3-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-4 (&rest args) (instance* room73b2-askul-1200x700-desk-4-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-5 (&rest args) (instance* room73b2-askul-1200x700-desk-5-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-6 (&rest args) (instance* room73b2-askul-1200x700-desk-6-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-7 (&rest args) (instance* room73b2-askul-1200x700-desk-7-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1400-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1400-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1400-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1400-desk (&rest args) (instance* room73b2-askul-1400-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-azuma-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-azuma-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-azuma-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -86,12 +86,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-azuma-broom (&rest args) (instance* room73b2-azuma-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-azuma-short-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-azuma-short-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-azuma-short-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -95,12 +95,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-azuma-short-broom (&rest args) (instance* room73b2-azuma-short-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-bamboo-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bamboo-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bamboo-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -82,12 +82,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bamboo-broom (&rest args) (instance* room73b2-bamboo-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-corner (&rest args) (instance* room73b2-bariera-1200-corner-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-0 (&rest args) (instance* room73b2-bariera-1200-middle-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-1 (&rest args) (instance* room73b2-bariera-1200-middle-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-2 (&rest args) (instance* room73b2-bariera-1200-middle-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle2 (&rest args) (instance* room73b2-bariera-1200-middle2-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle3-0 (&rest args) (instance* room73b2-bariera-1200-middle3-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle3-1 (&rest args) (instance* room73b2-bariera-1200-middle3-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-right (&rest args) (instance* room73b2-bariera-1200-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1400-middle (&rest args) (instance* room73b2-bariera-1400-middle-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -310,10 +310,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-left (&rest args) (instance* room73b2-bariera-900-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,10 +301,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-middle-0 (&rest args) (instance* room73b2-bariera-900-middle-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,10 +301,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-middle-1 (&rest args) (instance* room73b2-bariera-900-middle-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bottle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bottle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bottle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -134,11 +134,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bottle (&rest args) (instance* room73b2-bottle-object :init args))
Modified: trunk/EusLisp/models/room73b2-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -82,12 +82,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-broom (&rest args) (instance* room73b2-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-chair0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-chair0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-chair0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -451,11 +451,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-chair0 (&rest args) (instance* room73b2-chair0-object :init args))
Modified: trunk/EusLisp/models/room73b2-chair1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-chair1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-chair1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -451,11 +451,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-chair1 (&rest args) (instance* room73b2-chair1-object :init args))
Modified: trunk/EusLisp/models/room73b2-coe-450-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-coe-450-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-coe-450-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -110,10 +110,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-coe-450-shelf (&rest args) (instance* room73b2-coe-450-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-coe-800-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-coe-800-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-coe-800-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -101,10 +101,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-coe-800-shelf (&rest args) (instance* room73b2-coe-800-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -282,11 +282,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cup (&rest args) (instance* room73b2-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-cupboard-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cupboard-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cupboard-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -258,10 +258,10 @@
(:door-upper-left (&rest args) (forward-message-to joint1 args))
(:door-lower-right (&rest args) (forward-message-to joint2 args))
(:door-lower-left (&rest args) (forward-message-to joint3 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cupboard-left (&rest args) (instance* room73b2-cupboard-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-cupboard-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cupboard-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cupboard-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -312,10 +312,10 @@
(:drawer (&rest args) (forward-message-to joint2 args))
(:door-lower-right (&rest args) (forward-message-to joint3 args))
(:door-lower-left (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cupboard-right (&rest args) (instance* room73b2-cupboard-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-desk-0 (&rest args) (instance* room73b2-desk-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-desk-1 (&rest args) (instance* room73b2-desk-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-desk-2 (&rest args) (instance* room73b2-desk-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-dish-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-dish-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-dish-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -261,18 +261,18 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle4 () handle4)
- (:handle-handle5 () handle5)
- (:handle-handle6 () handle6)
- (:handle-handle7 () handle7)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle4 (&rest args) (forward-message-to handle4 args))
+ (:handle-handle5 (&rest args) (forward-message-to handle5 args))
+ (:handle-handle6 (&rest args) (forward-message-to handle6 args))
+ (:handle-handle7 (&rest args) (forward-message-to handle7 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-dish (&rest args) (instance* room73b2-dish-object :init args))
Modified: trunk/EusLisp/models/room73b2-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-door-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-door-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -126,9 +126,9 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-door-left (&rest args) (instance* room73b2-door-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-door-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-door-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,12 +301,12 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
(:lock (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-rear-knob () handle0)
- (:handle-front-knob () handle1)
- (:handle-lock () handle2)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-rear-knob (&rest args) (forward-message-to handle0 args))
+ (:handle-front-knob (&rest args) (forward-message-to handle1 args))
+ (:handle-lock (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-door-right (&rest args) (instance* room73b2-door-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-empty-box-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-empty-box-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-empty-box-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -65,10 +65,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-empty-box (&rest args) (instance* room73b2-empty-box-object :init args))
Modified: trunk/EusLisp/models/room73b2-foldable-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-foldable-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-foldable-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -289,11 +289,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-rarm () handle0)
- (:handle-larm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-rarm (&rest args) (forward-message-to handle0 args))
+ (:handle-larm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-foldable-desk (&rest args) (instance* room73b2-foldable-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -351,11 +351,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-gifuplastic-900-cart (&rest args) (instance* room73b2-gifuplastic-900-cart-object :init args))
Modified: trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -271,13 +271,13 @@
(:door1 (&rest args) (forward-message-to joint0 args))
(:drawer1 (&rest args) (forward-message-to joint1 args))
(:drawer2 (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-drawer2 () handle0)
- (:handle-drawer1 () handle1)
- (:handle-door1 () handle2)
- (:handle-handle3 () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-drawer2 (&rest args) (forward-message-to handle0 args))
+ (:handle-drawer1 (&rest args) (forward-message-to handle1 args))
+ (:handle-door1 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-hitachi-fiesta-refrigerator (&rest args) (instance* room73b2-hitachi-fiesta-refrigerator-object :init args))
Modified: trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -493,15 +493,15 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-handle0 () handle0)
- (:handle-drawer-handle0 () handle1)
- (:handle-drawer-handle1 () handle2)
- (:handle-drawer-handle2 () handle3)
- (:handle-drawer-handle3 () handle4)
- (:handle-drawer-handle4 () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-drawer-handle0 (&rest args) (forward-message-to handle1 args))
+ (:handle-drawer-handle1 (&rest args) (forward-message-to handle2 args))
+ (:handle-drawer-handle2 (&rest args) (forward-message-to handle3 args))
+ (:handle-drawer-handle3 (&rest args) (forward-message-to handle4 args))
+ (:handle-drawer-handle4 (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-hrp2-parts-drawer (&rest args) (instance* room73b2-hrp2-parts-drawer-object :init args))
Modified: trunk/EusLisp/models/room73b2-kettle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kettle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kettle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -604,11 +604,11 @@
(forward-message-to-all (list) args))
(:handle-joint (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kettle (&rest args) (instance* room73b2-kettle-object :init args))
Modified: trunk/EusLisp/models/room73b2-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kitchen-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kitchen-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -665,10 +665,10 @@
(:door-5 (&rest args) (forward-message-to joint8 args))
(:tap-tube-joint (&rest args) (forward-message-to joint9 args))
(:tap-handle-joint (&rest args) (forward-message-to joint10 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kitchen (&rest args) (instance* room73b2-kitchen-object :init args))
Modified: trunk/EusLisp/models/room73b2-kitchen-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kitchen-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kitchen-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -343,10 +343,10 @@
(:door-3 (&rest args) (forward-message-to joint3 args))
(:door-4 (&rest args) (forward-message-to joint4 args))
(:door-5 (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kitchen-shelf (&rest args) (instance* room73b2-kitchen-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-knife-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-knife-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-knife-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -65,10 +65,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-knife (&rest args) (instance* room73b2-knife-object :init args))
Modified: trunk/EusLisp/models/room73b2-locker1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-locker1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-locker1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -168,10 +168,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-locker1 (&rest args) (instance* room73b2-locker1-object :init args))
Modified: trunk/EusLisp/models/room73b2-locker2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-locker2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-locker2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -168,10 +168,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-locker2 (&rest args) (instance* room73b2-locker2-object :init args))
Modified: trunk/EusLisp/models/room73b2-mug-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-mug-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-mug-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -148,11 +148,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-mug-cup (&rest args) (instance* room73b2-mug-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-panelwall-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-panelwall-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-panelwall-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-panelwall-0 (&rest args) (instance* room73b2-panelwall-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-picaladder-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-picaladder-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-picaladder-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -159,9 +159,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-picaladder (&rest args) (instance* room73b2-picaladder-object :init args))
Modified: trunk/EusLisp/models/room73b2-plus-590-locker-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-plus-590-locker-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-plus-590-locker-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -206,10 +206,10 @@
(:door-left (&rest args) (forward-message-to joint0 args))
(:door-right (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-plus-590-locker (&rest args) (instance* room73b2-plus-590-locker-object :init args))
Modified: trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-sharp-52-aquostv (&rest args) (instance* room73b2-sharp-52-aquostv-object :init args))
Modified: trunk/EusLisp/models/room73b2-sponge-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sponge-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sponge-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -60,9 +60,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-sponge (&rest args) (instance* room73b2-sponge-object :init args))
Modified: trunk/EusLisp/models/room73b2-sushi-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sushi-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sushi-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -631,11 +631,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-sushi-cup (&rest args) (instance* room73b2-sushi-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-sushi-cup2-object.l
============...
[truncated message content] |
|
From: <sn...@us...> - 2013-05-01 04:43:24
|
Revision: 622
http://sourceforge.net/p/euslisp/code/622
Author: snozawa
Date: 2013-05-01 04:43:15 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]
Modified Paths:
--------------
trunk/EusLisp/models/room73b2-73b2-ground-object.l
trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l
trunk/EusLisp/models/room73b2-askul-1400-desk-object.l
trunk/EusLisp/models/room73b2-azuma-broom-object.l
trunk/EusLisp/models/room73b2-azuma-short-broom-object.l
trunk/EusLisp/models/room73b2-bamboo-broom-object.l
trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l
trunk/EusLisp/models/room73b2-bariera-1200-right-object.l
trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l
trunk/EusLisp/models/room73b2-bariera-900-left-object.l
trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l
trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l
trunk/EusLisp/models/room73b2-bottle-object.l
trunk/EusLisp/models/room73b2-broom-object.l
trunk/EusLisp/models/room73b2-chair0-object.l
trunk/EusLisp/models/room73b2-chair1-object.l
trunk/EusLisp/models/room73b2-coe-450-shelf-object.l
trunk/EusLisp/models/room73b2-coe-800-shelf-object.l
trunk/EusLisp/models/room73b2-cup-object.l
trunk/EusLisp/models/room73b2-cupboard-left-object.l
trunk/EusLisp/models/room73b2-cupboard-right-object.l
trunk/EusLisp/models/room73b2-desk-0-object.l
trunk/EusLisp/models/room73b2-desk-1-object.l
trunk/EusLisp/models/room73b2-desk-2-object.l
trunk/EusLisp/models/room73b2-dish-object.l
trunk/EusLisp/models/room73b2-door-left-object.l
trunk/EusLisp/models/room73b2-door-right-object.l
trunk/EusLisp/models/room73b2-empty-box-object.l
trunk/EusLisp/models/room73b2-foldable-desk-object.l
trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l
trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l
trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l
trunk/EusLisp/models/room73b2-kettle-object.l
trunk/EusLisp/models/room73b2-kitchen-object.l
trunk/EusLisp/models/room73b2-kitchen-shelf-object.l
trunk/EusLisp/models/room73b2-knife-object.l
trunk/EusLisp/models/room73b2-locker1-object.l
trunk/EusLisp/models/room73b2-locker2-object.l
trunk/EusLisp/models/room73b2-mug-cup-object.l
trunk/EusLisp/models/room73b2-panelwall-0-object.l
trunk/EusLisp/models/room73b2-picaladder-object.l
trunk/EusLisp/models/room73b2-plus-590-locker-object.l
trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l
trunk/EusLisp/models/room73b2-sponge-object.l
trunk/EusLisp/models/room73b2-sushi-cup-object.l
trunk/EusLisp/models/room73b2-sushi-cup2-object.l
trunk/EusLisp/models/room73b2-toshiba-clacio-refrigerator-object.l
trunk/EusLisp/models/room73b2-trashbox0-object.l
trunk/EusLisp/models/room73b2-tray-object.l
trunk/EusLisp/models/room73b2-uchida-shelf-1100-object.l
trunk/EusLisp/models/room73b2-uchida-shelf-1300-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-0-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-1-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-2-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-3-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-4-object.l
trunk/EusLisp/models/room73b2-x-leg-desk-object.l
Modified: trunk/EusLisp/models/room73b2-73b2-ground-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-73b2-ground-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-73b2-ground-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-73b2-ground (&rest args) (instance* room73b2-73b2-ground-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1000x700-desk (&rest args) (instance* room73b2-askul-1000x700-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-0 (&rest args) (instance* room73b2-askul-1200x700-desk-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-1 (&rest args) (instance* room73b2-askul-1200x700-desk-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-2 (&rest args) (instance* room73b2-askul-1200x700-desk-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-3 (&rest args) (instance* room73b2-askul-1200x700-desk-3-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-4 (&rest args) (instance* room73b2-askul-1200x700-desk-4-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-5 (&rest args) (instance* room73b2-askul-1200x700-desk-5-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-6 (&rest args) (instance* room73b2-askul-1200x700-desk-6-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1200x700-desk-7 (&rest args) (instance* room73b2-askul-1200x700-desk-7-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1400-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1400-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1400-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-askul-1400-desk (&rest args) (instance* room73b2-askul-1400-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-azuma-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-azuma-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-azuma-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -86,12 +86,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-azuma-broom (&rest args) (instance* room73b2-azuma-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-azuma-short-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-azuma-short-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-azuma-short-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -95,12 +95,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-azuma-short-broom (&rest args) (instance* room73b2-azuma-short-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-bamboo-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bamboo-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bamboo-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -82,12 +82,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bamboo-broom (&rest args) (instance* room73b2-bamboo-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-corner (&rest args) (instance* room73b2-bariera-1200-corner-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-0 (&rest args) (instance* room73b2-bariera-1200-middle-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-1 (&rest args) (instance* room73b2-bariera-1200-middle-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-2 (&rest args) (instance* room73b2-bariera-1200-middle-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle2 (&rest args) (instance* room73b2-bariera-1200-middle2-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle3-0 (&rest args) (instance* room73b2-bariera-1200-middle3-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle3-1 (&rest args) (instance* room73b2-bariera-1200-middle3-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-right (&rest args) (instance* room73b2-bariera-1200-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1400-middle (&rest args) (instance* room73b2-bariera-1400-middle-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -310,10 +310,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-left (&rest args) (instance* room73b2-bariera-900-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,10 +301,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-middle-0 (&rest args) (instance* room73b2-bariera-900-middle-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,10 +301,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-middle-1 (&rest args) (instance* room73b2-bariera-900-middle-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bottle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bottle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bottle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -134,11 +134,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bottle (&rest args) (instance* room73b2-bottle-object :init args))
Modified: trunk/EusLisp/models/room73b2-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -82,12 +82,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-broom (&rest args) (instance* room73b2-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-chair0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-chair0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-chair0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -451,11 +451,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-chair0 (&rest args) (instance* room73b2-chair0-object :init args))
Modified: trunk/EusLisp/models/room73b2-chair1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-chair1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-chair1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -451,11 +451,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-chair1 (&rest args) (instance* room73b2-chair1-object :init args))
Modified: trunk/EusLisp/models/room73b2-coe-450-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-coe-450-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-coe-450-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -110,10 +110,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-coe-450-shelf (&rest args) (instance* room73b2-coe-450-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-coe-800-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-coe-800-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-coe-800-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -101,10 +101,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-coe-800-shelf (&rest args) (instance* room73b2-coe-800-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -282,11 +282,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cup (&rest args) (instance* room73b2-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-cupboard-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cupboard-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cupboard-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -258,10 +258,10 @@
(:door-upper-left (&rest args) (forward-message-to joint1 args))
(:door-lower-right (&rest args) (forward-message-to joint2 args))
(:door-lower-left (&rest args) (forward-message-to joint3 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cupboard-left (&rest args) (instance* room73b2-cupboard-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-cupboard-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cupboard-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cupboard-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -312,10 +312,10 @@
(:drawer (&rest args) (forward-message-to joint2 args))
(:door-lower-right (&rest args) (forward-message-to joint3 args))
(:door-lower-left (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cupboard-right (&rest args) (instance* room73b2-cupboard-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-desk-0 (&rest args) (instance* room73b2-desk-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-desk-1 (&rest args) (instance* room73b2-desk-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-desk-2 (&rest args) (instance* room73b2-desk-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-dish-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-dish-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-dish-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -261,18 +261,18 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle4 () handle4)
- (:handle-handle5 () handle5)
- (:handle-handle6 () handle6)
- (:handle-handle7 () handle7)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle4 (&rest args) (forward-message-to handle4 args))
+ (:handle-handle5 (&rest args) (forward-message-to handle5 args))
+ (:handle-handle6 (&rest args) (forward-message-to handle6 args))
+ (:handle-handle7 (&rest args) (forward-message-to handle7 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-dish (&rest args) (instance* room73b2-dish-object :init args))
Modified: trunk/EusLisp/models/room73b2-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-door-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-door-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -126,9 +126,9 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-door-left (&rest args) (instance* room73b2-door-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-door-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-door-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,12 +301,12 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
(:lock (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-rear-knob () handle0)
- (:handle-front-knob () handle1)
- (:handle-lock () handle2)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-rear-knob (&rest args) (forward-message-to handle0 args))
+ (:handle-front-knob (&rest args) (forward-message-to handle1 args))
+ (:handle-lock (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-door-right (&rest args) (instance* room73b2-door-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-empty-box-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-empty-box-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-empty-box-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -65,10 +65,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-empty-box (&rest args) (instance* room73b2-empty-box-object :init args))
Modified: trunk/EusLisp/models/room73b2-foldable-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-foldable-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-foldable-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -289,11 +289,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-rarm () handle0)
- (:handle-larm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-rarm (&rest args) (forward-message-to handle0 args))
+ (:handle-larm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-foldable-desk (&rest args) (instance* room73b2-foldable-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -351,11 +351,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-gifuplastic-900-cart (&rest args) (instance* room73b2-gifuplastic-900-cart-object :init args))
Modified: trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -271,13 +271,13 @@
(:door1 (&rest args) (forward-message-to joint0 args))
(:drawer1 (&rest args) (forward-message-to joint1 args))
(:drawer2 (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-drawer2 () handle0)
- (:handle-drawer1 () handle1)
- (:handle-door1 () handle2)
- (:handle-handle3 () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-drawer2 (&rest args) (forward-message-to handle0 args))
+ (:handle-drawer1 (&rest args) (forward-message-to handle1 args))
+ (:handle-door1 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-hitachi-fiesta-refrigerator (&rest args) (instance* room73b2-hitachi-fiesta-refrigerator-object :init args))
Modified: trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -493,15 +493,15 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-handle0 () handle0)
- (:handle-drawer-handle0 () handle1)
- (:handle-drawer-handle1 () handle2)
- (:handle-drawer-handle2 () handle3)
- (:handle-drawer-handle3 () handle4)
- (:handle-drawer-handle4 () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-drawer-handle0 (&rest args) (forward-message-to handle1 args))
+ (:handle-drawer-handle1 (&rest args) (forward-message-to handle2 args))
+ (:handle-drawer-handle2 (&rest args) (forward-message-to handle3 args))
+ (:handle-drawer-handle3 (&rest args) (forward-message-to handle4 args))
+ (:handle-drawer-handle4 (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-hrp2-parts-drawer (&rest args) (instance* room73b2-hrp2-parts-drawer-object :init args))
Modified: trunk/EusLisp/models/room73b2-kettle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kettle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kettle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -604,11 +604,11 @@
(forward-message-to-all (list) args))
(:handle-joint (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kettle (&rest args) (instance* room73b2-kettle-object :init args))
Modified: trunk/EusLisp/models/room73b2-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kitchen-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kitchen-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -665,10 +665,10 @@
(:door-5 (&rest args) (forward-message-to joint8 args))
(:tap-tube-joint (&rest args) (forward-message-to joint9 args))
(:tap-handle-joint (&rest args) (forward-message-to joint10 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kitchen (&rest args) (instance* room73b2-kitchen-object :init args))
Modified: trunk/EusLisp/models/room73b2-kitchen-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kitchen-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kitchen-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -343,10 +343,10 @@
(:door-3 (&rest args) (forward-message-to joint3 args))
(:door-4 (&rest args) (forward-message-to joint4 args))
(:door-5 (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kitchen-shelf (&rest args) (instance* room73b2-kitchen-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-knife-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-knife-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-knife-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -65,10 +65,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-knife (&rest args) (instance* room73b2-knife-object :init args))
Modified: trunk/EusLisp/models/room73b2-locker1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-locker1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-locker1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -168,10 +168,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-locker1 (&rest args) (instance* room73b2-locker1-object :init args))
Modified: trunk/EusLisp/models/room73b2-locker2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-locker2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-locker2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -168,10 +168,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-locker2 (&rest args) (instance* room73b2-locker2-object :init args))
Modified: trunk/EusLisp/models/room73b2-mug-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-mug-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-mug-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -148,11 +148,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-mug-cup (&rest args) (instance* room73b2-mug-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-panelwall-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-panelwall-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-panelwall-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-panelwall-0 (&rest args) (instance* room73b2-panelwall-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-picaladder-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-picaladder-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-picaladder-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -159,9 +159,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-picaladder (&rest args) (instance* room73b2-picaladder-object :init args))
Modified: trunk/EusLisp/models/room73b2-plus-590-locker-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-plus-590-locker-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-plus-590-locker-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -206,10 +206,10 @@
(:door-left (&rest args) (forward-message-to joint0 args))
(:door-right (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-plus-590-locker (&rest args) (instance* room73b2-plus-590-locker-object :init args))
Modified: trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-sharp-52-aquostv (&rest args) (instance* room73b2-sharp-52-aquostv-object :init args))
Modified: trunk/EusLisp/models/room73b2-sponge-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sponge-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sponge-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -60,9 +60,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room73b2-sponge (&rest args) (instance* room73b2-sponge-object :init args))
Modified: trunk/EusLisp/models/room73b2-sushi-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sushi-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sushi-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -631,11 +631,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-sushi-cup (&rest args) (instance* room73b2-sushi-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-sushi-cup2-object.l
============...
[truncated message content] |
|
From: <sn...@us...> - 2013-05-01 04:37:04
|
Revision: 621
http://sourceforge.net/p/euslisp/code/621
Author: snozawa
Date: 2013-05-01 04:36:56 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket
Modified Paths:
--------------
trunk/EusLisp/models/room610-610-ground-object.l
trunk/EusLisp/models/room610-audio_shelf-object.l
trunk/EusLisp/models/room610-bears-panel-object.l
trunk/EusLisp/models/room610-cabinet-mamoru-object.l
trunk/EusLisp/models/room610-cabinet-object.l
trunk/EusLisp/models/room610-chair-object.l
trunk/EusLisp/models/room610-cupboard-object.l
trunk/EusLisp/models/room610-fridge-object.l
trunk/EusLisp/models/room610-kitchen-object.l
trunk/EusLisp/models/room610-laundry-machine-object.l
trunk/EusLisp/models/room610-shelf0-object.l
trunk/EusLisp/models/room610-shelf1-object.l
trunk/EusLisp/models/room610-shelf2-object.l
trunk/EusLisp/models/room610-sweeper-object.l
trunk/EusLisp/models/room610-table-object.l
trunk/EusLisp/models/room610-tray-object.l
trunk/EusLisp/models/room610-tv1-object.l
trunk/EusLisp/models/room610-tv3-object.l
trunk/EusLisp/models/room610-x-leg-desk-object.l
Modified: trunk/EusLisp/models/room610-610-ground-object.l
===================================================================
--- trunk/EusLisp/models/room610-610-ground-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-610-ground-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-610-ground (&rest args) (instance* room610-610-ground-object :init args))
Modified: trunk/EusLisp/models/room610-audio_shelf-object.l
===================================================================
--- trunk/EusLisp/models/room610-audio_shelf-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-audio_shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -264,10 +264,10 @@
(:drawer3 (&rest args) (forward-message-to joint2 args))
(:door-right (&rest args) (forward-message-to joint3 args))
(:door-left (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-audio_shelf (&rest args) (instance* room610-audio_shelf-object :init args))
Modified: trunk/EusLisp/models/room610-bears-panel-object.l
===================================================================
--- trunk/EusLisp/models/room610-bears-panel-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-bears-panel-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -127,9 +127,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-bears-panel (&rest args) (instance* room610-bears-panel-object :init args))
Modified: trunk/EusLisp/models/room610-cabinet-mamoru-object.l
===================================================================
--- trunk/EusLisp/models/room610-cabinet-mamoru-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cabinet-mamoru-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -158,11 +158,11 @@
(:door-upper-left (&rest args) (forward-message-to joint0 args))
(:door-upper-right (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-cabinet-mamoru (&rest args) (instance* room610-cabinet-mamoru-object :init args))
Modified: trunk/EusLisp/models/room610-cabinet-object.l
===================================================================
--- trunk/EusLisp/models/room610-cabinet-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cabinet-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -158,11 +158,11 @@
(:door-upper-left (&rest args) (forward-message-to joint0 args))
(:door-upper-right (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-cabinet (&rest args) (instance* room610-cabinet-object :init args))
Modified: trunk/EusLisp/models/room610-chair-object.l
===================================================================
--- trunk/EusLisp/models/room610-chair-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-chair-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -134,15 +134,15 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-side-larm () handle0)
- (:handle-side-rarm () handle1)
- (:handle-above-larm () handle2)
- (:handle-above-rarm () handle3)
- (:handle-above-cloth-larm () handle4)
- (:handle-above-cloth-rarm () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-side-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-side-rarm (&rest args) (forward-message-to handle1 args))
+ (:handle-above-larm (&rest args) (forward-message-to handle2 args))
+ (:handle-above-rarm (&rest args) (forward-message-to handle3 args))
+ (:handle-above-cloth-larm (&rest args) (forward-message-to handle4 args))
+ (:handle-above-cloth-rarm (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-chair (&rest args) (instance* room610-chair-object :init args))
Modified: trunk/EusLisp/models/room610-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/room610-cupboard-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cupboard-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -401,10 +401,10 @@
(:drawer4 (&rest args) (forward-message-to joint4 args))
(:door-upper-right (&rest args) (forward-message-to joint5 args))
(:door-upper-left (&rest args) (forward-message-to joint6 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-cupboard (&rest args) (instance* room610-cupboard-object :init args))
Modified: trunk/EusLisp/models/room610-fridge-object.l
===================================================================
--- trunk/EusLisp/models/room610-fridge-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-fridge-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -311,11 +311,11 @@
(:drawer-middle-left (&rest args) (forward-message-to joint3 args))
(:drawer-lower1 (&rest args) (forward-message-to joint4 args))
(:drawer-lower2 (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-fridge (&rest args) (instance* room610-fridge-object :init args))
Modified: trunk/EusLisp/models/room610-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room610-kitchen-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-kitchen-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -307,9 +307,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-kitchen (&rest args) (instance* room610-kitchen-object :init args))
Modified: trunk/EusLisp/models/room610-laundry-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundry-machine-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-laundry-machine-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -193,13 +193,13 @@
(:joint0 (&rest args) (forward-message-to joint0 args))
(:joint1 (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-contents () handle0)
- (:handle-handle-cap () handle1)
- (:handle-open-button () handle2)
- (:attention () (list ))
- (:button () (list button0))
- (:button-open () button0)
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-contents (&rest args) (forward-message-to handle0 args))
+ (:handle-handle-cap (&rest args) (forward-message-to handle1 args))
+ (:handle-open-button (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list button0) args))
+ (:button-open (&rest args) (forward-message-to button0 args))
)
(defun room610-laundry-machine (&rest args) (instance* room610-laundry-machine-object :init args))
Modified: trunk/EusLisp/models/room610-shelf0-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf0-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf0-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-shelf0 (&rest args) (instance* room610-shelf0-object :init args))
Modified: trunk/EusLisp/models/room610-shelf1-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf1-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf1-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-shelf1 (&rest args) (instance* room610-shelf1-object :init args))
Modified: trunk/EusLisp/models/room610-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf2-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf2-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-shelf2 (&rest args) (instance* room610-shelf2-object :init args))
Modified: trunk/EusLisp/models/room610-sweeper-object.l
===================================================================
--- trunk/EusLisp/models/room610-sweeper-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-sweeper-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -159,13 +159,13 @@
(:sweeper-p (&rest args) (forward-message-to joint0 args))
(:sweeper-r (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-rarm () handle0)
- (:handle-larm () handle1)
- (:handle-side-rarm () handle2)
- (:handle-side-larm () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-rarm (&rest args) (forward-message-to handle0 args))
+ (:handle-larm (&rest args) (forward-message-to handle1 args))
+ (:handle-side-rarm (&rest args) (forward-message-to handle2 args))
+ (:handle-side-larm (&rest args) (forward-message-to handle3 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-sweeper (&rest args) (instance* room610-sweeper-object :init args))
Modified: trunk/EusLisp/models/room610-table-object.l
===================================================================
--- trunk/EusLisp/models/room610-table-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-table-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -87,9 +87,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-table (&rest args) (instance* room610-table-object :init args))
Modified: trunk/EusLisp/models/room610-tray-object.l
===================================================================
--- trunk/EusLisp/models/room610-tray-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tray-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -102,15 +102,15 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-rarm-handle () handle0)
- (:handle-larm-handle () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle4 () handle4)
- (:handle-handle5 () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-rarm-handle (&rest args) (forward-message-to handle0 args))
+ (:handle-larm-handle (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle4 (&rest args) (forward-message-to handle4 args))
+ (:handle-handle5 (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-tray (&rest args) (instance* room610-tray-object :init args))
Modified: trunk/EusLisp/models/room610-tv1-object.l
===================================================================
--- trunk/EusLisp/models/room610-tv1-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tv1-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-tv1 (&rest args) (instance* room610-tv1-object :init args))
Modified: trunk/EusLisp/models/room610-tv3-object.l
===================================================================
--- trunk/EusLisp/models/room610-tv3-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tv3-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-tv3 (&rest args) (instance* room610-tv3-object :init args))
Modified: trunk/EusLisp/models/room610-x-leg-desk-object.l
===================================================================
--- trunk/EusLisp/models/room610-x-leg-desk-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-x-leg-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -121,9 +121,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-x-leg-desk (&rest args) (instance* room610-x-leg-desk-object :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-05-01 04:37:02
|
Revision: 621
http://sourceforge.net/p/euslisp/code/621
Author: snozawa
Date: 2013-05-01 04:36:56 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket
Modified Paths:
--------------
trunk/EusLisp/models/room610-610-ground-object.l
trunk/EusLisp/models/room610-audio_shelf-object.l
trunk/EusLisp/models/room610-bears-panel-object.l
trunk/EusLisp/models/room610-cabinet-mamoru-object.l
trunk/EusLisp/models/room610-cabinet-object.l
trunk/EusLisp/models/room610-chair-object.l
trunk/EusLisp/models/room610-cupboard-object.l
trunk/EusLisp/models/room610-fridge-object.l
trunk/EusLisp/models/room610-kitchen-object.l
trunk/EusLisp/models/room610-laundry-machine-object.l
trunk/EusLisp/models/room610-shelf0-object.l
trunk/EusLisp/models/room610-shelf1-object.l
trunk/EusLisp/models/room610-shelf2-object.l
trunk/EusLisp/models/room610-sweeper-object.l
trunk/EusLisp/models/room610-table-object.l
trunk/EusLisp/models/room610-tray-object.l
trunk/EusLisp/models/room610-tv1-object.l
trunk/EusLisp/models/room610-tv3-object.l
trunk/EusLisp/models/room610-x-leg-desk-object.l
Modified: trunk/EusLisp/models/room610-610-ground-object.l
===================================================================
--- trunk/EusLisp/models/room610-610-ground-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-610-ground-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-610-ground (&rest args) (instance* room610-610-ground-object :init args))
Modified: trunk/EusLisp/models/room610-audio_shelf-object.l
===================================================================
--- trunk/EusLisp/models/room610-audio_shelf-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-audio_shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -264,10 +264,10 @@
(:drawer3 (&rest args) (forward-message-to joint2 args))
(:door-right (&rest args) (forward-message-to joint3 args))
(:door-left (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-audio_shelf (&rest args) (instance* room610-audio_shelf-object :init args))
Modified: trunk/EusLisp/models/room610-bears-panel-object.l
===================================================================
--- trunk/EusLisp/models/room610-bears-panel-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-bears-panel-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -127,9 +127,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-bears-panel (&rest args) (instance* room610-bears-panel-object :init args))
Modified: trunk/EusLisp/models/room610-cabinet-mamoru-object.l
===================================================================
--- trunk/EusLisp/models/room610-cabinet-mamoru-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cabinet-mamoru-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -158,11 +158,11 @@
(:door-upper-left (&rest args) (forward-message-to joint0 args))
(:door-upper-right (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-cabinet-mamoru (&rest args) (instance* room610-cabinet-mamoru-object :init args))
Modified: trunk/EusLisp/models/room610-cabinet-object.l
===================================================================
--- trunk/EusLisp/models/room610-cabinet-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cabinet-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -158,11 +158,11 @@
(:door-upper-left (&rest args) (forward-message-to joint0 args))
(:door-upper-right (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-cabinet (&rest args) (instance* room610-cabinet-object :init args))
Modified: trunk/EusLisp/models/room610-chair-object.l
===================================================================
--- trunk/EusLisp/models/room610-chair-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-chair-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -134,15 +134,15 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-side-larm () handle0)
- (:handle-side-rarm () handle1)
- (:handle-above-larm () handle2)
- (:handle-above-rarm () handle3)
- (:handle-above-cloth-larm () handle4)
- (:handle-above-cloth-rarm () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-side-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-side-rarm (&rest args) (forward-message-to handle1 args))
+ (:handle-above-larm (&rest args) (forward-message-to handle2 args))
+ (:handle-above-rarm (&rest args) (forward-message-to handle3 args))
+ (:handle-above-cloth-larm (&rest args) (forward-message-to handle4 args))
+ (:handle-above-cloth-rarm (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-chair (&rest args) (instance* room610-chair-object :init args))
Modified: trunk/EusLisp/models/room610-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/room610-cupboard-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-cupboard-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -401,10 +401,10 @@
(:drawer4 (&rest args) (forward-message-to joint4 args))
(:door-upper-right (&rest args) (forward-message-to joint5 args))
(:door-upper-left (&rest args) (forward-message-to joint6 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-cupboard (&rest args) (instance* room610-cupboard-object :init args))
Modified: trunk/EusLisp/models/room610-fridge-object.l
===================================================================
--- trunk/EusLisp/models/room610-fridge-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-fridge-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -311,11 +311,11 @@
(:drawer-middle-left (&rest args) (forward-message-to joint3 args))
(:drawer-lower1 (&rest args) (forward-message-to joint4 args))
(:drawer-lower2 (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-fridge (&rest args) (instance* room610-fridge-object :init args))
Modified: trunk/EusLisp/models/room610-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room610-kitchen-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-kitchen-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -307,9 +307,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-kitchen (&rest args) (instance* room610-kitchen-object :init args))
Modified: trunk/EusLisp/models/room610-laundry-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundry-machine-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-laundry-machine-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -193,13 +193,13 @@
(:joint0 (&rest args) (forward-message-to joint0 args))
(:joint1 (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-contents () handle0)
- (:handle-handle-cap () handle1)
- (:handle-open-button () handle2)
- (:attention () (list ))
- (:button () (list button0))
- (:button-open () button0)
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-contents (&rest args) (forward-message-to handle0 args))
+ (:handle-handle-cap (&rest args) (forward-message-to handle1 args))
+ (:handle-open-button (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list button0) args))
+ (:button-open (&rest args) (forward-message-to button0 args))
)
(defun room610-laundry-machine (&rest args) (instance* room610-laundry-machine-object :init args))
Modified: trunk/EusLisp/models/room610-shelf0-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf0-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf0-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-shelf0 (&rest args) (instance* room610-shelf0-object :init args))
Modified: trunk/EusLisp/models/room610-shelf1-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf1-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf1-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-shelf1 (&rest args) (instance* room610-shelf1-object :init args))
Modified: trunk/EusLisp/models/room610-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room610-shelf2-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-shelf2-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -563,10 +563,10 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-shelf2 (&rest args) (instance* room610-shelf2-object :init args))
Modified: trunk/EusLisp/models/room610-sweeper-object.l
===================================================================
--- trunk/EusLisp/models/room610-sweeper-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-sweeper-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -159,13 +159,13 @@
(:sweeper-p (&rest args) (forward-message-to joint0 args))
(:sweeper-r (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-rarm () handle0)
- (:handle-larm () handle1)
- (:handle-side-rarm () handle2)
- (:handle-side-larm () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-rarm (&rest args) (forward-message-to handle0 args))
+ (:handle-larm (&rest args) (forward-message-to handle1 args))
+ (:handle-side-rarm (&rest args) (forward-message-to handle2 args))
+ (:handle-side-larm (&rest args) (forward-message-to handle3 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-sweeper (&rest args) (instance* room610-sweeper-object :init args))
Modified: trunk/EusLisp/models/room610-table-object.l
===================================================================
--- trunk/EusLisp/models/room610-table-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-table-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -87,9 +87,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-table (&rest args) (instance* room610-table-object :init args))
Modified: trunk/EusLisp/models/room610-tray-object.l
===================================================================
--- trunk/EusLisp/models/room610-tray-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tray-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -102,15 +102,15 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-rarm-handle () handle0)
- (:handle-larm-handle () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle4 () handle4)
- (:handle-handle5 () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-rarm-handle (&rest args) (forward-message-to handle0 args))
+ (:handle-larm-handle (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle4 (&rest args) (forward-message-to handle4 args))
+ (:handle-handle5 (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room610-tray (&rest args) (instance* room610-tray-object :init args))
Modified: trunk/EusLisp/models/room610-tv1-object.l
===================================================================
--- trunk/EusLisp/models/room610-tv1-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tv1-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-tv1 (&rest args) (instance* room610-tv1-object :init args))
Modified: trunk/EusLisp/models/room610-tv3-object.l
===================================================================
--- trunk/EusLisp/models/room610-tv3-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-tv3-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-tv3 (&rest args) (instance* room610-tv3-object :init args))
Modified: trunk/EusLisp/models/room610-x-leg-desk-object.l
===================================================================
--- trunk/EusLisp/models/room610-x-leg-desk-object.l 2013-05-01 04:36:00 UTC (rev 620)
+++ trunk/EusLisp/models/room610-x-leg-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
@@ -121,9 +121,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 room610-x-leg-desk (&rest args) (instance* room610-x-leg-desk-object :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-05-01 04:36:12
|
Revision: 620
http://sourceforge.net/p/euslisp/code/620
Author: snozawa
Date: 2013-05-01 04:36:00 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket
Modified Paths:
--------------
trunk/EusLisp/models/room602-3t-600-clean-locker-object.l
trunk/EusLisp/models/room602-602-ground-object.l
trunk/EusLisp/models/room602-aquos1-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l
trunk/EusLisp/models/room602-bariera-1200-corner1-object.l
trunk/EusLisp/models/room602-bariera-1200-corner7-object.l
trunk/EusLisp/models/room602-bariera-1200-left8-object.l
trunk/EusLisp/models/room602-bariera-1200-middle2-object.l
trunk/EusLisp/models/room602-bariera-1200-middle3-object.l
trunk/EusLisp/models/room602-bariera-1200-middle4-object.l
trunk/EusLisp/models/room602-bariera-1200-right5-object.l
trunk/EusLisp/models/room602-bariera-1200-right6-object.l
trunk/EusLisp/models/room602-bed-object.l
trunk/EusLisp/models/room602-chair1-object.l
trunk/EusLisp/models/room602-chair2-object.l
trunk/EusLisp/models/room602-chair3-object.l
trunk/EusLisp/models/room602-chair5-object.l
trunk/EusLisp/models/room602-chair6-object.l
trunk/EusLisp/models/room602-clock-object.l
trunk/EusLisp/models/room602-cupboard-object.l
trunk/EusLisp/models/room602-desk5-object.l
trunk/EusLisp/models/room602-desk6-object.l
trunk/EusLisp/models/room602-desk7-object.l
trunk/EusLisp/models/room602-door-left-object.l
trunk/EusLisp/models/room602-door-object.l
trunk/EusLisp/models/room602-door-right-object.l
trunk/EusLisp/models/room602-fridge-object.l
trunk/EusLisp/models/room602-kitchen-object.l
trunk/EusLisp/models/room602-laundry-machine-object.l
trunk/EusLisp/models/room602-plasmatv1-object.l
trunk/EusLisp/models/room602-plasmatv2-object.l
trunk/EusLisp/models/room602-square-600-closet-object.l
trunk/EusLisp/models/room602-tableware-shelf1-object.l
trunk/EusLisp/models/room602-tableware-shelf2-object.l
trunk/EusLisp/models/room602-tableware-shelf3-object.l
trunk/EusLisp/models/room602-tableware-shelf4-object.l
trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l
trunk/EusLisp/models/room602-trashbox0-object.l
trunk/EusLisp/models/room602-trashbox1-object.l
trunk/EusLisp/models/room602-trashbox2-object.l
trunk/EusLisp/models/room602-trashbox3-object.l
trunk/EusLisp/models/room602-tray1-object.l
trunk/EusLisp/models/room602-uchida-shelf-object.l
trunk/EusLisp/models/room602-uchida-shelf2-object.l
trunk/EusLisp/models/room602-wheelchair-object.l
Modified: trunk/EusLisp/models/room602-3t-600-clean-locker-object.l
===================================================================
--- trunk/EusLisp/models/room602-3t-600-clean-locker-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-3t-600-clean-locker-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -149,10 +149,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-3t-600-clean-locker (&rest args) (instance* room602-3t-600-clean-locker-object :init args))
Modified: trunk/EusLisp/models/room602-602-ground-object.l
===================================================================
--- trunk/EusLisp/models/room602-602-ground-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-602-ground-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-602-ground (&rest args) (instance* room602-602-ground-object :init args))
Modified: trunk/EusLisp/models/room602-aquos1-object.l
===================================================================
--- trunk/EusLisp/models/room602-aquos1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-aquos1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-aquos1 (&rest args) (instance* room602-aquos1-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-0 (&rest args) (instance* room602-askul-1200x700-desk-0-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-1 (&rest args) (instance* room602-askul-1200x700-desk-1-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-2 (&rest args) (instance* room602-askul-1200x700-desk-2-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-3 (&rest args) (instance* room602-askul-1200x700-desk-3-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-4 (&rest args) (instance* room602-askul-1200x700-desk-4-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-5 (&rest args) (instance* room602-askul-1200x700-desk-5-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-6 (&rest args) (instance* room602-askul-1200x700-desk-6-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-7 (&rest args) (instance* room602-askul-1200x700-desk-7-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-8 (&rest args) (instance* room602-askul-1200x700-desk-8-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-corner1-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-corner1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-corner1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-corner1 (&rest args) (instance* room602-bariera-1200-corner1-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-corner7-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-corner7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-corner7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-corner7 (&rest args) (instance* room602-bariera-1200-corner7-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-left8-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-left8-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-left8-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -310,10 +310,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-left8 (&rest args) (instance* room602-bariera-1200-left8-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-middle2 (&rest args) (instance* room602-bariera-1200-middle2-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle3-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-middle3 (&rest args) (instance* room602-bariera-1200-middle3-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle4-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-middle4 (&rest args) (instance* room602-bariera-1200-middle4-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-right5-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-right5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-right5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-right5 (&rest args) (instance* room602-bariera-1200-right5-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-right6-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-right6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-right6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-right6 (&rest args) (instance* room602-bariera-1200-right6-object :init args))
Modified: trunk/EusLisp/models/room602-bed-object.l
===================================================================
--- trunk/EusLisp/models/room602-bed-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bed-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -840,9 +840,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-bed (&rest args) (instance* room602-bed-object :init args))
Modified: trunk/EusLisp/models/room602-chair1-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair1 (&rest args) (instance* room602-chair1-object :init args))
Modified: trunk/EusLisp/models/room602-chair2-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair2 (&rest args) (instance* room602-chair2-object :init args))
Modified: trunk/EusLisp/models/room602-chair3-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair3 (&rest args) (instance* room602-chair3-object :init args))
Modified: trunk/EusLisp/models/room602-chair5-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair5 (&rest args) (instance* room602-chair5-object :init args))
Modified: trunk/EusLisp/models/room602-chair6-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair6 (&rest args) (instance* room602-chair6-object :init args))
Modified: trunk/EusLisp/models/room602-clock-object.l
===================================================================
--- trunk/EusLisp/models/room602-clock-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-clock-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -280,9 +280,9 @@
(:hour-joint (&rest args) (forward-message-to joint0 args))
(:minute-joint (&rest args) (forward-message-to joint1 args))
(:second-joint (&rest args) (forward-message-to joint2 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-clock (&rest args) (instance* room602-clock-object :init args))
Modified: trunk/EusLisp/models/room602-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/room602-cupboard-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-cupboard-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -312,10 +312,10 @@
(:drawer (&rest args) (forward-message-to joint2 args))
(:door-lower-right (&rest args) (forward-message-to joint3 args))
(:door-lower-left (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-cupboard (&rest args) (instance* room602-cupboard-object :init args))
Modified: trunk/EusLisp/models/room602-desk5-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-desk5 (&rest args) (instance* room602-desk5-object :init args))
Modified: trunk/EusLisp/models/room602-desk6-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-desk6 (&rest args) (instance* room602-desk6-object :init args))
Modified: trunk/EusLisp/models/room602-desk7-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-desk7 (&rest args) (instance* room602-desk7-object :init args))
Modified: trunk/EusLisp/models/room602-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-left-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-left-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -74,9 +74,9 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-door-left (&rest args) (instance* room602-door-left-object :init args))
Modified: trunk/EusLisp/models/room602-door-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -74,9 +74,9 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-door (&rest args) (instance* room602-door-object :init args))
Modified: trunk/EusLisp/models/room602-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-right-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-right-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -173,13 +173,13 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
(:lock (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-door-side () handle0)
- (:handle-rear-knob () handle1)
- (:handle-front-knob () handle2)
- (:handle-lock () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-door-side (&rest args) (forward-message-to handle0 args))
+ (:handle-rear-knob (&rest args) (forward-message-to handle1 args))
+ (:handle-front-knob (&rest args) (forward-message-to handle2 args))
+ (:handle-lock (&rest args) (forward-message-to handle3 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-door-right (&rest args) (instance* room602-door-right-object :init args))
Modified: trunk/EusLisp/models/room602-fridge-object.l
===================================================================
--- trunk/EusLisp/models/room602-fridge-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-fridge-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -357,12 +357,12 @@
(:left-freezer (&rest args) (forward-message-to joint3 args))
(:right-freezer (&rest args) (forward-message-to joint4 args))
(:bottom-drawer (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-vegetable-drawer () handle0)
- (:handle-right-door () handle1)
- (:handle-left-door () handle2)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-vegetable-drawer (&rest args) (forward-message-to handle0 args))
+ (:handle-right-door (&rest args) (forward-message-to handle1 args))
+ (:handle-left-door (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-fridge (&rest args) (instance* room602-fridge-object :init args))
Modified: trunk/EusLisp/models/room602-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room602-kitchen-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-kitchen-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -1405,14 +1405,14 @@
(:button2-body-joint-2 (&rest args) (forward-message-to joint15 args))
(:tap-tube-joint (&rest args) (forward-message-to joint16 args))
(:tap-handle-joint (&rest args) (forward-message-to joint17 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle-of-tap () handle4)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle-of-tap (&rest args) (forward-message-to handle4 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-kitchen (&rest args) (instance* room602-kitchen-object :init args))
Modified: trunk/EusLisp/models/room602-laundry-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundry-machine-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-laundry-machine-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -193,13 +193,13 @@
(:joint0 (&rest args) (forward-message-to joint0 args))
(:joint1 (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-contents () handle0)
- (:handle-handle-cap () handle1)
- (:handle-open-button () handle2)
- (:attention () (list ))
- (:button () (list button0))
- (:button-open () button0)
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-contents (&rest args) (forward-message-to handle0 args))
+ (:handle-handle-cap (&rest args) (forward-message-to handle1 args))
+ (:handle-open-button (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list button0) args))
+ (:button-open (&rest args) (forward-message-to button0 args))
)
(defun room602-laundry-machine (&rest args) (instance* room602-laundry-machine-object :init args))
Modified: trunk/EusLisp/models/room602-plasmatv1-object.l
===================================================================
--- trunk/EusLisp/models/room602-plasmatv1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-plasmatv1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -117,9 +117,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-plasmatv1 (&rest args) (instance* room602-plasmatv1-object :init args))
Modified: trunk/EusLisp/models/room602-plasmatv2-object.l
===================================================================
--- trunk/EusLisp/models/room602-plasmatv2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-plasmatv2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -117,9 +117,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-plasmatv2 (&rest args) (instance* room602-plasmatv2-object :init args))
Modified: trunk/EusLisp/models/room602-square-600-closet-object.l
===================================================================
--- trunk/EusLisp/models/room602-square-600-closet-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-square-600-closet-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -499,15 +499,15 @@
(:drawer2 (&rest args) (forward-message-to joint3 args))
(:drawer3 (&rest args) (forward-message-to joint4 args))
(:drawer4 (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-door-left-handle () handle0)
- (:handle-door-right-handle () handle1)
- (:handle-drawer1-handle () handle2)
- (:handle-drawer2-handle () handle3)
- (:handle-drawer3-handle () handle4)
- (:handle-drawer4-handle () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-door-left-handle (&rest args) (forward-message-to handle0 args))
+ (:handle-door-right-handle (&rest args) (forward-message-to handle1 args))
+ (:handle-drawer1-handle (&rest args) (forward-message-to handle2 args))
+ (:handle-drawer2-handle (&rest args) (forward-message-to handle3 args))
+ (:handle-drawer3-handle (&rest args) (forward-message-to handle4 args))
+ (:handle-drawer4-handle (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-square-600-closet (&rest args) (instance* room602-square-600-closet-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf1-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tableware-shelf1 (&rest args) (instance* room602-tableware-shelf1-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -110,10 +110,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tableware-shelf2 (&rest args) (instance* room602-tableware-shelf2-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf3-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tableware-shelf3 (&rest args) (instance* room602-tableware-shelf3-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf4-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tableware-shelf4 (&rest args) (instance* room602-tableware-shelf4-object :init args))
Modified: trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l
===================================================================
--- trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -222,11 +222,11 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1))
- (:handle-door () handle0)
- (:handle-knob () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-door (&rest args) (forward-message-to handle0 args))
+ (:handle-knob (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-toshiba-microwave-oven (&rest args) (instance* room602-toshiba-microwave-oven-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox0-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox0-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox0-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-trashbox0 (&rest args) (instance* room602-trashbox0-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox1-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-trashbox1 (&rest args) (instance* room602-trashbox1-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox2-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-trashbox2 (&rest args) (instance* room602-trashbox2-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox3-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-trashbox3 (&rest args) (instance* room602-trashbox3-object :init args))
Modified: trunk/EusLisp/models/room602-tray1-object.l
===================================================================
--- trunk/EusLisp/models/room602-tray1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tray1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -122,15 +122,15 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-rarm-handle () handle0)
- (:handle-larm-handle () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle4 () handle4)
- (:handle-handle5 () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-rarm-handle (&rest args) (forward-message-to handle0 args))
+ (:handle-larm-handle (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle4 (&rest args) (forward-message-to handle4 args))
+ (:handle-handle5 (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tray1 (&rest args) (instance* room602-tray1-object :init args))
Modified: trunk/EusLisp/models/room602-uchida-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room602-uchida-shelf-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-uchida-shelf-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -128,10 +128,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-uchida-shelf (&rest args) (instance* room602-uchida-shelf-object :init args))
Modified: trunk/EusLisp/models/room602-uchida-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room602-uchida-shelf2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-uchida-shelf2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -128,10 +128,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-uchida-shelf2 (&rest args) (instance* room602-uchida-shelf2-object :init args))
Modified: trunk/EusLisp/models/room602-wheelchair-object.l
===================================================================
--- trunk/EusLisp/models/room602-wheelchair-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-wheelchair-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -1089,22 +1089,22 @@
(:right-large (&rest args) (forward-message-to joint1 args))
(:left-small (&rest args) (forward-message-to joint2 args))
(:right-small (&rest args) (forward-message-to joint3 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7 handle8 handle9 handle10 handle11 handle12))
- (:handle-lbar () handle0)
- (:handle-rbar () handle1)
- (:handle-bar () handle2)
- (:handle-stick () handle3)
- (:handle-rgrip () handle4)
- (:handle-lgrip () handle5)
- (:handle-rhandrail-box () handle6)
- (:handle-lhandrail-box () handle7)
- (:handle-rhandrail () handle8)
- (:handle-lhandrail () handle9)
- (:handle-rpedal () handle10)
- (:handle-lpedal () handle11)
- (:handle-seat () handle12)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7 handle8 handle9 handle10 handle11 handle12) args))
+ (:handle-lbar (&rest args) (forward-message-to handle0 args))
+ (:handle-rbar (&rest args) (forward-message-to handle1 args))
+ (:handle-bar (&rest args) (forward-message-to handle2 args))
+ (:handle-stick (&rest args) (forward-message-to handle3 args))
+ (:handle-rgrip (&rest args) (forward-message-to handle4 args))
+ (:handle-lgrip (&rest args) (forward-message-to handle5 args))
+ (:handle-rhandrail-box (&rest args) (forward-message-to handle6 args))
+ (:handle-lhandrail-box (&rest args) (forward-message-to handle7 args))
+ (:handle-rhandrail (&rest args) (forward-message-to handle8 args))
+ (:handle-lhandrail (&rest args) (forward-message-to handle9 args))
+ (:handle-rpedal (&rest args) (forward-message-to handle10 args))
+ (:handle-lpedal (&rest args) (forward-message-to handle11 args))
+ (:handle-seat (&rest args) (forward-message-to handle12 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-wheelchair (&rest args) (instance* room602-wheelchair-object :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-05-01 04:36:10
|
Revision: 620
http://sourceforge.net/p/euslisp/code/620
Author: snozawa
Date: 2013-05-01 04:36:00 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket
Modified Paths:
--------------
trunk/EusLisp/models/room602-3t-600-clean-locker-object.l
trunk/EusLisp/models/room602-602-ground-object.l
trunk/EusLisp/models/room602-aquos1-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l
trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l
trunk/EusLisp/models/room602-bariera-1200-corner1-object.l
trunk/EusLisp/models/room602-bariera-1200-corner7-object.l
trunk/EusLisp/models/room602-bariera-1200-left8-object.l
trunk/EusLisp/models/room602-bariera-1200-middle2-object.l
trunk/EusLisp/models/room602-bariera-1200-middle3-object.l
trunk/EusLisp/models/room602-bariera-1200-middle4-object.l
trunk/EusLisp/models/room602-bariera-1200-right5-object.l
trunk/EusLisp/models/room602-bariera-1200-right6-object.l
trunk/EusLisp/models/room602-bed-object.l
trunk/EusLisp/models/room602-chair1-object.l
trunk/EusLisp/models/room602-chair2-object.l
trunk/EusLisp/models/room602-chair3-object.l
trunk/EusLisp/models/room602-chair5-object.l
trunk/EusLisp/models/room602-chair6-object.l
trunk/EusLisp/models/room602-clock-object.l
trunk/EusLisp/models/room602-cupboard-object.l
trunk/EusLisp/models/room602-desk5-object.l
trunk/EusLisp/models/room602-desk6-object.l
trunk/EusLisp/models/room602-desk7-object.l
trunk/EusLisp/models/room602-door-left-object.l
trunk/EusLisp/models/room602-door-object.l
trunk/EusLisp/models/room602-door-right-object.l
trunk/EusLisp/models/room602-fridge-object.l
trunk/EusLisp/models/room602-kitchen-object.l
trunk/EusLisp/models/room602-laundry-machine-object.l
trunk/EusLisp/models/room602-plasmatv1-object.l
trunk/EusLisp/models/room602-plasmatv2-object.l
trunk/EusLisp/models/room602-square-600-closet-object.l
trunk/EusLisp/models/room602-tableware-shelf1-object.l
trunk/EusLisp/models/room602-tableware-shelf2-object.l
trunk/EusLisp/models/room602-tableware-shelf3-object.l
trunk/EusLisp/models/room602-tableware-shelf4-object.l
trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l
trunk/EusLisp/models/room602-trashbox0-object.l
trunk/EusLisp/models/room602-trashbox1-object.l
trunk/EusLisp/models/room602-trashbox2-object.l
trunk/EusLisp/models/room602-trashbox3-object.l
trunk/EusLisp/models/room602-tray1-object.l
trunk/EusLisp/models/room602-uchida-shelf-object.l
trunk/EusLisp/models/room602-uchida-shelf2-object.l
trunk/EusLisp/models/room602-wheelchair-object.l
Modified: trunk/EusLisp/models/room602-3t-600-clean-locker-object.l
===================================================================
--- trunk/EusLisp/models/room602-3t-600-clean-locker-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-3t-600-clean-locker-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -149,10 +149,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-3t-600-clean-locker (&rest args) (instance* room602-3t-600-clean-locker-object :init args))
Modified: trunk/EusLisp/models/room602-602-ground-object.l
===================================================================
--- trunk/EusLisp/models/room602-602-ground-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-602-ground-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-602-ground (&rest args) (instance* room602-602-ground-object :init args))
Modified: trunk/EusLisp/models/room602-aquos1-object.l
===================================================================
--- trunk/EusLisp/models/room602-aquos1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-aquos1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-aquos1 (&rest args) (instance* room602-aquos1-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-0-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-0 (&rest args) (instance* room602-askul-1200x700-desk-0-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-1 (&rest args) (instance* room602-askul-1200x700-desk-1-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-2 (&rest args) (instance* room602-askul-1200x700-desk-2-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-3 (&rest args) (instance* room602-askul-1200x700-desk-3-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-4 (&rest args) (instance* room602-askul-1200x700-desk-4-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-5 (&rest args) (instance* room602-askul-1200x700-desk-5-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-6 (&rest args) (instance* room602-askul-1200x700-desk-6-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-7 (&rest args) (instance* room602-askul-1200x700-desk-7-object :init args))
Modified: trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l
===================================================================
--- trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-askul-1200x700-desk-8-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-askul-1200x700-desk-8 (&rest args) (instance* room602-askul-1200x700-desk-8-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-corner1-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-corner1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-corner1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-corner1 (&rest args) (instance* room602-bariera-1200-corner1-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-corner7-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-corner7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-corner7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-corner7 (&rest args) (instance* room602-bariera-1200-corner7-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-left8-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-left8-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-left8-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -310,10 +310,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-left8 (&rest args) (instance* room602-bariera-1200-left8-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-middle2 (&rest args) (instance* room602-bariera-1200-middle2-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle3-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-middle3 (&rest args) (instance* room602-bariera-1200-middle3-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-middle4-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-middle4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-middle4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-middle4 (&rest args) (instance* room602-bariera-1200-middle4-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-right5-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-right5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-right5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-right5 (&rest args) (instance* room602-bariera-1200-right5-object :init args))
Modified: trunk/EusLisp/models/room602-bariera-1200-right6-object.l
===================================================================
--- trunk/EusLisp/models/room602-bariera-1200-right6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bariera-1200-right6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-bariera-1200-right6 (&rest args) (instance* room602-bariera-1200-right6-object :init args))
Modified: trunk/EusLisp/models/room602-bed-object.l
===================================================================
--- trunk/EusLisp/models/room602-bed-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-bed-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -840,9 +840,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-bed (&rest args) (instance* room602-bed-object :init args))
Modified: trunk/EusLisp/models/room602-chair1-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair1 (&rest args) (instance* room602-chair1-object :init args))
Modified: trunk/EusLisp/models/room602-chair2-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair2 (&rest args) (instance* room602-chair2-object :init args))
Modified: trunk/EusLisp/models/room602-chair3-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair3 (&rest args) (instance* room602-chair3-object :init args))
Modified: trunk/EusLisp/models/room602-chair5-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair5 (&rest args) (instance* room602-chair5-object :init args))
Modified: trunk/EusLisp/models/room602-chair6-object.l
===================================================================
--- trunk/EusLisp/models/room602-chair6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-chair6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -275,11 +275,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-chair6 (&rest args) (instance* room602-chair6-object :init args))
Modified: trunk/EusLisp/models/room602-clock-object.l
===================================================================
--- trunk/EusLisp/models/room602-clock-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-clock-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -280,9 +280,9 @@
(:hour-joint (&rest args) (forward-message-to joint0 args))
(:minute-joint (&rest args) (forward-message-to joint1 args))
(:second-joint (&rest args) (forward-message-to joint2 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-clock (&rest args) (instance* room602-clock-object :init args))
Modified: trunk/EusLisp/models/room602-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/room602-cupboard-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-cupboard-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -312,10 +312,10 @@
(:drawer (&rest args) (forward-message-to joint2 args))
(:door-lower-right (&rest args) (forward-message-to joint3 args))
(:door-lower-left (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-cupboard (&rest args) (instance* room602-cupboard-object :init args))
Modified: trunk/EusLisp/models/room602-desk5-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk5-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk5-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-desk5 (&rest args) (instance* room602-desk5-object :init args))
Modified: trunk/EusLisp/models/room602-desk6-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk6-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk6-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-desk6 (&rest args) (instance* room602-desk6-object :init args))
Modified: trunk/EusLisp/models/room602-desk7-object.l
===================================================================
--- trunk/EusLisp/models/room602-desk7-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-desk7-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-desk7 (&rest args) (instance* room602-desk7-object :init args))
Modified: trunk/EusLisp/models/room602-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-left-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-left-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -74,9 +74,9 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-door-left (&rest args) (instance* room602-door-left-object :init args))
Modified: trunk/EusLisp/models/room602-door-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -74,9 +74,9 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-door (&rest args) (instance* room602-door-object :init args))
Modified: trunk/EusLisp/models/room602-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room602-door-right-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-door-right-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -173,13 +173,13 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
(:lock (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-door-side () handle0)
- (:handle-rear-knob () handle1)
- (:handle-front-knob () handle2)
- (:handle-lock () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-door-side (&rest args) (forward-message-to handle0 args))
+ (:handle-rear-knob (&rest args) (forward-message-to handle1 args))
+ (:handle-front-knob (&rest args) (forward-message-to handle2 args))
+ (:handle-lock (&rest args) (forward-message-to handle3 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-door-right (&rest args) (instance* room602-door-right-object :init args))
Modified: trunk/EusLisp/models/room602-fridge-object.l
===================================================================
--- trunk/EusLisp/models/room602-fridge-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-fridge-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -357,12 +357,12 @@
(:left-freezer (&rest args) (forward-message-to joint3 args))
(:right-freezer (&rest args) (forward-message-to joint4 args))
(:bottom-drawer (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-vegetable-drawer () handle0)
- (:handle-right-door () handle1)
- (:handle-left-door () handle2)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-vegetable-drawer (&rest args) (forward-message-to handle0 args))
+ (:handle-right-door (&rest args) (forward-message-to handle1 args))
+ (:handle-left-door (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-fridge (&rest args) (instance* room602-fridge-object :init args))
Modified: trunk/EusLisp/models/room602-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room602-kitchen-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-kitchen-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -1405,14 +1405,14 @@
(:button2-body-joint-2 (&rest args) (forward-message-to joint15 args))
(:tap-tube-joint (&rest args) (forward-message-to joint16 args))
(:tap-handle-joint (&rest args) (forward-message-to joint17 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle-of-tap () handle4)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle-of-tap (&rest args) (forward-message-to handle4 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-kitchen (&rest args) (instance* room602-kitchen-object :init args))
Modified: trunk/EusLisp/models/room602-laundry-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundry-machine-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-laundry-machine-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -193,13 +193,13 @@
(:joint0 (&rest args) (forward-message-to joint0 args))
(:joint1 (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-contents () handle0)
- (:handle-handle-cap () handle1)
- (:handle-open-button () handle2)
- (:attention () (list ))
- (:button () (list button0))
- (:button-open () button0)
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-contents (&rest args) (forward-message-to handle0 args))
+ (:handle-handle-cap (&rest args) (forward-message-to handle1 args))
+ (:handle-open-button (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list button0) args))
+ (:button-open (&rest args) (forward-message-to button0 args))
)
(defun room602-laundry-machine (&rest args) (instance* room602-laundry-machine-object :init args))
Modified: trunk/EusLisp/models/room602-plasmatv1-object.l
===================================================================
--- trunk/EusLisp/models/room602-plasmatv1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-plasmatv1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -117,9 +117,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-plasmatv1 (&rest args) (instance* room602-plasmatv1-object :init args))
Modified: trunk/EusLisp/models/room602-plasmatv2-object.l
===================================================================
--- trunk/EusLisp/models/room602-plasmatv2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-plasmatv2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -117,9 +117,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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-plasmatv2 (&rest args) (instance* room602-plasmatv2-object :init args))
Modified: trunk/EusLisp/models/room602-square-600-closet-object.l
===================================================================
--- trunk/EusLisp/models/room602-square-600-closet-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-square-600-closet-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -499,15 +499,15 @@
(:drawer2 (&rest args) (forward-message-to joint3 args))
(:drawer3 (&rest args) (forward-message-to joint4 args))
(:drawer4 (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-door-left-handle () handle0)
- (:handle-door-right-handle () handle1)
- (:handle-drawer1-handle () handle2)
- (:handle-drawer2-handle () handle3)
- (:handle-drawer3-handle () handle4)
- (:handle-drawer4-handle () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-door-left-handle (&rest args) (forward-message-to handle0 args))
+ (:handle-door-right-handle (&rest args) (forward-message-to handle1 args))
+ (:handle-drawer1-handle (&rest args) (forward-message-to handle2 args))
+ (:handle-drawer2-handle (&rest args) (forward-message-to handle3 args))
+ (:handle-drawer3-handle (&rest args) (forward-message-to handle4 args))
+ (:handle-drawer4-handle (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-square-600-closet (&rest args) (instance* room602-square-600-closet-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf1-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tableware-shelf1 (&rest args) (instance* room602-tableware-shelf1-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -110,10 +110,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tableware-shelf2 (&rest args) (instance* room602-tableware-shelf2-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf3-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tableware-shelf3 (&rest args) (instance* room602-tableware-shelf3-object :init args))
Modified: trunk/EusLisp/models/room602-tableware-shelf4-object.l
===================================================================
--- trunk/EusLisp/models/room602-tableware-shelf4-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tableware-shelf4-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -155,10 +155,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tableware-shelf4 (&rest args) (instance* room602-tableware-shelf4-object :init args))
Modified: trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l
===================================================================
--- trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-toshiba-microwave-oven-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -222,11 +222,11 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1))
- (:handle-door () handle0)
- (:handle-knob () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-door (&rest args) (forward-message-to handle0 args))
+ (:handle-knob (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-toshiba-microwave-oven (&rest args) (instance* room602-toshiba-microwave-oven-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox0-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox0-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox0-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-trashbox0 (&rest args) (instance* room602-trashbox0-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox1-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-trashbox1 (&rest args) (instance* room602-trashbox1-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox2-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-trashbox2 (&rest args) (instance* room602-trashbox2-object :init args))
Modified: trunk/EusLisp/models/room602-trashbox3-object.l
===================================================================
--- trunk/EusLisp/models/room602-trashbox3-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-trashbox3-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -106,10 +106,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-trashbox3 (&rest args) (instance* room602-trashbox3-object :init args))
Modified: trunk/EusLisp/models/room602-tray1-object.l
===================================================================
--- trunk/EusLisp/models/room602-tray1-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-tray1-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -122,15 +122,15 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-rarm-handle () handle0)
- (:handle-larm-handle () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle4 () handle4)
- (:handle-handle5 () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-rarm-handle (&rest args) (forward-message-to handle0 args))
+ (:handle-larm-handle (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle4 (&rest args) (forward-message-to handle4 args))
+ (:handle-handle5 (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-tray1 (&rest args) (instance* room602-tray1-object :init args))
Modified: trunk/EusLisp/models/room602-uchida-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room602-uchida-shelf-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-uchida-shelf-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -128,10 +128,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-uchida-shelf (&rest args) (instance* room602-uchida-shelf-object :init args))
Modified: trunk/EusLisp/models/room602-uchida-shelf2-object.l
===================================================================
--- trunk/EusLisp/models/room602-uchida-shelf2-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-uchida-shelf2-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -128,10 +128,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-uchida-shelf2 (&rest args) (instance* room602-uchida-shelf2-object :init args))
Modified: trunk/EusLisp/models/room602-wheelchair-object.l
===================================================================
--- trunk/EusLisp/models/room602-wheelchair-object.l 2013-05-01 04:33:15 UTC (rev 619)
+++ trunk/EusLisp/models/room602-wheelchair-object.l 2013-05-01 04:36:00 UTC (rev 620)
@@ -1089,22 +1089,22 @@
(:right-large (&rest args) (forward-message-to joint1 args))
(:left-small (&rest args) (forward-message-to joint2 args))
(:right-small (&rest args) (forward-message-to joint3 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7 handle8 handle9 handle10 handle11 handle12))
- (:handle-lbar () handle0)
- (:handle-rbar () handle1)
- (:handle-bar () handle2)
- (:handle-stick () handle3)
- (:handle-rgrip () handle4)
- (:handle-lgrip () handle5)
- (:handle-rhandrail-box () handle6)
- (:handle-lhandrail-box () handle7)
- (:handle-rhandrail () handle8)
- (:handle-lhandrail () handle9)
- (:handle-rpedal () handle10)
- (:handle-lpedal () handle11)
- (:handle-seat () handle12)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7 handle8 handle9 handle10 handle11 handle12) args))
+ (:handle-lbar (&rest args) (forward-message-to handle0 args))
+ (:handle-rbar (&rest args) (forward-message-to handle1 args))
+ (:handle-bar (&rest args) (forward-message-to handle2 args))
+ (:handle-stick (&rest args) (forward-message-to handle3 args))
+ (:handle-rgrip (&rest args) (forward-message-to handle4 args))
+ (:handle-lgrip (&rest args) (forward-message-to handle5 args))
+ (:handle-rhandrail-box (&rest args) (forward-message-to handle6 args))
+ (:handle-lhandrail-box (&rest args) (forward-message-to handle7 args))
+ (:handle-rhandrail (&rest args) (forward-message-to handle8 args))
+ (:handle-lhandrail (&rest args) (forward-message-to handle9 args))
+ (:handle-rpedal (&rest args) (forward-message-to handle10 args))
+ (:handle-lpedal (&rest args) (forward-message-to handle11 args))
+ (:handle-seat (&rest args) (forward-message-to handle12 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room602-wheelchair (&rest args) (instance* room602-wheelchair-object :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-05-01 04:33:22
|
Revision: 619
http://sourceforge.net/p/euslisp/code/619
Author: snozawa
Date: 2013-05-01 04:33:15 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket
Modified Paths:
--------------
trunk/EusLisp/models/desk-object.l
Modified: trunk/EusLisp/models/desk-object.l
===================================================================
--- trunk/EusLisp/models/desk-object.l 2013-04-22 15:02:00 UTC (rev 618)
+++ trunk/EusLisp/models/desk-object.l 2013-05-01 04:33:15 UTC (rev 619)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 desk (&rest args) (instance* desk-object :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-05-01 04:33:20
|
Revision: 619
http://sourceforge.net/p/euslisp/code/619
Author: snozawa
Date: 2013-05-01 04:33:15 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket
Modified Paths:
--------------
trunk/EusLisp/models/desk-object.l
Modified: trunk/EusLisp/models/desk-object.l
===================================================================
--- trunk/EusLisp/models/desk-object.l 2013-04-22 15:02:00 UTC (rev 618)
+++ trunk/EusLisp/models/desk-object.l 2013-05-01 04:33:15 UTC (rev 619)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (: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 desk (&rest args) (instance* desk-object :init args))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <k-...@us...> - 2013-04-22 15:02:09
|
Revision: 618
http://sourceforge.net/p/euslisp/code/618
Author: k-okada
Date: 2013-04-22 15:02:00 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
use searched-edgeq, impremented as convex-hull-3d-ol of primptpatch.l
Modified Paths:
--------------
trunk/EusLisp/lisp/geo/primt.l
Modified: trunk/EusLisp/lisp/geo/primt.l
===================================================================
--- trunk/EusLisp/lisp/geo/primt.l 2013-04-22 13:10:57 UTC (rev 617)
+++ trunk/EusLisp/lisp/geo/primt.l 2013-04-22 15:02:00 UTC (rev 618)
@@ -350,6 +350,7 @@
(newbody)
(faceq)
(edgeq)
+ (searched-edgeq)
(searched-v)
)
(setq *points* vertices
@@ -396,16 +397,29 @@
p1 p2 p3 (set-difference *vertices* searched-v :key #'car)))
(setq newedges (send newface :edges))
(dolist (ne newedges)
- (if (memq ne edgeq)
- (progn
- (setq edgeq (delete ne edgeq))
- (let ((ver))
- (dolist (v (send ne :vertices))
- (setq ver (find v *vertices* :key #'car))
- (if (enclosed-vertexp ver)
- (setq *vertices* (delete ver *vertices* :count 1 )
- )))))
- (setq edgeq (append edgeq (list ne)))))
+ (cond ((memq ne edgeq)
+ (setq edgeq (delete ne edgeq))
+ (setq searched-edgeq (cons ne searched-edgeq))
+ (let ((ver))
+ (dolist (v (send ne :vertices))
+ (setq ver (find v *vertices* :key #'car))
+ (if (enclosed-vertexp ver)
+ (setq *vertices* (delete ver *vertices* :count 1)))
+ ))
+ )
+ ((memq ne searched-edgeq)
+ (format *error-output* "~%re-searched edge:~A~%" ne)
+ (let ((*coplanar-threshold*
+ (/ *coplanar-threshold* 2)))
+ (format *error-output*
+ "thd:~A->~A~%" (* 2 *coplanar-threshold*)
+ *coplanar-threshold*)
+ (if (< *coplanar-threshold* 0.00001)
+ (error "edgeq error!!")
+ (return-from convex-hull-3d
+ (convex-hull-3d vertices)))))
+ (t
+ (setq edgeq (append edgeq (list ne))))))
(setq faceq (cons newface faceq))
(nconc *faces* (list newface))
(if *debug* (print (length *faces* )))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <k-...@us...> - 2013-04-22 15:02:06
|
Revision: 618
http://sourceforge.net/p/euslisp/code/618
Author: k-okada
Date: 2013-04-22 15:02:00 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
use searched-edgeq, impremented as convex-hull-3d-ol of primptpatch.l
Modified Paths:
--------------
trunk/EusLisp/lisp/geo/primt.l
Modified: trunk/EusLisp/lisp/geo/primt.l
===================================================================
--- trunk/EusLisp/lisp/geo/primt.l 2013-04-22 13:10:57 UTC (rev 617)
+++ trunk/EusLisp/lisp/geo/primt.l 2013-04-22 15:02:00 UTC (rev 618)
@@ -350,6 +350,7 @@
(newbody)
(faceq)
(edgeq)
+ (searched-edgeq)
(searched-v)
)
(setq *points* vertices
@@ -396,16 +397,29 @@
p1 p2 p3 (set-difference *vertices* searched-v :key #'car)))
(setq newedges (send newface :edges))
(dolist (ne newedges)
- (if (memq ne edgeq)
- (progn
- (setq edgeq (delete ne edgeq))
- (let ((ver))
- (dolist (v (send ne :vertices))
- (setq ver (find v *vertices* :key #'car))
- (if (enclosed-vertexp ver)
- (setq *vertices* (delete ver *vertices* :count 1 )
- )))))
- (setq edgeq (append edgeq (list ne)))))
+ (cond ((memq ne edgeq)
+ (setq edgeq (delete ne edgeq))
+ (setq searched-edgeq (cons ne searched-edgeq))
+ (let ((ver))
+ (dolist (v (send ne :vertices))
+ (setq ver (find v *vertices* :key #'car))
+ (if (enclosed-vertexp ver)
+ (setq *vertices* (delete ver *vertices* :count 1)))
+ ))
+ )
+ ((memq ne searched-edgeq)
+ (format *error-output* "~%re-searched edge:~A~%" ne)
+ (let ((*coplanar-threshold*
+ (/ *coplanar-threshold* 2)))
+ (format *error-output*
+ "thd:~A->~A~%" (* 2 *coplanar-threshold*)
+ *coplanar-threshold*)
+ (if (< *coplanar-threshold* 0.00001)
+ (error "edgeq error!!")
+ (return-from convex-hull-3d
+ (convex-hull-3d vertices)))))
+ (t
+ (setq edgeq (append edgeq (list ne))))))
(setq faceq (cons newface faceq))
(nconc *faces* (list newface))
(if *debug* (print (length *faces* )))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-04-22 13:11:13
|
Revision: 617
http://sourceforge.net/p/euslisp/code/617
Author: snozawa
Date: 2013-04-22 13:10:57 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
rename laundary -> laundry
Modified Paths:
--------------
trunk/EusLisp/models/load-irt-all-objects.l
trunk/EusLisp/models/room602-scene.l
trunk/EusLisp/models/room610-scene.l
Added Paths:
-----------
trunk/EusLisp/models/laundry-machine-object.l
trunk/EusLisp/models/room602-laundry-machine-object.l
trunk/EusLisp/models/room610-laundry-machine-object.l
Removed Paths:
-------------
trunk/EusLisp/models/laundary-machine-object.l
trunk/EusLisp/models/room602-laundary-machine-object.l
trunk/EusLisp/models/room610-laundary-machine-object.l
Deleted: trunk/EusLisp/models/laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
+++ trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 13:10:57 UTC (rev 617)
@@ -1,206 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version
-;;
-;;
-(defclass laundary-machine-object
- :super cascaded-link
- :slots (sensors
- handle0 handle1 handle2
- button0
- joint0 joint1 ))
-(defmethod laundary-machine-object
- (:init
- (&rest args &key (name "laundary-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
- (let (c bc
- blink0 blink1 blink2
- )
- (send-super* :init :name name args)
-
- ;; definition of link
-
- ;; definition of 'b0
- (setq bc (list
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
- (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
- (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
- (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
- (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
- (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
- (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
- (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
- (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
- (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 -300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 -300.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 300.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 -300.0 1110.0)))
- (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 0.0 549.785)))
- (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 412.5 2.273737e-13 870.215)))
- (instance face :init :vertices (list (float-vector 412.5 2.273737e-13 870.215) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
- (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 0.0 549.785)))
- (instance face :init :vertices (list (float-vector 597.5 0.0 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 2.273737e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
- ))
- ))
- (dolist (b (cdr bc)) (send (car bc) :assoc b))
- (send (elt bc 0) :set-color :white)
- (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
- (setq bc (list
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 2.842171e-14 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 25.0 0.0 10.0)))
- (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
- (instance face :init :vertices (list (float-vector -5.684342e-14 -25.0 10.0) (float-vector 0.0 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 0.0) (float-vector 0.0 -25.0 0.0) (float-vector -5.684342e-14 -25.0 10.0)))
- (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -25.0 2.842171e-14 10.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
- (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -25.0 2.842171e-14 10.0)))
- (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
- (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 0.0 25.0 10.0)))
- (instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 0.0 10.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
- ))
- ))
- (dolist (b (cdr bc)) (send (car bc) :assoc b))
- (send (elt bc 0) :set-color :white)
- (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'button :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 'cap
- (setq bc (list
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector 87.5 361.554 0.0) (float-vector 151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 175.0 210.0 0.0) (float-vector 175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 0.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -2.842171e-13 35.0 30.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector 87.5 58.4456 0.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector -2.842171e-13 35.0 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
- (instance face :init :vertices (list (float-vector 1.705303e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector 1.705303e-13 385.0 30.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0)))
- ))
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 186.195 317.5 0.0) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 107.5 396.195 1.136868e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 0.0)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 0.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 1.136868e-13)))
- (instance face :init :vertices (list (float-vector -107.5 396.195 0.0) (float-vector -107.5 396.195 30.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 0.0)))
- (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector -3.979039e-13 -5.0 0.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 107.5 23.8045 0.0) (float-vector 107.5 23.8045 30.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector -3.979039e-13 -5.0 0.0)))
- (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
- :holes (list
- (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
-))
- (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 0.0) (float-vector -3.979039e-13 -5.0 0.0) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 0.0) (float-vector 1.136868e-13 425.0 0.0) (float-vector 107.5 396.195 1.136868e-13) (float-vector 186.195 317.5 0.0) (float-vector 215.0 210.0 0.0))
- :holes (list
- (instance hole :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector 87.5 58.4456 0.0) (float-vector 151.554 122.5 -1.136868e-13)))
-))
- (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 175.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 0.0)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 0.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector -2.842171e-13 35.0 0.0)))
- (instance face :init :vertices (list (float-vector -2.842171e-13 35.0 0.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 0.0)))
- (instance face :init :vertices (list (float-vector 87.5 58.4456 0.0) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 -1.136868e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0)))
- ))
- ))
- (dolist (b (cdr bc)) (send (car bc) :assoc b))
- (send (elt bc 0) :set-color :gray80)
- (gl::transparent (elt bc 0) 0.5)
- (send (elt bc 1) :set-color :gray60)
- (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
- (send blink0 :assoc blink1)
- (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
- (send blink0 :assoc blink2)
- (send self :assoc blink0)
-
- ;; definition of end-coords
-
- ;; definition of joint
-
- ;; definition of :joint0
- (setq joint0 (instance rotational-joint :init
- :parent-link blink0 :child-link blink1 :name :joint0 :axis :x
- :min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
-
- ;; definition of :joint1
- (setq joint1 (instance linear-joint :init
- :parent-link blink0 :child-link blink2 :name :joint1 :axis (float-vector 0.0 0.0 1.0)
- :min -90.0 :max 90.0 :max-joint-velocity 0.785398 :max-joint-torque 100))
-
-
- ;; definition of :handle
- (setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "contents"))
- (send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
- (send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
- (send self :assoc handle2)
-
- ;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
- (send self :assoc button0)
-
- ;; init-ending
- (setq links (list blink0 blink1 blink2))
- (setq joint-list (list joint0 joint1))
- (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))
-
- (:joint0 (&rest args) (forward-message-to joint0 args))
- (:joint1 (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-contents () handle0)
- (:handle-handle-cap () handle1)
- (:handle-open-button () handle2)
- (:attention () (list ))
- (:button () (list button0))
- (:button-open () button0)
- )
-
-(defun laundary-machine (&rest args) (instance* laundary-machine-object :init args))
-;; (format *error-output* "(instance laundary-machine-object :init) for generating model~%")
Added: trunk/EusLisp/models/laundry-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundry-machine-object.l (rev 0)
+++ trunk/EusLisp/models/laundry-machine-object.l 2013-04-22 13:10:57 UTC (rev 617)
@@ -0,0 +1,206 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version
+;;
+;;
+(defclass laundry-machine-object
+ :super cascaded-link
+ :slots (sensors
+ handle0 handle1 handle2
+ button0
+ joint0 joint1 ))
+(defmethod laundry-machine-object
+ (:init
+ (&rest args &key (name "laundry-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+ (let (c bc
+ blink0 blink1 blink2
+ )
+ (send-super* :init :name name args)
+
+ ;; definition of link
+
+ ;; definition of 'b0
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
+ (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
+ (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
+ (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
+ (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
+ (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
+ (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
+ (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
+ (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
+ (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
+ (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
+ (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 -300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 412.5 2.273737e-13 870.215)))
+ (instance face :init :vertices (list (float-vector 412.5 2.273737e-13 870.215) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
+ (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 597.5 0.0 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 2.273737e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :white)
+ (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 2.842171e-14 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -5.684342e-14 -25.0 10.0) (float-vector 0.0 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 0.0) (float-vector 0.0 -25.0 0.0) (float-vector -5.684342e-14 -25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 2.842171e-14 10.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -25.0 2.842171e-14 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 0.0 25.0 10.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 10.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :white)
+ (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'button :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 'cap
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector 87.5 361.554 0.0) (float-vector 151.554 297.5 0.0)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 175.0 210.0 0.0) (float-vector 175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 0.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -2.842171e-13 35.0 30.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector 87.5 58.4456 0.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector -2.842171e-13 35.0 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 1.705303e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector 1.705303e-13 385.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0)))
+ ))
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 186.195 317.5 0.0) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 107.5 396.195 1.136868e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 0.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -107.5 396.195 0.0) (float-vector -107.5 396.195 30.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 0.0)))
+ (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
+ (instance face :init :vertices (list (float-vector -3.979039e-13 -5.0 0.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
+ (instance face :init :vertices (list (float-vector 107.5 23.8045 0.0) (float-vector 107.5 23.8045 30.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector -3.979039e-13 -5.0 0.0)))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 0.0)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
+ :holes (list
+ (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
+))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 0.0) (float-vector -3.979039e-13 -5.0 0.0) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 0.0) (float-vector 1.136868e-13 425.0 0.0) (float-vector 107.5 396.195 1.136868e-13) (float-vector 186.195 317.5 0.0) (float-vector 215.0 210.0 0.0))
+ :holes (list
+ (instance hole :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector 87.5 58.4456 0.0) (float-vector 151.554 122.5 -1.136868e-13)))
+))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 0.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 175.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 0.0)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 0.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector -2.842171e-13 35.0 0.0)))
+ (instance face :init :vertices (list (float-vector -2.842171e-13 35.0 0.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 0.0)))
+ (instance face :init :vertices (list (float-vector 87.5 58.4456 0.0) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 -1.136868e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :gray80)
+ (gl::transparent (elt bc 0) 0.5)
+ (send (elt bc 1) :set-color :gray60)
+ (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
+ (send blink0 :assoc blink1)
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
+ (send blink0 :assoc blink2)
+ (send self :assoc blink0)
+
+ ;; definition of end-coords
+
+ ;; definition of joint
+
+ ;; definition of :joint0
+ (setq joint0 (instance rotational-joint :init
+ :parent-link blink0 :child-link blink1 :name :joint0 :axis :x
+ :min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+ ;; definition of :joint1
+ (setq joint1 (instance linear-joint :init
+ :parent-link blink0 :child-link blink2 :name :joint1 :axis (float-vector 0.0 0.0 1.0)
+ :min -90.0 :max 90.0 :max-joint-velocity 0.785398 :max-joint-torque 100))
+
+
+ ;; definition of :handle
+ (setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "contents"))
+ (send self :assoc handle0)
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (send self :assoc handle1)
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
+ (send self :assoc handle2)
+
+ ;; definition of :button
+ (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
+ (send self :assoc button0)
+
+ ;; init-ending
+ (setq links (list blink0 blink1 blink2))
+ (setq joint-list (list joint0 joint1))
+ (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))
+
+ (:joint0 (&rest args) (forward-message-to joint0 args))
+ (:joint1 (&rest args) (forward-message-to joint1 args))
+ (:handle () (list handle0 handle1 handle2))
+ (:handle-contents () handle0)
+ (:handle-handle-cap () handle1)
+ (:handle-open-button () handle2)
+ (:attention () (list ))
+ (:button () (list button0))
+ (:button-open () button0)
+ )
+
+(defun laundry-machine (&rest args) (instance* laundry-machine-object :init args))
+;; (format *error-output* "(instance laundry-machine-object :init) for generating model~%")
Modified: trunk/EusLisp/models/load-irt-all-objects.l
===================================================================
--- trunk/EusLisp/models/load-irt-all-objects.l 2013-04-22 12:58:42 UTC (rev 616)
+++ trunk/EusLisp/models/load-irt-all-objects.l 2013-04-22 13:10:57 UTC (rev 617)
@@ -365,8 +365,8 @@
(warning-message 2 "loading square-600-closet-object.l (square-600-closet) for make model~%")
(load "models/square-600-closet-object.l")
-(warning-message 2 "loading laundary-machine-object.l (laundary-machine) for make model~%")
-(load "models/laundary-machine-object.l")
+(warning-message 2 "loading laundry-machine-object.l (laundry-machine) for make model~%")
+(load "models/laundry-machine-object.l")
(warning-message 2 "loading washing-machine-object.l (washing-machine) for make model~%")
(load "models/washing-machine-object.l")
@@ -405,4 +405,4 @@
(load "models/bidirectional-arrow-object.l")
;;
;;
-(setq *irt-all-objects* '( (bidirectional-arrow) (arrow) (arrow-1000) (askul-gdh-cupboard) (askul-ntr-cupboard) (toshiba-clacio-refrigerator) (hitachi-fiesta-refrigerator) (refrigerator) (toshiba-microwave-oven) (3t-600-clean-locker) (kokuyo-450-locker) (washing-machine) (laundary-machine) (square-600-closet) (plus-900-square-desk) (plus-1700-desk) (plus-1800-desk) (plus-1800w-desk) (plus-2800-desk) (plus-7000-desk) (plus-6200-desk) (uchida-1500-desk) (uchida-1000-desk) (plus-1800-pdesk) (lion-1800-desk) (unknown-1200-desk) (uchida-1800-desk) (uchida-2400-desk) (uchida-monitor-leg) (uchida-desk) (toyama-900-desk) (desk) (askul-1200x700-desk) (askul-1400-desk) (askul-1200-desk) (askul-corner-desk) (askul-2700-desk) (nissen-1100-desk) (karimoku-1200-desk) (kokuyo-600-sidetable) (toyama-900-sidetable) (toyama-1800-sidetable) (fujitsu-42-plasmatv) (hitachi-42-plasmatv) (sharp-52-aquostv) (ideainternational-300-analog-clock) (casio-330-analog-clock) (maruman-55-analog-clock) (docomo-p504is) (sushi-cup) (tognana-pasta-dish) (frying-pan) (iron-table) (toshiba-iron) (sharp-iron) (akiba-tv-desk) (akiba-desk) (itoki-900-closet) (itoki-900-shelf) (itoki-900-slide-shelf) (naiki-6door-closet) (bariera-900-left) (bariera-900-middle) (bariera-1200-corner) (bariera-1200-middle) (bariera-1200-middle2) (bariera-1200-middle3) (bariera-1200-right) (bariera-1400-middle) (door) (akiba-door) (akiba-door-window) (akiba-room-door) (coe-sofa2) (coe-sofa) (coe-demospace) (sakae-900-desk) (coe-800-shelf) (coe-1200-shelf) (coe-450-shelf) (coe-corner-shelf) (uchida-shelf-1100) (uchida-shelf-1300) (red-chair0) (trashbox) (coe-stairs) (coe-light) (askul-1600-desk) (fridge) (cupboard) (audio_shelf) (asplund-cabinet-4dan) (asplund-cabinet-4danbase) (shelf) (karimoku-kannonbiraki-cabinet) (tray) (bears-panel) (brown-board) (multibox-shelf) (single-arrow) (cardboard-box) (chair) (kettle) (knife) (sponge) (dining-table) (cup) (mug-cup) (ball) (book) (petbottle) (pockey) (plasmatv) (hrp2-rack) (hrp2-shelf) (coffee-cup-cup) (coffee-cup-saucer) (picaladder) (azuma-broom) (azuma-short-broom) (bamboo-broom) (broom) (elevator_call_panel) (elevator_inside_panel) (elevator_call_panel_eng2) (elevator_inside_panel_eng2) (chessboard-108-9x7) (chessboard-30-7x5) (chessboard-30-6x5) (chessboard-10-3x3) (foldable-desk) (gifuplastic-900-cart) (gifuplastic-720-cart)))
\ No newline at end of file
+(setq *irt-all-objects* '( (bidirectional-arrow) (arrow) (arrow-1000) (askul-gdh-cupboard) (askul-ntr-cupboard) (toshiba-clacio-refrigerator) (hitachi-fiesta-refrigerator) (refrigerator) (toshiba-microwave-oven) (3t-600-clean-locker) (kokuyo-450-locker) (washing-machine) (laundry-machine) (square-600-closet) (plus-900-square-desk) (plus-1700-desk) (plus-1800-desk) (plus-1800w-desk) (plus-2800-desk) (plus-7000-desk) (plus-6200-desk) (uchida-1500-desk) (uchida-1000-desk) (plus-1800-pdesk) (lion-1800-desk) (unknown-1200-desk) (uchida-1800-desk) (uchida-2400-desk) (uchida-monitor-leg) (uchida-desk) (toyama-900-desk) (desk) (askul-1200x700-desk) (askul-1400-desk) (askul-1200-desk) (askul-corner-desk) (askul-2700-desk) (nissen-1100-desk) (karimoku-1200-desk) (kokuyo-600-sidetable) (toyama-900-sidetable) (toyama-1800-sidetable) (fujitsu-42-plasmatv) (hitachi-42-plasmatv) (sharp-52-aquostv) (ideainternational-300-analog-clock) (casio-330-analog-clock) (maruman-55-analog-clock) (docomo-p504is) (sushi-cup) (tognana-pasta-dish) (frying-pan) (iron-table) (toshiba-iron) (sharp-iron) (akiba-tv-desk) (akiba-desk) (itoki-900-closet) (itoki-900-shelf) (itoki-900-slide-shelf) (naiki-6door-closet) (bariera-900-left) (bariera-900-middle) (bariera-1200-corner) (bariera-1200-middle) (bariera-1200-middle2) (bariera-1200-middle3) (bariera-1200-right) (bariera-1400-middle) (door) (akiba-door) (akiba-door-window) (akiba-room-door) (coe-sofa2) (coe-sofa) (coe-demospace) (sakae-900-desk) (coe-800-shelf) (coe-1200-shelf) (coe-450-shelf) (coe-corner-shelf) (uchida-shelf-1100) (uchida-shelf-1300) (red-chair0) (trashbox) (coe-stairs) (coe-light) (askul-1600-desk) (fridge) (cupboard) (audio_shelf) (asplund-cabinet-4dan) (asplund-cabinet-4danbase) (shelf) (karimoku-kannonbiraki-cabinet) (tray) (bears-panel) (brown-board) (multibox-shelf) (single-arrow) (cardboard-box) (chair) (kettle) (knife) (sponge) (dining-table) (cup) (mug-cup) (ball) (book) (petbottle) (pockey) (plasmatv) (hrp2-rack) (hrp2-shelf) (coffee-cup-cup) (coffee-cup-saucer) (picaladder) (azuma-broom) (azuma-short-broom) (bamboo-broom) (broom) (elevator_call_panel) (elevator_inside_panel) (elevator_call_panel_eng2) (elevator_inside_panel_eng2) (chessboard-108-9x7) (chessboard-30-7x5) (chessboard-30-6x5) (chessboard-10-3x3) (foldable-desk) (gifuplastic-900-cart) (gifuplastic-720-cart)))
\ No newline at end of file
Deleted: trunk/EusLisp/models/room602-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
++...
[truncated message content] |
|
From: <sn...@us...> - 2013-04-22 13:11:10
|
Revision: 617
http://sourceforge.net/p/euslisp/code/617
Author: snozawa
Date: 2013-04-22 13:10:57 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
rename laundary -> laundry
Modified Paths:
--------------
trunk/EusLisp/models/load-irt-all-objects.l
trunk/EusLisp/models/room602-scene.l
trunk/EusLisp/models/room610-scene.l
Added Paths:
-----------
trunk/EusLisp/models/laundry-machine-object.l
trunk/EusLisp/models/room602-laundry-machine-object.l
trunk/EusLisp/models/room610-laundry-machine-object.l
Removed Paths:
-------------
trunk/EusLisp/models/laundary-machine-object.l
trunk/EusLisp/models/room602-laundary-machine-object.l
trunk/EusLisp/models/room610-laundary-machine-object.l
Deleted: trunk/EusLisp/models/laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
+++ trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 13:10:57 UTC (rev 617)
@@ -1,206 +0,0 @@
-;;
-;; DO NOT EDIT THIS FILE
-;; this file is automatically generated from euslisp+euslib version
-;;
-;;
-(defclass laundary-machine-object
- :super cascaded-link
- :slots (sensors
- handle0 handle1 handle2
- button0
- joint0 joint1 ))
-(defmethod laundary-machine-object
- (:init
- (&rest args &key (name "laundary-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
- (let (c bc
- blink0 blink1 blink2
- )
- (send-super* :init :name name args)
-
- ;; definition of link
-
- ;; definition of 'b0
- (setq bc (list
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
- (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
- (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
- (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
- (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
- (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
- (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
- (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
- (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
- (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 -300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 -300.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 300.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 -300.0 1110.0)))
- (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 0.0 549.785)))
- (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 412.5 2.273737e-13 870.215)))
- (instance face :init :vertices (list (float-vector 412.5 2.273737e-13 870.215) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
- (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 0.0 549.785)))
- (instance face :init :vertices (list (float-vector 597.5 0.0 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 2.273737e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
- ))
- ))
- (dolist (b (cdr bc)) (send (car bc) :assoc b))
- (send (elt bc 0) :set-color :white)
- (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
- (setq bc (list
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 2.842171e-14 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 25.0 0.0 10.0)))
- (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
- (instance face :init :vertices (list (float-vector -5.684342e-14 -25.0 10.0) (float-vector 0.0 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 0.0) (float-vector 0.0 -25.0 0.0) (float-vector -5.684342e-14 -25.0 10.0)))
- (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -25.0 2.842171e-14 10.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
- (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -25.0 2.842171e-14 10.0)))
- (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
- (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 0.0 25.0 10.0)))
- (instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 0.0 10.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
- ))
- ))
- (dolist (b (cdr bc)) (send (car bc) :assoc b))
- (send (elt bc 0) :set-color :white)
- (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'button :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 'cap
- (setq bc (list
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector 87.5 361.554 0.0) (float-vector 151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 175.0 210.0 0.0) (float-vector 175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 0.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -2.842171e-13 35.0 30.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector 87.5 58.4456 0.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector -2.842171e-13 35.0 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
- (instance face :init :vertices (list (float-vector 1.705303e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector 1.705303e-13 385.0 30.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0)))
- ))
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 186.195 317.5 0.0) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 107.5 396.195 1.136868e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 0.0)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 0.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 1.136868e-13)))
- (instance face :init :vertices (list (float-vector -107.5 396.195 0.0) (float-vector -107.5 396.195 30.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 0.0)))
- (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector -3.979039e-13 -5.0 0.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 107.5 23.8045 0.0) (float-vector 107.5 23.8045 30.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector -3.979039e-13 -5.0 0.0)))
- (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
- :holes (list
- (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
-))
- (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 0.0) (float-vector -3.979039e-13 -5.0 0.0) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 0.0) (float-vector 1.136868e-13 425.0 0.0) (float-vector 107.5 396.195 1.136868e-13) (float-vector 186.195 317.5 0.0) (float-vector 215.0 210.0 0.0))
- :holes (list
- (instance hole :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector 87.5 58.4456 0.0) (float-vector 151.554 122.5 -1.136868e-13)))
-))
- (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 175.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 0.0)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 0.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector -2.842171e-13 35.0 0.0)))
- (instance face :init :vertices (list (float-vector -2.842171e-13 35.0 0.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 0.0)))
- (instance face :init :vertices (list (float-vector 87.5 58.4456 0.0) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 -1.136868e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0)))
- ))
- ))
- (dolist (b (cdr bc)) (send (car bc) :assoc b))
- (send (elt bc 0) :set-color :gray80)
- (gl::transparent (elt bc 0) 0.5)
- (send (elt bc 1) :set-color :gray60)
- (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
- (send blink0 :assoc blink1)
- (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
- (send blink0 :assoc blink2)
- (send self :assoc blink0)
-
- ;; definition of end-coords
-
- ;; definition of joint
-
- ;; definition of :joint0
- (setq joint0 (instance rotational-joint :init
- :parent-link blink0 :child-link blink1 :name :joint0 :axis :x
- :min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
-
- ;; definition of :joint1
- (setq joint1 (instance linear-joint :init
- :parent-link blink0 :child-link blink2 :name :joint1 :axis (float-vector 0.0 0.0 1.0)
- :min -90.0 :max 90.0 :max-joint-velocity 0.785398 :max-joint-torque 100))
-
-
- ;; definition of :handle
- (setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "contents"))
- (send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
- (send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
- (send self :assoc handle2)
-
- ;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
- (send self :assoc button0)
-
- ;; init-ending
- (setq links (list blink0 blink1 blink2))
- (setq joint-list (list joint0 joint1))
- (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))
-
- (:joint0 (&rest args) (forward-message-to joint0 args))
- (:joint1 (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-contents () handle0)
- (:handle-handle-cap () handle1)
- (:handle-open-button () handle2)
- (:attention () (list ))
- (:button () (list button0))
- (:button-open () button0)
- )
-
-(defun laundary-machine (&rest args) (instance* laundary-machine-object :init args))
-;; (format *error-output* "(instance laundary-machine-object :init) for generating model~%")
Added: trunk/EusLisp/models/laundry-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundry-machine-object.l (rev 0)
+++ trunk/EusLisp/models/laundry-machine-object.l 2013-04-22 13:10:57 UTC (rev 617)
@@ -0,0 +1,206 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version
+;;
+;;
+(defclass laundry-machine-object
+ :super cascaded-link
+ :slots (sensors
+ handle0 handle1 handle2
+ button0
+ joint0 joint1 ))
+(defmethod laundry-machine-object
+ (:init
+ (&rest args &key (name "laundry-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+ (let (c bc
+ blink0 blink1 blink2
+ )
+ (send-super* :init :name name args)
+
+ ;; definition of link
+
+ ;; definition of 'b0
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
+ (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
+ (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
+ (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
+ (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
+ (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
+ (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
+ (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
+ (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
+ (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
+ (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
+ (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 -300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 412.5 2.273737e-13 870.215)))
+ (instance face :init :vertices (list (float-vector 412.5 2.273737e-13 870.215) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
+ (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 597.5 0.0 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 2.273737e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :white)
+ (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 2.842171e-14 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -5.684342e-14 -25.0 10.0) (float-vector 0.0 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 0.0) (float-vector 0.0 -25.0 0.0) (float-vector -5.684342e-14 -25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 2.842171e-14 10.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -25.0 2.842171e-14 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 0.0 25.0 10.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 10.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :white)
+ (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'button :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 'cap
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector 87.5 361.554 0.0) (float-vector 151.554 297.5 0.0)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 175.0 210.0 0.0) (float-vector 175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 0.0) (float-vector 151.554 122.5 -1.136868e-13) (float-vector 151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -2.842171e-13 35.0 30.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector 87.5 58.4456 0.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector -2.842171e-13 35.0 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 1.705303e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector 1.705303e-13 385.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0)))
+ ))
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 186.195 317.5 0.0) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 107.5 396.195 1.136868e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 0.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -107.5 396.195 0.0) (float-vector -107.5 396.195 30.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 0.0)))
+ (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
+ (instance face :init :vertices (list (float-vector -3.979039e-13 -5.0 0.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
+ (instance face :init :vertices (list (float-vector 107.5 23.8045 0.0) (float-vector 107.5 23.8045 30.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector -3.979039e-13 -5.0 0.0)))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 0.0)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.705303e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -3.979039e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
+ :holes (list
+ (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
+))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 0.0) (float-vector -3.979039e-13 -5.0 0.0) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 0.0) (float-vector 1.136868e-13 425.0 0.0) (float-vector 107.5 396.195 1.136868e-13) (float-vector 186.195 317.5 0.0) (float-vector 215.0 210.0 0.0))
+ :holes (list
+ (instance hole :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -2.842171e-13 35.0 0.0) (float-vector 87.5 58.4456 0.0) (float-vector 151.554 122.5 -1.136868e-13)))
+))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 0.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 175.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 0.0)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 0.0) (float-vector 1.705303e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector -2.842171e-13 35.0 0.0)))
+ (instance face :init :vertices (list (float-vector -2.842171e-13 35.0 0.0) (float-vector -2.842171e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 0.0)))
+ (instance face :init :vertices (list (float-vector 87.5 58.4456 0.0) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 -1.136868e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :gray80)
+ (gl::transparent (elt bc 0) 0.5)
+ (send (elt bc 1) :set-color :gray60)
+ (setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
+ (send blink0 :assoc blink1)
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
+ (send blink0 :assoc blink2)
+ (send self :assoc blink0)
+
+ ;; definition of end-coords
+
+ ;; definition of joint
+
+ ;; definition of :joint0
+ (setq joint0 (instance rotational-joint :init
+ :parent-link blink0 :child-link blink1 :name :joint0 :axis :x
+ :min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
+
+ ;; definition of :joint1
+ (setq joint1 (instance linear-joint :init
+ :parent-link blink0 :child-link blink2 :name :joint1 :axis (float-vector 0.0 0.0 1.0)
+ :min -90.0 :max 90.0 :max-joint-velocity 0.785398 :max-joint-torque 100))
+
+
+ ;; definition of :handle
+ (setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "contents"))
+ (send self :assoc handle0)
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (send self :assoc handle1)
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
+ (send self :assoc handle2)
+
+ ;; definition of :button
+ (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
+ (send self :assoc button0)
+
+ ;; init-ending
+ (setq links (list blink0 blink1 blink2))
+ (setq joint-list (list joint0 joint1))
+ (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))
+
+ (:joint0 (&rest args) (forward-message-to joint0 args))
+ (:joint1 (&rest args) (forward-message-to joint1 args))
+ (:handle () (list handle0 handle1 handle2))
+ (:handle-contents () handle0)
+ (:handle-handle-cap () handle1)
+ (:handle-open-button () handle2)
+ (:attention () (list ))
+ (:button () (list button0))
+ (:button-open () button0)
+ )
+
+(defun laundry-machine (&rest args) (instance* laundry-machine-object :init args))
+;; (format *error-output* "(instance laundry-machine-object :init) for generating model~%")
Modified: trunk/EusLisp/models/load-irt-all-objects.l
===================================================================
--- trunk/EusLisp/models/load-irt-all-objects.l 2013-04-22 12:58:42 UTC (rev 616)
+++ trunk/EusLisp/models/load-irt-all-objects.l 2013-04-22 13:10:57 UTC (rev 617)
@@ -365,8 +365,8 @@
(warning-message 2 "loading square-600-closet-object.l (square-600-closet) for make model~%")
(load "models/square-600-closet-object.l")
-(warning-message 2 "loading laundary-machine-object.l (laundary-machine) for make model~%")
-(load "models/laundary-machine-object.l")
+(warning-message 2 "loading laundry-machine-object.l (laundry-machine) for make model~%")
+(load "models/laundry-machine-object.l")
(warning-message 2 "loading washing-machine-object.l (washing-machine) for make model~%")
(load "models/washing-machine-object.l")
@@ -405,4 +405,4 @@
(load "models/bidirectional-arrow-object.l")
;;
;;
-(setq *irt-all-objects* '( (bidirectional-arrow) (arrow) (arrow-1000) (askul-gdh-cupboard) (askul-ntr-cupboard) (toshiba-clacio-refrigerator) (hitachi-fiesta-refrigerator) (refrigerator) (toshiba-microwave-oven) (3t-600-clean-locker) (kokuyo-450-locker) (washing-machine) (laundary-machine) (square-600-closet) (plus-900-square-desk) (plus-1700-desk) (plus-1800-desk) (plus-1800w-desk) (plus-2800-desk) (plus-7000-desk) (plus-6200-desk) (uchida-1500-desk) (uchida-1000-desk) (plus-1800-pdesk) (lion-1800-desk) (unknown-1200-desk) (uchida-1800-desk) (uchida-2400-desk) (uchida-monitor-leg) (uchida-desk) (toyama-900-desk) (desk) (askul-1200x700-desk) (askul-1400-desk) (askul-1200-desk) (askul-corner-desk) (askul-2700-desk) (nissen-1100-desk) (karimoku-1200-desk) (kokuyo-600-sidetable) (toyama-900-sidetable) (toyama-1800-sidetable) (fujitsu-42-plasmatv) (hitachi-42-plasmatv) (sharp-52-aquostv) (ideainternational-300-analog-clock) (casio-330-analog-clock) (maruman-55-analog-clock) (docomo-p504is) (sushi-cup) (tognana-pasta-dish) (frying-pan) (iron-table) (toshiba-iron) (sharp-iron) (akiba-tv-desk) (akiba-desk) (itoki-900-closet) (itoki-900-shelf) (itoki-900-slide-shelf) (naiki-6door-closet) (bariera-900-left) (bariera-900-middle) (bariera-1200-corner) (bariera-1200-middle) (bariera-1200-middle2) (bariera-1200-middle3) (bariera-1200-right) (bariera-1400-middle) (door) (akiba-door) (akiba-door-window) (akiba-room-door) (coe-sofa2) (coe-sofa) (coe-demospace) (sakae-900-desk) (coe-800-shelf) (coe-1200-shelf) (coe-450-shelf) (coe-corner-shelf) (uchida-shelf-1100) (uchida-shelf-1300) (red-chair0) (trashbox) (coe-stairs) (coe-light) (askul-1600-desk) (fridge) (cupboard) (audio_shelf) (asplund-cabinet-4dan) (asplund-cabinet-4danbase) (shelf) (karimoku-kannonbiraki-cabinet) (tray) (bears-panel) (brown-board) (multibox-shelf) (single-arrow) (cardboard-box) (chair) (kettle) (knife) (sponge) (dining-table) (cup) (mug-cup) (ball) (book) (petbottle) (pockey) (plasmatv) (hrp2-rack) (hrp2-shelf) (coffee-cup-cup) (coffee-cup-saucer) (picaladder) (azuma-broom) (azuma-short-broom) (bamboo-broom) (broom) (elevator_call_panel) (elevator_inside_panel) (elevator_call_panel_eng2) (elevator_inside_panel_eng2) (chessboard-108-9x7) (chessboard-30-7x5) (chessboard-30-6x5) (chessboard-10-3x3) (foldable-desk) (gifuplastic-900-cart) (gifuplastic-720-cart)))
\ No newline at end of file
+(setq *irt-all-objects* '( (bidirectional-arrow) (arrow) (arrow-1000) (askul-gdh-cupboard) (askul-ntr-cupboard) (toshiba-clacio-refrigerator) (hitachi-fiesta-refrigerator) (refrigerator) (toshiba-microwave-oven) (3t-600-clean-locker) (kokuyo-450-locker) (washing-machine) (laundry-machine) (square-600-closet) (plus-900-square-desk) (plus-1700-desk) (plus-1800-desk) (plus-1800w-desk) (plus-2800-desk) (plus-7000-desk) (plus-6200-desk) (uchida-1500-desk) (uchida-1000-desk) (plus-1800-pdesk) (lion-1800-desk) (unknown-1200-desk) (uchida-1800-desk) (uchida-2400-desk) (uchida-monitor-leg) (uchida-desk) (toyama-900-desk) (desk) (askul-1200x700-desk) (askul-1400-desk) (askul-1200-desk) (askul-corner-desk) (askul-2700-desk) (nissen-1100-desk) (karimoku-1200-desk) (kokuyo-600-sidetable) (toyama-900-sidetable) (toyama-1800-sidetable) (fujitsu-42-plasmatv) (hitachi-42-plasmatv) (sharp-52-aquostv) (ideainternational-300-analog-clock) (casio-330-analog-clock) (maruman-55-analog-clock) (docomo-p504is) (sushi-cup) (tognana-pasta-dish) (frying-pan) (iron-table) (toshiba-iron) (sharp-iron) (akiba-tv-desk) (akiba-desk) (itoki-900-closet) (itoki-900-shelf) (itoki-900-slide-shelf) (naiki-6door-closet) (bariera-900-left) (bariera-900-middle) (bariera-1200-corner) (bariera-1200-middle) (bariera-1200-middle2) (bariera-1200-middle3) (bariera-1200-right) (bariera-1400-middle) (door) (akiba-door) (akiba-door-window) (akiba-room-door) (coe-sofa2) (coe-sofa) (coe-demospace) (sakae-900-desk) (coe-800-shelf) (coe-1200-shelf) (coe-450-shelf) (coe-corner-shelf) (uchida-shelf-1100) (uchida-shelf-1300) (red-chair0) (trashbox) (coe-stairs) (coe-light) (askul-1600-desk) (fridge) (cupboard) (audio_shelf) (asplund-cabinet-4dan) (asplund-cabinet-4danbase) (shelf) (karimoku-kannonbiraki-cabinet) (tray) (bears-panel) (brown-board) (multibox-shelf) (single-arrow) (cardboard-box) (chair) (kettle) (knife) (sponge) (dining-table) (cup) (mug-cup) (ball) (book) (petbottle) (pockey) (plasmatv) (hrp2-rack) (hrp2-shelf) (coffee-cup-cup) (coffee-cup-saucer) (picaladder) (azuma-broom) (azuma-short-broom) (bamboo-broom) (broom) (elevator_call_panel) (elevator_inside_panel) (elevator_call_panel_eng2) (elevator_inside_panel_eng2) (chessboard-108-9x7) (chessboard-30-7x5) (chessboard-30-6x5) (chessboard-10-3x3) (foldable-desk) (gifuplastic-900-cart) (gifuplastic-720-cart)))
\ No newline at end of file
Deleted: trunk/EusLisp/models/room602-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
++...
[truncated message content] |
|
From: <sn...@us...> - 2013-04-22 12:58:54
|
Revision: 616
http://sourceforge.net/p/euslisp/code/616
Author: snozawa
Date: 2013-04-22 12:58:42 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
update laundry
Modified Paths:
--------------
trunk/EusLisp/models/laundary-machine-object.l
trunk/EusLisp/models/room602-laundary-machine-object.l
trunk/EusLisp/models/room610-laundary-machine-object.l
Modified: trunk/EusLisp/models/laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
+++ trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
@@ -22,42 +22,42 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
- (instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 0.0 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
- (instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 0.0 891.754)))
- (instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
- (instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
- (instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
- (instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
- (instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 0.0 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 0.0 658.69)))
- (instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
- (instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 0.0 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 600.0 1110.0) (float-vector 0.0 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 0.0 600.0 0.0) (float-vector 0.0 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 0.0 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 0.0 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 0.0 1047.42) (float-vector 517.568 0.0 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 0.0 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
- (instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 485.0 710.0) (float-vector 654.545 485.0 796.34) (float-vector 642.427 474.225 835.779) (float-vector 624.36 460.215 885.722) (float-vector 458.75 460.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 460.215 790.107) (float-vector 624.36 460.215 885.722) (float-vector 622.178 453.9 891.754) (float-vector 599.473 395.719 945.827) (float-vector 598.07 392.5 948.734) (float-vector 424.893 392.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 392.5 848.75) (float-vector 598.07 392.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 412.5 300.0 870.215)))
- (instance face :init :vertices (list (float-vector 412.5 300.0 870.215) (float-vector 587.269 300.0 971.118) (float-vector 598.07 207.5 948.734) (float-vector 424.893 207.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 207.5 848.75) (float-vector 598.07 207.5 948.734) (float-vector 599.473 204.281 945.827) (float-vector 622.178 146.1 891.754) (float-vector 624.36 139.785 885.722) (float-vector 458.75 139.785 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 139.785 790.107) (float-vector 624.36 139.785 885.722) (float-vector 642.427 125.775 835.779) (float-vector 654.545 115.0 796.34) (float-vector 505.0 115.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 115.0 710.0) (float-vector 654.545 115.0 796.34) (float-vector 660.141 119.977 778.125) (float-vector 675.25 135.717 719.017) (float-vector 678.482 139.785 703.35) (float-vector 551.25 139.785 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 139.785 629.893) (float-vector 678.482 139.785 703.35) (float-vector 687.694 183.068 658.69) (float-vector 691.795 207.5 632.846) (float-vector 585.107 207.5 571.25)))
- (instance face :init :vertices (list (float-vector 585.107 207.5 571.25) (float-vector 691.795 207.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 597.5 300.0 549.785) (float-vector 585.107 392.5 571.25) (float-vector 551.25 460.215 629.893) (float-vector 505.0 485.0 710.0) (float-vector 458.75 460.215 790.107) (float-vector 424.893 392.5 848.75) (float-vector 412.5 300.0 870.215) (float-vector 424.893 207.5 848.75) (float-vector 458.75 139.785 790.107) (float-vector 505.0 115.0 710.0) (float-vector 551.25 139.785 629.893) (float-vector 585.107 207.5 571.25)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
+ (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
+ (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
+ (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
+ (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
+ (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
+ (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
+ (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
+ (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
+ (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
+ (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
+ (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 -300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 412.5 2.273737e-13 870.215)))
+ (instance face :init :vertices (list (float-vector 412.5 2.273737e-13 870.215) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
+ (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 597.5 0.0 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 2.273737e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -147,9 +147,9 @@
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
+ (send blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
(send blink0 :assoc blink1)
- (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
(send blink0 :assoc blink2)
(send self :assoc blink0)
Modified: trunk/EusLisp/models/room602-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
+++ trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
@@ -22,42 +22,42 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 4.547474e-13 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
- (instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 4.547474e-13 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
- (instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 4.547474e-13 891.754)))
- (instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
- (instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
- (instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
- (instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
- (instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 4.547474e-13 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 4.547474e-13 658.69)))
- (instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
- (instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 1.136868e-13 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 4.547474e-13 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 4.547474e-13 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 517.568 4.547474e-13 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
- (instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 485.0 710.0) (float-vector 654.545 485.0 796.34) (float-vector 642.427 474.225 835.779) (float-vector 624.36 460.215 885.722) (float-vector 458.75 460.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 460.215 790.107) (float-vector 624.36 460.215 885.722) (float-vector 622.178 453.9 891.754) (float-vector 599.473 395.719 945.827) (float-vector 598.07 392.5 948.734) (float-vector 424.893 392.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 392.5 848.75) (float-vector 598.07 392.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 412.5 300.0 870.215)))
- (instance face :init :vertices (list (float-vector 412.5 300.0 870.215) (float-vector 587.269 300.0 971.118) (float-vector 598.07 207.5 948.734) (float-vector 424.893 207.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 207.5 848.75) (float-vector 598.07 207.5 948.734) (float-vector 599.473 204.281 945.827) (float-vector 622.178 146.1 891.754) (float-vector 624.36 139.785 885.722) (float-vector 458.75 139.785 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 139.785 790.107) (float-vector 624.36 139.785 885.722) (float-vector 642.427 125.775 835.779) (float-vector 654.545 115.0 796.34) (float-vector 505.0 115.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 115.0 710.0) (float-vector 654.545 115.0 796.34) (float-vector 660.141 119.977 778.125) (float-vector 675.25 135.717 719.017) (float-vector 678.482 139.785 703.35) (float-vector 551.25 139.785 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 139.785 629.893) (float-vector 678.482 139.785 703.35) (float-vector 687.694 183.068 658.69) (float-vector 691.795 207.5 632.846) (float-vector 585.107 207.5 571.25)))
- (instance face :init :vertices (list (float-vector 585.107 207.5 571.25) (float-vector 691.795 207.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 597.5 300.0 549.785) (float-vector 585.107 392.5 571.25) (float-vector 551.25 460.215 629.893) (float-vector 505.0 485.0 710.0) (float-vector 458.75 460.215 790.107) (float-vector 424.893 392.5 848.75) (float-vector 412.5 300.0 870.215) (float-vector 424.893 207.5 848.75) (float-vector 458.75 139.785 790.107) (float-vector 505.0 115.0 710.0) (float-vector 551.25 139.785 629.893) (float-vector 585.107 207.5 571.25)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 9.094947e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
+ (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
+ (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
+ (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
+ (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
+ (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
+ (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
+ (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
+ (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
+ (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
+ (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
+ (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
+ (instance face :init :vertices (list (float-vector 5.684342e-14 -300.0 0.0) (float-vector 1.705303e-13 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 5.684342e-14 -300.0 1110.0) (float-vector 1.705303e-13 300.0 1110.0) (float-vector 1.705303e-13 300.0 0.0) (float-vector 5.684342e-14 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 1.705303e-13 300.0 0.0) (float-vector 1.705303e-13 300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 5.684342e-14 -300.0 1110.0) (float-vector 5.684342e-14 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 1.705303e-13 300.0 1110.0) (float-vector 5.684342e-14 -300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 9.094947e-13 549.785)))
+ (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 9.094947e-13 971.118) (float-vector 412.5 9.094947e-13 870.215)))
+ (instance face :init :vertices (list (float-vector 412.5 9.094947e-13 870.215) (float-vector 587.269 9.094947e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
+ (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 9.094947e-13 549.785)))
+ (instance face :init :vertices (list (float-vector 597.5 9.094947e-13 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 9.094947e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -147,9 +147,9 @@
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 -1.477606e-17 0.939693) (3.069601e-17 1.0 4.551926e-18) (-0.939693 2.728796e-17 0.34202))))
+ (send blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 -1.477606e-17 0.939693) (3.069601e-17 1.0 4.551926e-18) (-0.939693 2.728796e-17 0.34202))))
(send blink0 :assoc blink1)
- (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5))))
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5))))
(send blink0 :assoc blink2)
(send self :assoc blink0)
Modified: trunk/EusLisp/models/room610-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
+++ trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
@@ -22,42 +22,42 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
- (instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 0.0 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
- (instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 0.0 891.754)))
- (instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
- (instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
- (instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
- (instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
- (instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 0.0 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 0.0 658.69)))
- (instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
- (instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 0.0 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 600.0 1110.0) (float-vector 0.0 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 0.0 600.0 0.0) (float-vector 0.0 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 0.0 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 0.0 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 0.0 1047.42) (float-vector 517.568 0.0 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 0.0 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
- (instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 485.0 710.0) (float-vector 654.545 485.0 796.34) (float-vector 642.427 474.225 835.779) (float-vector 624.36 460.215 885.722) (float-vector 458.75 460.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 460.215 790.107) (float-vector 624.36 460.215 885.722) (float-vector 622.178 453.9 891.754) (float-vector 599.473 395.719 945.827) (float-vector 598.07 392.5 948.734) (float-vector 424.893 392.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 392.5 848.75) (float-vector 598.07 392.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 412.5 300.0 870.215)))
- (instance face :init :vertices (list (float-vector 412.5 300.0 870.215) (float-vector 587.269 300.0 971.118) (float-vector 598.07 207.5 948.734) (float-vector 424.893 207.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 207.5 848.75) (float-vector 598.07 207.5 948.734) (float-vector 599.473 204.281 945.827) (float-vector 622.178 146.1 891.754) (float-vector 624.36 139.785 885.722) (float-vector 458.75 139.785 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 139.785 790.107) (float-vector 624.36 139.785 885.722) (float-vector 642.427 125.775 835.779) (float-vector 654.545 115.0 796.34) (float-vector 505.0 115.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 115.0 710.0) (float-vector 654.545 115.0 796.34) (float-vector 660.141 119.977 778.125) (float-vector 675.25 135.717 719.017) (float-vector 678.482 139.785 703.35) (float-vector 551.25 139.785 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 139.785 629.893) (float-vector 678.482 139.785 703.35) (float-vector 687.694 183.068 658.69) (float-vector 691.795 207.5 632.846) (float-vector 585.107 207.5 571.25)))
- (instance face :init :vertices (list (float-vector 585.107 207.5 571.25) (float-vector 691.795 207.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 597.5 300.0 549.785) (float-vector 585.107 392.5 571.25) (float-vector 551.25 460.215 629.893) (float-vector 505.0 485.0 710.0) (float-vector 458.75 460.215 790.107) (float-vector 424.893 392.5 848.75) (float-vector 412.5 300.0 870.215) (float-vector 424.893 207.5 848.75) (float-vector 458.75 139.785 790.107) (float-vector 505.0 115.0 710.0) (float-vector 551.25 139.785 629.893) (float-vector 585.107 207.5 571.25)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 4.547474e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
+ (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
+ (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
+ (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
+ (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
+ (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
+ (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
+ (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
+ (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
+ (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
+ (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
+ (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 -300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 4.547474e-13 971.118) (float-vector 412.5 4.547474e-13 870.215)))
+ (instance face :init :vertices (list (float-vector 412.5 4.547474e-13 870.215) (float-vector 587.269 4.547474e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
+ (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 597.5 0.0 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 4.547474e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -147,9 +147,9 @@
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 -9.094415e-17 0.939693) (9.094415e-17 1.0 6.367978e-17) (-0.939693 6.367978e-17 0.34202))))
+ (send blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 -9.094415e-17 0.939693) (9.094415e-17 1.0 6.367978e-17) (-0.939693 6.367978e-17 0.34202))))
(send blink0 :assoc blink1)
- (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 -2.775558e-17 0.866025) (-2.775558e-17 1.0 4.807407e-17) (-0.866025 -4.807407e-17 0.5))))
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 -2.775558e-17 0.866025) (-2.775558e-17 1.0 4.807407e-17) (-0.866025 -4.807407e-17 0.5))))
(send blink0 :assoc blink2)
(send self :assoc blink0)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-04-22 12:58:52
|
Revision: 616
http://sourceforge.net/p/euslisp/code/616
Author: snozawa
Date: 2013-04-22 12:58:42 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
update laundry
Modified Paths:
--------------
trunk/EusLisp/models/laundary-machine-object.l
trunk/EusLisp/models/room602-laundary-machine-object.l
trunk/EusLisp/models/room610-laundary-machine-object.l
Modified: trunk/EusLisp/models/laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
+++ trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
@@ -22,42 +22,42 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
- (instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 0.0 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
- (instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 0.0 891.754)))
- (instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
- (instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
- (instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
- (instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
- (instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 0.0 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 0.0 658.69)))
- (instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
- (instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 0.0 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 600.0 1110.0) (float-vector 0.0 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 0.0 600.0 0.0) (float-vector 0.0 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 0.0 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 0.0 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 0.0 1047.42) (float-vector 517.568 0.0 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 0.0 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
- (instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 485.0 710.0) (float-vector 654.545 485.0 796.34) (float-vector 642.427 474.225 835.779) (float-vector 624.36 460.215 885.722) (float-vector 458.75 460.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 460.215 790.107) (float-vector 624.36 460.215 885.722) (float-vector 622.178 453.9 891.754) (float-vector 599.473 395.719 945.827) (float-vector 598.07 392.5 948.734) (float-vector 424.893 392.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 392.5 848.75) (float-vector 598.07 392.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 412.5 300.0 870.215)))
- (instance face :init :vertices (list (float-vector 412.5 300.0 870.215) (float-vector 587.269 300.0 971.118) (float-vector 598.07 207.5 948.734) (float-vector 424.893 207.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 207.5 848.75) (float-vector 598.07 207.5 948.734) (float-vector 599.473 204.281 945.827) (float-vector 622.178 146.1 891.754) (float-vector 624.36 139.785 885.722) (float-vector 458.75 139.785 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 139.785 790.107) (float-vector 624.36 139.785 885.722) (float-vector 642.427 125.775 835.779) (float-vector 654.545 115.0 796.34) (float-vector 505.0 115.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 115.0 710.0) (float-vector 654.545 115.0 796.34) (float-vector 660.141 119.977 778.125) (float-vector 675.25 135.717 719.017) (float-vector 678.482 139.785 703.35) (float-vector 551.25 139.785 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 139.785 629.893) (float-vector 678.482 139.785 703.35) (float-vector 687.694 183.068 658.69) (float-vector 691.795 207.5 632.846) (float-vector 585.107 207.5 571.25)))
- (instance face :init :vertices (list (float-vector 585.107 207.5 571.25) (float-vector 691.795 207.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 597.5 300.0 549.785) (float-vector 585.107 392.5 571.25) (float-vector 551.25 460.215 629.893) (float-vector 505.0 485.0 710.0) (float-vector 458.75 460.215 790.107) (float-vector 424.893 392.5 848.75) (float-vector 412.5 300.0 870.215) (float-vector 424.893 207.5 848.75) (float-vector 458.75 139.785 790.107) (float-vector 505.0 115.0 710.0) (float-vector 551.25 139.785 629.893) (float-vector 585.107 207.5 571.25)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
+ (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
+ (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
+ (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
+ (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
+ (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
+ (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
+ (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
+ (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
+ (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
+ (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
+ (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 -300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 2.273737e-13 971.118) (float-vector 412.5 2.273737e-13 870.215)))
+ (instance face :init :vertices (list (float-vector 412.5 2.273737e-13 870.215) (float-vector 587.269 2.273737e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
+ (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 597.5 0.0 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 2.273737e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -147,9 +147,9 @@
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
+ (send blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
(send blink0 :assoc blink1)
- (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
(send blink0 :assoc blink2)
(send self :assoc blink0)
Modified: trunk/EusLisp/models/room602-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
+++ trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
@@ -22,42 +22,42 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 4.547474e-13 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
- (instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 4.547474e-13 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
- (instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 4.547474e-13 891.754)))
- (instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
- (instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
- (instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
- (instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
- (instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 4.547474e-13 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 4.547474e-13 658.69)))
- (instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
- (instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 1.136868e-13 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 4.547474e-13 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 4.547474e-13 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 517.568 4.547474e-13 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
- (instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 485.0 710.0) (float-vector 654.545 485.0 796.34) (float-vector 642.427 474.225 835.779) (float-vector 624.36 460.215 885.722) (float-vector 458.75 460.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 460.215 790.107) (float-vector 624.36 460.215 885.722) (float-vector 622.178 453.9 891.754) (float-vector 599.473 395.719 945.827) (float-vector 598.07 392.5 948.734) (float-vector 424.893 392.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 392.5 848.75) (float-vector 598.07 392.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 412.5 300.0 870.215)))
- (instance face :init :vertices (list (float-vector 412.5 300.0 870.215) (float-vector 587.269 300.0 971.118) (float-vector 598.07 207.5 948.734) (float-vector 424.893 207.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 207.5 848.75) (float-vector 598.07 207.5 948.734) (float-vector 599.473 204.281 945.827) (float-vector 622.178 146.1 891.754) (float-vector 624.36 139.785 885.722) (float-vector 458.75 139.785 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 139.785 790.107) (float-vector 624.36 139.785 885.722) (float-vector 642.427 125.775 835.779) (float-vector 654.545 115.0 796.34) (float-vector 505.0 115.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 115.0 710.0) (float-vector 654.545 115.0 796.34) (float-vector 660.141 119.977 778.125) (float-vector 675.25 135.717 719.017) (float-vector 678.482 139.785 703.35) (float-vector 551.25 139.785 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 139.785 629.893) (float-vector 678.482 139.785 703.35) (float-vector 687.694 183.068 658.69) (float-vector 691.795 207.5 632.846) (float-vector 585.107 207.5 571.25)))
- (instance face :init :vertices (list (float-vector 585.107 207.5 571.25) (float-vector 691.795 207.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 597.5 300.0 549.785) (float-vector 585.107 392.5 571.25) (float-vector 551.25 460.215 629.893) (float-vector 505.0 485.0 710.0) (float-vector 458.75 460.215 790.107) (float-vector 424.893 392.5 848.75) (float-vector 412.5 300.0 870.215) (float-vector 424.893 207.5 848.75) (float-vector 458.75 139.785 790.107) (float-vector 505.0 115.0 710.0) (float-vector 551.25 139.785 629.893) (float-vector 585.107 207.5 571.25)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 9.094947e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
+ (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
+ (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
+ (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
+ (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
+ (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
+ (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
+ (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
+ (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
+ (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
+ (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
+ (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
+ (instance face :init :vertices (list (float-vector 5.684342e-14 -300.0 0.0) (float-vector 1.705303e-13 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 5.684342e-14 -300.0 1110.0) (float-vector 1.705303e-13 300.0 1110.0) (float-vector 1.705303e-13 300.0 0.0) (float-vector 5.684342e-14 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 1.705303e-13 300.0 0.0) (float-vector 1.705303e-13 300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 5.684342e-14 -300.0 1110.0) (float-vector 5.684342e-14 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 1.705303e-13 300.0 1110.0) (float-vector 5.684342e-14 -300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 9.094947e-13 549.785)))
+ (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 9.094947e-13 971.118) (float-vector 412.5 9.094947e-13 870.215)))
+ (instance face :init :vertices (list (float-vector 412.5 9.094947e-13 870.215) (float-vector 587.269 9.094947e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
+ (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 9.094947e-13 549.785)))
+ (instance face :init :vertices (list (float-vector 597.5 9.094947e-13 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 9.094947e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -147,9 +147,9 @@
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 -1.477606e-17 0.939693) (3.069601e-17 1.0 4.551926e-18) (-0.939693 2.728796e-17 0.34202))))
+ (send blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 -1.477606e-17 0.939693) (3.069601e-17 1.0 4.551926e-18) (-0.939693 2.728796e-17 0.34202))))
(send blink0 :assoc blink1)
- (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5))))
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5))))
(send blink0 :assoc blink2)
(send self :assoc blink0)
Modified: trunk/EusLisp/models/room610-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
+++ trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 12:58:42 UTC (rev 616)
@@ -22,42 +22,42 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
- (instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 0.0 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
- (instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 0.0 891.754)))
- (instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
- (instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
- (instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
- (instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
- (instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 0.0 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 0.0 658.69)))
- (instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
- (instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 0.0 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 600.0 1110.0) (float-vector 0.0 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 0.0 600.0 0.0) (float-vector 0.0 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 0.0 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 0.0 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 0.0 1047.42) (float-vector 517.568 0.0 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 0.0 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
- (instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 485.0 710.0) (float-vector 654.545 485.0 796.34) (float-vector 642.427 474.225 835.779) (float-vector 624.36 460.215 885.722) (float-vector 458.75 460.215 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 460.215 790.107) (float-vector 624.36 460.215 885.722) (float-vector 622.178 453.9 891.754) (float-vector 599.473 395.719 945.827) (float-vector 598.07 392.5 948.734) (float-vector 424.893 392.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 392.5 848.75) (float-vector 598.07 392.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 412.5 300.0 870.215)))
- (instance face :init :vertices (list (float-vector 412.5 300.0 870.215) (float-vector 587.269 300.0 971.118) (float-vector 598.07 207.5 948.734) (float-vector 424.893 207.5 848.75)))
- (instance face :init :vertices (list (float-vector 424.893 207.5 848.75) (float-vector 598.07 207.5 948.734) (float-vector 599.473 204.281 945.827) (float-vector 622.178 146.1 891.754) (float-vector 624.36 139.785 885.722) (float-vector 458.75 139.785 790.107)))
- (instance face :init :vertices (list (float-vector 458.75 139.785 790.107) (float-vector 624.36 139.785 885.722) (float-vector 642.427 125.775 835.779) (float-vector 654.545 115.0 796.34) (float-vector 505.0 115.0 710.0)))
- (instance face :init :vertices (list (float-vector 505.0 115.0 710.0) (float-vector 654.545 115.0 796.34) (float-vector 660.141 119.977 778.125) (float-vector 675.25 135.717 719.017) (float-vector 678.482 139.785 703.35) (float-vector 551.25 139.785 629.893)))
- (instance face :init :vertices (list (float-vector 551.25 139.785 629.893) (float-vector 678.482 139.785 703.35) (float-vector 687.694 183.068 658.69) (float-vector 691.795 207.5 632.846) (float-vector 585.107 207.5 571.25)))
- (instance face :init :vertices (list (float-vector 585.107 207.5 571.25) (float-vector 691.795 207.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 597.5 300.0 549.785)))
- (instance face :init :vertices (list (float-vector 597.5 300.0 549.785) (float-vector 585.107 392.5 571.25) (float-vector 551.25 460.215 629.893) (float-vector 505.0 485.0 710.0) (float-vector 458.75 460.215 790.107) (float-vector 424.893 392.5 848.75) (float-vector 412.5 300.0 870.215) (float-vector 424.893 207.5 848.75) (float-vector 458.75 139.785 790.107) (float-vector 505.0 115.0 710.0) (float-vector 551.25 139.785 629.893) (float-vector 585.107 207.5 571.25)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 547.064 -300.0 1047.42) (float-vector 547.064 300.0 1047.42) (float-vector 517.568 300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 -300.0 997.785) (float-vector 574.402 300.0 997.785) (float-vector 547.064 300.0 1047.42) (float-vector 547.064 -300.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 -300.0 945.827) (float-vector 599.473 -95.7191 945.827) (float-vector 598.07 -92.5 948.734) (float-vector 587.269 4.547474e-13 971.118) (float-vector 598.07 92.5 948.734) (float-vector 599.473 95.7191 945.827) (float-vector 599.473 300.0 945.827) (float-vector 574.402 300.0 997.785) (float-vector 574.402 -300.0 997.785)))
+ (instance face :init :vertices (list (float-vector 622.178 300.0 891.754) (float-vector 599.473 300.0 945.827) (float-vector 599.473 95.7191 945.827) (float-vector 622.178 153.9 891.754)))
+ (instance face :init :vertices (list (float-vector 622.178 -300.0 891.754) (float-vector 622.178 -153.9 891.754) (float-vector 599.473 -95.7191 945.827) (float-vector 599.473 -300.0 945.827)))
+ (instance face :init :vertices (list (float-vector 642.427 300.0 835.779) (float-vector 622.178 300.0 891.754) (float-vector 622.178 153.9 891.754) (float-vector 624.36 160.215 885.722) (float-vector 642.427 174.225 835.779)))
+ (instance face :init :vertices (list (float-vector 642.427 -300.0 835.779) (float-vector 642.427 -174.225 835.779) (float-vector 624.36 -160.215 885.722) (float-vector 622.178 -153.9 891.754) (float-vector 622.178 -300.0 891.754)))
+ (instance face :init :vertices (list (float-vector 660.141 300.0 778.125) (float-vector 642.427 300.0 835.779) (float-vector 642.427 174.225 835.779) (float-vector 654.545 185.0 796.34) (float-vector 660.141 180.023 778.125)))
+ (instance face :init :vertices (list (float-vector 660.141 -300.0 778.125) (float-vector 660.141 -180.023 778.125) (float-vector 654.545 -185.0 796.34) (float-vector 642.427 -174.225 835.779) (float-vector 642.427 -300.0 835.779)))
+ (instance face :init :vertices (list (float-vector 675.25 300.0 719.017) (float-vector 660.141 300.0 778.125) (float-vector 660.141 180.023 778.125) (float-vector 675.25 164.283 719.017)))
+ (instance face :init :vertices (list (float-vector 675.25 -300.0 719.017) (float-vector 675.25 -164.283 719.017) (float-vector 660.141 -180.023 778.125) (float-vector 660.141 -300.0 778.125)))
+ (instance face :init :vertices (list (float-vector 687.694 300.0 658.69) (float-vector 675.25 300.0 719.017) (float-vector 675.25 164.283 719.017) (float-vector 678.482 160.215 703.35) (float-vector 687.694 116.932 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 -300.0 658.69) (float-vector 687.694 -116.932 658.69) (float-vector 678.482 -160.215 703.35) (float-vector 675.25 -164.283 719.017) (float-vector 675.25 -300.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 -300.0 597.381) (float-vector 697.424 300.0 597.381) (float-vector 687.694 300.0 658.69) (float-vector 687.694 116.932 658.69) (float-vector 691.795 92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 691.795 -92.5 632.846) (float-vector 687.694 -116.932 658.69) (float-vector 687.694 -300.0 658.69)))
+ (instance face :init :vertices (list (float-vector 704.401 -300.0 535.333) (float-vector 704.401 300.0 535.333) (float-vector 697.424 300.0 597.381) (float-vector 697.424 -300.0 597.381)))
+ (instance face :init :vertices (list (float-vector 708.599 -300.0 472.791) (float-vector 708.599 300.0 472.791) (float-vector 704.401 300.0 535.333) (float-vector 704.401 -300.0 535.333)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 410.0) (float-vector 710.0 300.0 410.0) (float-vector 708.599 300.0 472.791) (float-vector 708.599 -300.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 -300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 300.0 410.0) (float-vector 710.0 -300.0 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 710.0 300.0 0.0) (float-vector 710.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 -300.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 300.0 1094.55) (float-vector 547.064 300.0 1047.42) (float-vector 574.402 300.0 997.785) (float-vector 599.473 300.0 945.827) (float-vector 622.178 300.0 891.754) (float-vector 642.427 300.0 835.779) (float-vector 660.141 300.0 778.125) (float-vector 675.25 300.0 719.017) (float-vector 687.694 300.0 658.69) (float-vector 697.424 300.0 597.381) (float-vector 704.401 300.0 535.333) (float-vector 708.599 300.0 472.791) (float-vector 710.0 300.0 410.0) (float-vector 710.0 300.0 0.0) (float-vector 0.0 300.0 0.0) (float-vector 0.0 300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -300.0 1110.0) (float-vector 0.0 -300.0 0.0) (float-vector 710.0 -300.0 0.0) (float-vector 710.0 -300.0 410.0) (float-vector 708.599 -300.0 472.791) (float-vector 704.401 -300.0 535.333) (float-vector 697.424 -300.0 597.381) (float-vector 687.694 -300.0 658.69) (float-vector 675.25 -300.0 719.017) (float-vector 660.141 -300.0 778.125) (float-vector 642.427 -300.0 835.779) (float-vector 622.178 -300.0 891.754) (float-vector 599.473 -300.0 945.827) (float-vector 574.402 -300.0 997.785) (float-vector 547.064 -300.0 1047.42) (float-vector 517.568 -300.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 -300.0 1094.55) (float-vector 517.568 300.0 1094.55) (float-vector 0.0 300.0 1110.0) (float-vector 0.0 -300.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 695.956 0.0 606.629) (float-vector 691.795 92.5 632.846) (float-vector 585.107 92.5 571.25) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 585.107 92.5 571.25) (float-vector 691.795 92.5 632.846) (float-vector 687.694 116.932 658.69) (float-vector 678.482 160.215 703.35) (float-vector 551.25 160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 160.215 629.893) (float-vector 678.482 160.215 703.35) (float-vector 675.25 164.283 719.017) (float-vector 660.141 180.023 778.125) (float-vector 654.545 185.0 796.34) (float-vector 505.0 185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 185.0 710.0) (float-vector 654.545 185.0 796.34) (float-vector 642.427 174.225 835.779) (float-vector 624.36 160.215 885.722) (float-vector 458.75 160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 160.215 790.107) (float-vector 624.36 160.215 885.722) (float-vector 622.178 153.9 891.754) (float-vector 599.473 95.7191 945.827) (float-vector 598.07 92.5 948.734) (float-vector 424.893 92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 92.5 848.75) (float-vector 598.07 92.5 948.734) (float-vector 587.269 4.547474e-13 971.118) (float-vector 412.5 4.547474e-13 870.215)))
+ (instance face :init :vertices (list (float-vector 412.5 4.547474e-13 870.215) (float-vector 587.269 4.547474e-13 971.118) (float-vector 598.07 -92.5 948.734) (float-vector 424.893 -92.5 848.75)))
+ (instance face :init :vertices (list (float-vector 424.893 -92.5 848.75) (float-vector 598.07 -92.5 948.734) (float-vector 599.473 -95.7191 945.827) (float-vector 622.178 -153.9 891.754) (float-vector 624.36 -160.215 885.722) (float-vector 458.75 -160.215 790.107)))
+ (instance face :init :vertices (list (float-vector 458.75 -160.215 790.107) (float-vector 624.36 -160.215 885.722) (float-vector 642.427 -174.225 835.779) (float-vector 654.545 -185.0 796.34) (float-vector 505.0 -185.0 710.0)))
+ (instance face :init :vertices (list (float-vector 505.0 -185.0 710.0) (float-vector 654.545 -185.0 796.34) (float-vector 660.141 -180.023 778.125) (float-vector 675.25 -164.283 719.017) (float-vector 678.482 -160.215 703.35) (float-vector 551.25 -160.215 629.893)))
+ (instance face :init :vertices (list (float-vector 551.25 -160.215 629.893) (float-vector 678.482 -160.215 703.35) (float-vector 687.694 -116.932 658.69) (float-vector 691.795 -92.5 632.846) (float-vector 585.107 -92.5 571.25)))
+ (instance face :init :vertices (list (float-vector 585.107 -92.5 571.25) (float-vector 691.795 -92.5 632.846) (float-vector 695.956 0.0 606.629) (float-vector 597.5 0.0 549.785)))
+ (instance face :init :vertices (list (float-vector 597.5 0.0 549.785) (float-vector 585.107 92.5 571.25) (float-vector 551.25 160.215 629.893) (float-vector 505.0 185.0 710.0) (float-vector 458.75 160.215 790.107) (float-vector 424.893 92.5 848.75) (float-vector 412.5 4.547474e-13 870.215) (float-vector 424.893 -92.5 848.75) (float-vector 458.75 -160.215 790.107) (float-vector 505.0 -185.0 710.0) (float-vector 551.25 -160.215 629.893) (float-vector 585.107 -92.5 571.25)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -147,9 +147,9 @@
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 -9.094415e-17 0.939693) (9.094415e-17 1.0 6.367978e-17) (-0.939693 6.367978e-17 0.34202))))
+ (send blink1 :newcoords (make-coords :pos (float-vector 640.0 -210.0 770.0) :rot #2f((0.34202 -9.094415e-17 0.939693) (9.094415e-17 1.0 6.367978e-17) (-0.939693 6.367978e-17 0.34202))))
(send blink0 :assoc blink1)
- (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 -2.775558e-17 0.866025) (-2.775558e-17 1.0 4.807407e-17) (-0.866025 -4.807407e-17 0.5))))
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 -2.775558e-17 0.866025) (-2.775558e-17 1.0 4.807407e-17) (-0.866025 -4.807407e-17 0.5))))
(send blink0 :assoc blink2)
(send self :assoc blink0)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-04-22 10:53:20
|
Revision: 615
http://sourceforge.net/p/euslisp/code/615
Author: snozawa
Date: 2013-04-22 10:53:09 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
update location of laundry
Modified Paths:
--------------
trunk/EusLisp/models/laundary-machine-object.l
trunk/EusLisp/models/room602-laundary-machine-object.l
trunk/EusLisp/models/room610-laundary-machine-object.l
Modified: trunk/EusLisp/models/laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
+++ trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
@@ -67,15 +67,15 @@
;; definition of 'button
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 0.0 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 2.842171e-14 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
(instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 25.0 0.0 10.0)))
(instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
(instance face :init :vertices (list (float-vector -5.684342e-14 -25.0 10.0) (float-vector 0.0 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
(instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 0.0) (float-vector 0.0 -25.0 0.0) (float-vector -5.684342e-14 -25.0 10.0)))
(instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
- (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 0.0 0.0) (float-vector -25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 2.842171e-14 10.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -25.0 2.842171e-14 10.0)))
(instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
(instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
(instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 0.0 25.0 10.0)))
@@ -171,13 +171,13 @@
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "contents"))
(send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 490.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
(send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
(send self :assoc handle2)
;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
+ (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
(send self :assoc button0)
;; init-ending
Modified: trunk/EusLisp/models/room602-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
+++ trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
@@ -22,29 +22,29 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 9.094947e-13 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 9.094947e-13 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 9.094947e-13 997.785)))
+ (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 4.547474e-13 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
(instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 0.0 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
+ (instance face :init :vertices (list (float-vector 622.178 4.547474e-13 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
(instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 0.0 891.754)))
+ (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 4.547474e-13 891.754)))
(instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
(instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
(instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
(instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
(instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 0.0 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 0.0 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 4.547474e-13 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 4.547474e-13 658.69)))
(instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
(instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 9.094947e-13 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 9.094947e-13 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 9.094947e-13 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 9.094947e-13 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 5.684342e-14 600.0 1110.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 5.684342e-14 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 9.094947e-13 0.0) (float-vector 710.0 9.094947e-13 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 0.0 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 0.0 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 9.094947e-13 997.785) (float-vector 547.064 0.0 1047.42) (float-vector 517.568 9.094947e-13 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 9.094947e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 5.684342e-14 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 0.0 0.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 1.136868e-13 600.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 4.547474e-13 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 4.547474e-13 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 517.568 4.547474e-13 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
(instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
(instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
(instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
@@ -67,20 +67,20 @@
;; definition of 'button
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 -9.094947e-13 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -1.136868e-13 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 0.0 0.0) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 1.136868e-13 -25.0 0.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 0.0) (float-vector 25.0 -9.094947e-13 10.0)))
- (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
- (instance face :init :vertices (list (float-vector -1.136868e-13 -25.0 10.0) (float-vector 1.136868e-13 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector 1.136868e-13 -25.0 0.0) (float-vector -1.136868e-13 -25.0 10.0)))
- (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 -9.094947e-13 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 1.136868e-13 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector 0.0 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 2.273737e-13) (float-vector 21.6506 -12.5 2.273737e-13) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 1.136868e-13 -25.0 2.273737e-13) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -21.6506 -12.5 2.273737e-13) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 1.136868e-13) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 2.273737e-13) (float-vector 25.0 0.0 2.273737e-13) (float-vector 25.0 -9.094947e-13 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 2.273737e-13) (float-vector 21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -25.0 10.0) (float-vector 1.136868e-13 -25.0 2.273737e-13) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector 1.136868e-13 -25.0 2.273737e-13) (float-vector 0.0 -25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 2.273737e-13) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 -12.5 2.273737e-13) (float-vector -21.6506 -12.5 10.0)))
(instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -25.0 0.0 10.0)))
- (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
- (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector 0.0 25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 1.136868e-13) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 1.136868e-13) (float-vector -12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 1.136868e-13 25.0 10.0)))
(instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 -9.094947e-13 10.0) (float-vector 25.0 0.0 0.0) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 -9.094947e-13 10.0) (float-vector 25.0 0.0 2.273737e-13) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -90,54 +90,54 @@
;; definition of 'cap
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 122.5 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 297.5 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13) (float-vector 175.0 210.0 1.136868e-13) (float-vector 175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -3.410605e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 122.5 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector -3.410605e-13 35.0 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 0.0) (float-vector 0.0 385.0 1.136868e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13) (float-vector 175.0 210.0 0.0) (float-vector 175.0 210.0 30.0)))
(instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -2.273737e-13 35.0 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -151.554 297.5 30.0)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 1.136868e-13 385.0 30.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector -3.410605e-13 35.0 30.0) (float-vector -3.410605e-13 35.0 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0) (float-vector -3.410605e-13 35.0 0.0) (float-vector -3.410605e-13 35.0 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 1.136868e-13) (float-vector 0.0 385.0 1.136868e-13) (float-vector 0.0 385.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
))
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 186.195 317.5 1.136868e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 107.5 396.195 0.0) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 1.136868e-13)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 0.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 0.0)))
- (instance face :init :vertices (list (float-vector -107.5 396.195 2.273737e-13) (float-vector -107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 2.273737e-13)))
- (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 102.5 2.273737e-13) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 2.273737e-13)))
- (instance face :init :vertices (list (float-vector -3.410605e-13 -5.0 2.273737e-13) (float-vector -3.410605e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 107.5 23.8045 2.273737e-13) (float-vector 107.5 23.8045 30.0) (float-vector -3.410605e-13 -5.0 30.0) (float-vector -3.410605e-13 -5.0 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -3.410605e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 186.195 317.5 -1.136868e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 107.5 396.195 -2.273737e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 0.0 425.0 -1.136868e-13) (float-vector 1.136868e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 -2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -107.5 396.195 0.0) (float-vector -107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 0.0 425.0 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -186.195 317.5 -1.136868e-13) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 0.0)))
+ (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 23.8045 2.273737e-13) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
+ (instance face :init :vertices (list (float-vector -4.547474e-13 -5.0 0.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 107.5 23.8045 1.136868e-13) (float-vector 107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -4.547474e-13 -5.0 0.0)))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
:holes (list
- (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
+ (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -3.410605e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
))
- (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 107.5 23.8045 2.273737e-13) (float-vector -3.410605e-13 -5.0 2.273737e-13) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 2.273737e-13) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 2.273737e-13) (float-vector 1.136868e-13 425.0 0.0) (float-vector 107.5 396.195 0.0) (float-vector 186.195 317.5 1.136868e-13) (float-vector 215.0 210.0 2.273737e-13))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 1.136868e-13) (float-vector -4.547474e-13 -5.0 0.0) (float-vector -107.5 23.8045 2.273737e-13) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 -1.136868e-13) (float-vector -107.5 396.195 0.0) (float-vector 0.0 425.0 -1.136868e-13) (float-vector 107.5 396.195 -2.273737e-13) (float-vector 186.195 317.5 -1.136868e-13) (float-vector 215.0 210.0 2.273737e-13))
:holes (list
- (instance hole :init :vertices (list (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13)))
+ (instance hole :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 0.0 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -3.410605e-13 35.0 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13)))
))
- (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 175.0 210.0 1.136868e-13)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 1.136868e-13)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 1.136868e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 1.136868e-13)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 1.136868e-13) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 2.273737e-13)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 2.273737e-13) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 1.136868e-13)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 1.136868e-13) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 2.273737e-13)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 0.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 175.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 1.136868e-13) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 0.0 385.0 1.136868e-13) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 1.136868e-13) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0) (float-vector -3.410605e-13 35.0 30.0) (float-vector -3.410605e-13 35.0 0.0)))
+ (instance face :init :vertices (list (float-vector -3.410605e-13 35.0 0.0) (float-vector -3.410605e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13)))
(instance face :init :vertices (list (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -171,13 +171,13 @@
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "contents"))
(send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 490.0 770.0) :rot #2f((-3.053113e-16 -0.34202 -0.939693) (-1.0 6.938894e-16 1.110223e-16) (6.106227e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.053113e-16 -0.34202 -0.939693) (-1.0 6.938894e-16 1.110223e-16) (6.106227e-16 0.939693 -0.34202)) :name "handle-cap"))
(send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open-button"))
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open-button"))
(send self :assoc handle2)
;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open"))
+ (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open"))
(send self :assoc button0)
;; init-ending
Modified: trunk/EusLisp/models/room610-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
+++ trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
@@ -90,54 +90,54 @@
;; definition of 'cap
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 122.5 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 -2.273737e-13) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 -2.273737e-13) (float-vector 0.0 385.0 0.0) (float-vector 87.5 361.554 0.0) (float-vector 151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 0.0) (float-vector 175.0 210.0 0.0) (float-vector 175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -4.547474e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 2.273737e-13) (float-vector 151.554 122.5 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector -4.547474e-13 35.0 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 297.5 2.273737e-13) (float-vector -87.5 361.554 0.0) (float-vector 0.0 385.0 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 0.0) (float-vector 175.0 210.0 2.273737e-13) (float-vector 175.0 210.0 30.0)))
(instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 151.554 122.5 0.0) (float-vector 151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector -2.273737e-13 35.0 30.0)))
+ (instance face :init :vertices (list (float-vector -4.547474e-13 35.0 30.0) (float-vector -4.547474e-13 35.0 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -4.547474e-13 35.0 0.0) (float-vector -4.547474e-13 35.0 30.0)))
(instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 -2.273737e-13) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 -2.273737e-13) (float-vector -175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 -2.273737e-13) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
- (instance face :init :vertices (list (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 0.0) (float-vector -87.5 361.554 -2.273737e-13) (float-vector -87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0) (float-vector 0.0 385.0 0.0) (float-vector 0.0 385.0 30.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 2.273737e-13) (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 2.273737e-13) (float-vector -151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 2.273737e-13) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13) (float-vector 0.0 385.0 2.273737e-13) (float-vector 0.0 385.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
))
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 215.0 210.0 -2.273737e-13) (float-vector 186.195 317.5 -2.273737e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 107.5 396.195 -2.273737e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector 0.0 425.0 0.0) (float-vector 0.0 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -107.5 396.195 -4.547474e-13) (float-vector -107.5 396.195 30.0) (float-vector 0.0 425.0 30.0) (float-vector 0.0 425.0 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 317.5 -2.273737e-13) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 -4.547474e-13)))
- (instance face :init :vertices (list (float-vector -215.0 210.0 -4.547474e-13) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 -4.547474e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 186.195 317.5 0.0) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 107.5 396.195 0.0) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 425.0 2.273737e-13) (float-vector 0.0 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 396.195 -2.273737e-13) (float-vector -107.5 396.195 30.0) (float-vector 0.0 425.0 30.0) (float-vector 0.0 425.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 -2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -215.0 210.0 -2.273737e-13) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 -2.273737e-13)))
(instance face :init :vertices (list (float-vector -107.5 23.8045 -2.273737e-13) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector -4.547474e-13 -5.0 0.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector 107.5 23.8045 0.0) (float-vector 107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -4.547474e-13 -5.0 0.0)))
- (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 0.0)))
+ (instance face :init :vertices (list (float-vector -4.547474e-13 -5.0 2.273737e-13) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 -2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 107.5 23.8045 -2.273737e-13) (float-vector 107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -4.547474e-13 -5.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 -2.273737e-13)))
(instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 0.0 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
:holes (list
- (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
+ (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -4.547474e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
))
- (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 0.0) (float-vector -4.547474e-13 -5.0 0.0) (float-vector -107.5 23.8045 -2.273737e-13) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 -4.547474e-13) (float-vector -186.195 317.5 -2.273737e-13) (float-vector -107.5 396.195 -4.547474e-13) (float-vector 0.0 425.0 0.0) (float-vector 107.5 396.195 -2.273737e-13) (float-vector 186.195 317.5 -2.273737e-13) (float-vector 215.0 210.0 -2.273737e-13))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 -2.273737e-13) (float-vector -4.547474e-13 -5.0 2.273737e-13) (float-vector -107.5 23.8045 -2.273737e-13) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 -2.273737e-13) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 -2.273737e-13) (float-vector 0.0 425.0 2.273737e-13) (float-vector 107.5 396.195 0.0) (float-vector 186.195 317.5 0.0) (float-vector 215.0 210.0 0.0))
:holes (list
- (instance hole :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 0.0 385.0 0.0) (float-vector -87.5 361.554 -2.273737e-13) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 -2.273737e-13) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 151.554 122.5 0.0)))
+ (instance hole :init :vertices (list (float-vector 175.0 210.0 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 0.0 385.0 2.273737e-13) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 2.273737e-13) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -4.547474e-13 35.0 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 151.554 122.5 0.0)))
))
- (instance face :init :vertices (list (float-vector 215.0 210.0 -2.273737e-13) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 175.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 385.0 0.0) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 -2.273737e-13) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (floa...
[truncated message content] |
|
From: <sn...@us...> - 2013-04-22 10:53:18
|
Revision: 615
http://sourceforge.net/p/euslisp/code/615
Author: snozawa
Date: 2013-04-22 10:53:09 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
update location of laundry
Modified Paths:
--------------
trunk/EusLisp/models/laundary-machine-object.l
trunk/EusLisp/models/room602-laundary-machine-object.l
trunk/EusLisp/models/room610-laundary-machine-object.l
Modified: trunk/EusLisp/models/laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
+++ trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
@@ -67,15 +67,15 @@
;; definition of 'button
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 0.0 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 2.842171e-14 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
(instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 25.0 0.0 10.0)))
(instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
(instance face :init :vertices (list (float-vector -5.684342e-14 -25.0 10.0) (float-vector 0.0 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
(instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 0.0) (float-vector 0.0 -25.0 0.0) (float-vector -5.684342e-14 -25.0 10.0)))
(instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
- (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 0.0 0.0) (float-vector -25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 2.842171e-14 10.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 2.842171e-14 0.0) (float-vector -25.0 2.842171e-14 10.0)))
(instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
(instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
(instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 0.0 25.0 10.0)))
@@ -171,13 +171,13 @@
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "contents"))
(send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 490.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
(send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
(send self :assoc handle2)
;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
+ (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
(send self :assoc button0)
;; init-ending
Modified: trunk/EusLisp/models/room602-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
+++ trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
@@ -22,29 +22,29 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 9.094947e-13 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 9.094947e-13 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 9.094947e-13 997.785)))
+ (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 4.547474e-13 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
(instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 0.0 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
+ (instance face :init :vertices (list (float-vector 622.178 4.547474e-13 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
(instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 0.0 891.754)))
+ (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 4.547474e-13 891.754)))
(instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
(instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
(instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
(instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
(instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 0.0 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 0.0 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 4.547474e-13 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 4.547474e-13 658.69)))
(instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
(instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 9.094947e-13 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 9.094947e-13 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 9.094947e-13 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 9.094947e-13 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 5.684342e-14 600.0 1110.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 5.684342e-14 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 9.094947e-13 0.0) (float-vector 710.0 9.094947e-13 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 0.0 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 0.0 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 9.094947e-13 997.785) (float-vector 547.064 0.0 1047.42) (float-vector 517.568 9.094947e-13 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 9.094947e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 5.684342e-14 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 0.0 0.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 1.136868e-13 600.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 4.547474e-13 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 4.547474e-13 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 517.568 4.547474e-13 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
(instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
(instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
(instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
@@ -67,20 +67,20 @@
;; definition of 'button
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 -9.094947e-13 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -1.136868e-13 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 0.0 0.0) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 1.136868e-13 -25.0 0.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
- (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 0.0) (float-vector 25.0 -9.094947e-13 10.0)))
- (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
- (instance face :init :vertices (list (float-vector -1.136868e-13 -25.0 10.0) (float-vector 1.136868e-13 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector 1.136868e-13 -25.0 0.0) (float-vector -1.136868e-13 -25.0 10.0)))
- (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -12.5 -21.6506 10.0)))
- (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 -9.094947e-13 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 1.136868e-13 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector 0.0 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 2.273737e-13) (float-vector 21.6506 -12.5 2.273737e-13) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 1.136868e-13 -25.0 2.273737e-13) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -21.6506 -12.5 2.273737e-13) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 1.136868e-13) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 2.273737e-13) (float-vector 25.0 0.0 2.273737e-13) (float-vector 25.0 -9.094947e-13 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 2.273737e-13) (float-vector 21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 0.0 -25.0 10.0) (float-vector 1.136868e-13 -25.0 2.273737e-13) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector 1.136868e-13 -25.0 2.273737e-13) (float-vector 0.0 -25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 2.273737e-13) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 -12.5 2.273737e-13) (float-vector -21.6506 -12.5 10.0)))
(instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -25.0 0.0 10.0)))
- (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
- (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector 0.0 25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 1.136868e-13) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 1.136868e-13) (float-vector -12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 1.136868e-13 25.0 10.0)))
(instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
- (instance face :init :vertices (list (float-vector 25.0 -9.094947e-13 10.0) (float-vector 25.0 0.0 0.0) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 -9.094947e-13 10.0) (float-vector 25.0 0.0 2.273737e-13) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -90,54 +90,54 @@
;; definition of 'cap
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 122.5 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 297.5 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13) (float-vector 175.0 210.0 1.136868e-13) (float-vector 175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -3.410605e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 122.5 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector -3.410605e-13 35.0 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 0.0) (float-vector 0.0 385.0 1.136868e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13) (float-vector 175.0 210.0 0.0) (float-vector 175.0 210.0 30.0)))
(instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -2.273737e-13 35.0 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -151.554 297.5 30.0)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 1.136868e-13 385.0 30.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector -3.410605e-13 35.0 30.0) (float-vector -3.410605e-13 35.0 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0) (float-vector -3.410605e-13 35.0 0.0) (float-vector -3.410605e-13 35.0 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 1.136868e-13) (float-vector 0.0 385.0 1.136868e-13) (float-vector 0.0 385.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
))
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 186.195 317.5 1.136868e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 107.5 396.195 0.0) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 1.136868e-13)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 0.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 0.0)))
- (instance face :init :vertices (list (float-vector -107.5 396.195 2.273737e-13) (float-vector -107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 2.273737e-13)))
- (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 102.5 2.273737e-13) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 2.273737e-13)))
- (instance face :init :vertices (list (float-vector -3.410605e-13 -5.0 2.273737e-13) (float-vector -3.410605e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 107.5 23.8045 2.273737e-13) (float-vector 107.5 23.8045 30.0) (float-vector -3.410605e-13 -5.0 30.0) (float-vector -3.410605e-13 -5.0 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -3.410605e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 186.195 317.5 -1.136868e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 107.5 396.195 -2.273737e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 0.0 425.0 -1.136868e-13) (float-vector 1.136868e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 -2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -107.5 396.195 0.0) (float-vector -107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 0.0 425.0 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -186.195 317.5 -1.136868e-13) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 0.0)))
+ (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 23.8045 2.273737e-13) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
+ (instance face :init :vertices (list (float-vector -4.547474e-13 -5.0 0.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 107.5 23.8045 1.136868e-13) (float-vector 107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -4.547474e-13 -5.0 0.0)))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
:holes (list
- (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
+ (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -3.410605e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
))
- (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 107.5 23.8045 2.273737e-13) (float-vector -3.410605e-13 -5.0 2.273737e-13) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 2.273737e-13) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 2.273737e-13) (float-vector 1.136868e-13 425.0 0.0) (float-vector 107.5 396.195 0.0) (float-vector 186.195 317.5 1.136868e-13) (float-vector 215.0 210.0 2.273737e-13))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 1.136868e-13) (float-vector -4.547474e-13 -5.0 0.0) (float-vector -107.5 23.8045 2.273737e-13) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 -1.136868e-13) (float-vector -107.5 396.195 0.0) (float-vector 0.0 425.0 -1.136868e-13) (float-vector 107.5 396.195 -2.273737e-13) (float-vector 186.195 317.5 -1.136868e-13) (float-vector 215.0 210.0 2.273737e-13))
:holes (list
- (instance hole :init :vertices (list (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13)))
+ (instance hole :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 0.0 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 0.0) (float-vector -3.410605e-13 35.0 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13)))
))
- (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 175.0 210.0 1.136868e-13)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 1.136868e-13)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 1.136868e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 1.136868e-13)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 1.136868e-13) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 2.273737e-13)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 2.273737e-13) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 1.136868e-13)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 1.136868e-13) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 2.273737e-13)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 0.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 175.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 1.136868e-13) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 0.0 385.0 1.136868e-13) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 1.136868e-13) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 0.0) (float-vector -87.5 58.4456 30.0) (float-vector -3.410605e-13 35.0 30.0) (float-vector -3.410605e-13 35.0 0.0)))
+ (instance face :init :vertices (list (float-vector -3.410605e-13 35.0 0.0) (float-vector -3.410605e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13)))
(instance face :init :vertices (list (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -171,13 +171,13 @@
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "contents"))
(send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 490.0 770.0) :rot #2f((-3.053113e-16 -0.34202 -0.939693) (-1.0 6.938894e-16 1.110223e-16) (6.106227e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.053113e-16 -0.34202 -0.939693) (-1.0 6.938894e-16 1.110223e-16) (6.106227e-16 0.939693 -0.34202)) :name "handle-cap"))
(send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open-button"))
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open-button"))
(send self :assoc handle2)
;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open"))
+ (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open"))
(send self :assoc button0)
;; init-ending
Modified: trunk/EusLisp/models/room610-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
+++ trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 10:53:09 UTC (rev 615)
@@ -90,54 +90,54 @@
;; definition of 'cap
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 122.5 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 -2.273737e-13) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 -2.273737e-13) (float-vector 0.0 385.0 0.0) (float-vector 87.5 361.554 0.0) (float-vector 151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 0.0) (float-vector 175.0 210.0 0.0) (float-vector 175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -4.547474e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 2.273737e-13) (float-vector 151.554 122.5 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector -4.547474e-13 35.0 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -151.554 122.5 0.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 297.5 2.273737e-13) (float-vector -87.5 361.554 0.0) (float-vector 0.0 385.0 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 0.0) (float-vector 175.0 210.0 2.273737e-13) (float-vector 175.0 210.0 30.0)))
(instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 151.554 122.5 0.0) (float-vector 151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector -2.273737e-13 35.0 30.0)))
+ (instance face :init :vertices (list (float-vector -4.547474e-13 35.0 30.0) (float-vector -4.547474e-13 35.0 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -4.547474e-13 35.0 0.0) (float-vector -4.547474e-13 35.0 30.0)))
(instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 -2.273737e-13) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 -2.273737e-13) (float-vector -175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 -2.273737e-13) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
- (instance face :init :vertices (list (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 0.0) (float-vector -87.5 361.554 -2.273737e-13) (float-vector -87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0) (float-vector 0.0 385.0 0.0) (float-vector 0.0 385.0 30.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 2.273737e-13) (float-vector -175.0 210.0 0.0) (float-vector -175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 2.273737e-13) (float-vector -151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 2.273737e-13) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13) (float-vector 0.0 385.0 2.273737e-13) (float-vector 0.0 385.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
))
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 215.0 210.0 -2.273737e-13) (float-vector 186.195 317.5 -2.273737e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 107.5 396.195 -2.273737e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector 0.0 425.0 0.0) (float-vector 0.0 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -107.5 396.195 -4.547474e-13) (float-vector -107.5 396.195 30.0) (float-vector 0.0 425.0 30.0) (float-vector 0.0 425.0 0.0)))
- (instance face :init :vertices (list (float-vector -186.195 317.5 -2.273737e-13) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 -4.547474e-13)))
- (instance face :init :vertices (list (float-vector -215.0 210.0 -4.547474e-13) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 -4.547474e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 186.195 317.5 0.0) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 107.5 396.195 0.0) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 425.0 2.273737e-13) (float-vector 0.0 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 396.195 -2.273737e-13) (float-vector -107.5 396.195 30.0) (float-vector 0.0 425.0 30.0) (float-vector 0.0 425.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 -2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -215.0 210.0 -2.273737e-13) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 -2.273737e-13)))
(instance face :init :vertices (list (float-vector -107.5 23.8045 -2.273737e-13) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector -4.547474e-13 -5.0 0.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector 107.5 23.8045 0.0) (float-vector 107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -4.547474e-13 -5.0 0.0)))
- (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 0.0)))
+ (instance face :init :vertices (list (float-vector -4.547474e-13 -5.0 2.273737e-13) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 -2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 107.5 23.8045 -2.273737e-13) (float-vector 107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector -4.547474e-13 -5.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 -2.273737e-13)))
(instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 0.0 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -4.547474e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
:holes (list
- (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
+ (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -4.547474e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
))
- (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 0.0) (float-vector -4.547474e-13 -5.0 0.0) (float-vector -107.5 23.8045 -2.273737e-13) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 -4.547474e-13) (float-vector -186.195 317.5 -2.273737e-13) (float-vector -107.5 396.195 -4.547474e-13) (float-vector 0.0 425.0 0.0) (float-vector 107.5 396.195 -2.273737e-13) (float-vector 186.195 317.5 -2.273737e-13) (float-vector 215.0 210.0 -2.273737e-13))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 0.0) (float-vector 107.5 23.8045 -2.273737e-13) (float-vector -4.547474e-13 -5.0 2.273737e-13) (float-vector -107.5 23.8045 -2.273737e-13) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 -2.273737e-13) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 -2.273737e-13) (float-vector 0.0 425.0 2.273737e-13) (float-vector 107.5 396.195 0.0) (float-vector 186.195 317.5 0.0) (float-vector 215.0 210.0 0.0))
:holes (list
- (instance hole :init :vertices (list (float-vector 175.0 210.0 0.0) (float-vector 151.554 297.5 0.0) (float-vector 87.5 361.554 0.0) (float-vector 0.0 385.0 0.0) (float-vector -87.5 361.554 -2.273737e-13) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 -2.273737e-13) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 151.554 122.5 0.0)))
+ (instance hole :init :vertices (list (float-vector 175.0 210.0 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 0.0 385.0 2.273737e-13) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 2.273737e-13) (float-vector -175.0 210.0 0.0) (float-vector -151.554 122.5 0.0) (float-vector -87.5 58.4456 -2.273737e-13) (float-vector -4.547474e-13 35.0 0.0) (float-vector 87.5 58.4456 -2.273737e-13) (float-vector 151.554 122.5 0.0)))
))
- (instance face :init :vertices (list (float-vector 215.0 210.0 -2.273737e-13) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 0.0) (float-vector 175.0 210.0 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 0.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 0.0) (float-vector 87.5 361.554 30.0) (float-vector 0.0 385.0 30.0) (float-vector 0.0 385.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 385.0 0.0) (float-vector 0.0 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 -2.273737e-13) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (floa...
[truncated message content] |
|
From: <sn...@us...> - 2013-04-22 10:48:42
|
Revision: 614
http://sourceforge.net/p/euslisp/code/614
Author: snozawa
Date: 2013-04-22 10:48:29 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
fix number of joint and links for laundry
Modified Paths:
--------------
trunk/EusLisp/models/laundary-machine-object.l
trunk/EusLisp/models/room602-laundary-machine-object.l
trunk/EusLisp/models/room610-laundary-machine-object.l
Modified: trunk/EusLisp/models/laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundary-machine-object.l 2013-04-20 13:27:54 UTC (rev 613)
+++ trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
@@ -8,12 +8,12 @@
:slots (sensors
handle0 handle1 handle2
button0
- joint0 ))
+ joint0 joint1 ))
(defmethod laundary-machine-object
(:init
(&rest args &key (name "laundary-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
(let (c bc
- blink0 blink1
+ blink0 blink1 blink2
)
(send-super* :init :name name args)
@@ -22,22 +22,6 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 621.16 540.0 913.349) (float-vector 619.486 552.5 916.25) (float-vector 614.91 561.651 924.175) (float-vector 608.66 565.0 935.0) (float-vector 602.41 561.651 945.825) (float-vector 597.835 552.5 953.75) (float-vector 596.16 540.0 956.651) (float-vector 597.835 527.5 953.75) (float-vector 602.41 518.349 945.825) (float-vector 608.66 515.0 935.0) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 612.5 540.0 908.349) (float-vector 610.825 527.5 911.25) (float-vector 606.25 518.349 919.175) (float-vector 600.0 515.0 930.0) (float-vector 593.75 518.349 940.825) (float-vector 589.175 527.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 589.175 552.5 948.75) (float-vector 593.75 561.651 940.825) (float-vector 600.0 565.0 930.0) (float-vector 606.25 561.651 919.175) (float-vector 610.825 552.5 911.25)))
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 610.825 527.5 911.25) (float-vector 612.5 540.0 908.349) (float-vector 621.16 540.0 913.349)))
- (instance face :init :vertices (list (float-vector 614.91 518.349 924.175) (float-vector 606.25 518.349 919.175) (float-vector 610.825 527.5 911.25) (float-vector 619.486 527.5 916.25)))
- (instance face :init :vertices (list (float-vector 608.66 515.0 935.0) (float-vector 600.0 515.0 930.0) (float-vector 606.25 518.349 919.175) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 602.41 518.349 945.825) (float-vector 593.75 518.349 940.825) (float-vector 600.0 515.0 930.0) (float-vector 608.66 515.0 935.0)))
- (instance face :init :vertices (list (float-vector 597.835 527.5 953.75) (float-vector 589.175 527.5 948.75) (float-vector 593.75 518.349 940.825) (float-vector 602.41 518.349 945.825)))
- (instance face :init :vertices (list (float-vector 596.16 540.0 956.651) (float-vector 587.5 540.0 951.651) (float-vector 589.175 527.5 948.75) (float-vector 597.835 527.5 953.75)))
- (instance face :init :vertices (list (float-vector 597.835 552.5 953.75) (float-vector 589.175 552.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 596.16 540.0 956.651)))
- (instance face :init :vertices (list (float-vector 602.41 561.651 945.825) (float-vector 593.75 561.651 940.825) (float-vector 589.175 552.5 948.75) (float-vector 597.835 552.5 953.75)))
- (instance face :init :vertices (list (float-vector 608.66 565.0 935.0) (float-vector 600.0 565.0 930.0) (float-vector 593.75 561.651 940.825) (float-vector 602.41 561.651 945.825)))
- (instance face :init :vertices (list (float-vector 614.91 561.651 924.175) (float-vector 606.25 561.651 919.175) (float-vector 600.0 565.0 930.0) (float-vector 608.66 565.0 935.0)))
- (instance face :init :vertices (list (float-vector 619.486 552.5 916.25) (float-vector 610.825 552.5 911.25) (float-vector 606.25 561.651 919.175) (float-vector 614.91 561.651 924.175)))
- (instance face :init :vertices (list (float-vector 621.16 540.0 913.349) (float-vector 612.5 540.0 908.349) (float-vector 610.825 552.5 911.25) (float-vector 619.486 552.5 916.25)))
- ))
- (instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
(instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
(instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
@@ -78,9 +62,31 @@
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :white)
- (send (elt bc 1) :set-color :white)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 0.0 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -5.684342e-14 -25.0 10.0) (float-vector 0.0 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 0.0) (float-vector 0.0 -25.0 0.0) (float-vector -5.684342e-14 -25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 0.0 0.0) (float-vector -25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 0.0 25.0 10.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 10.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :white)
+ (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'button :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 'cap
(setq bc (list
(instance faceset :init :faces (list
@@ -143,6 +149,8 @@
;; definition of assoc
(send blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
(send blink0 :assoc blink1)
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
+ (send blink0 :assoc blink2)
(send self :assoc blink0)
;; definition of end-coords
@@ -154,22 +162,27 @@
:parent-link blink0 :child-link blink1 :name :joint0 :axis :x
:min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
+ ;; definition of :joint1
+ (setq joint1 (instance linear-joint :init
+ :parent-link blink0 :child-link blink2 :name :joint1 :axis (float-vector 0.0 0.0 1.0)
+ :min -90.0 :max 90.0 :max-joint-velocity 0.785398 :max-joint-torque 100))
+
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "contents"))
(send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 490.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
(send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
(send self :assoc handle2)
;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
+ (setq button0 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
(send self :assoc button0)
;; init-ending
- (setq links (list blink0 blink1))
- (setq joint-list (list joint0))
+ (setq links (list blink0 blink1 blink2))
+ (setq joint-list (list joint0 joint1))
(send self :init-ending)
(send self :move-to (make-coords :pos pos :rot rot))
(send-all links :worldcoords)
@@ -179,6 +192,7 @@
(forward-message-to-all (list) args))
(:joint0 (&rest args) (forward-message-to joint0 args))
+ (:joint1 (&rest args) (forward-message-to joint1 args))
(:handle () (list handle0 handle1 handle2))
(:handle-contents () handle0)
(:handle-handle-cap () handle1)
Modified: trunk/EusLisp/models/room602-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-20 13:27:54 UTC (rev 613)
+++ trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
@@ -8,12 +8,12 @@
:slots (sensors
handle0 handle1 handle2
button0
- joint0 ))
+ joint0 joint1 ))
(defmethod room602-laundary-machine-object
(:init
(&rest args &key (name "room602-laundary-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
(let (c bc
- blink0 blink1
+ blink0 blink1 blink2
)
(send-super* :init :name name args)
@@ -22,45 +22,29 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 621.16 540.0 913.349) (float-vector 619.486 552.5 916.25) (float-vector 614.91 561.651 924.175) (float-vector 608.66 565.0 935.0) (float-vector 602.41 561.651 945.825) (float-vector 597.835 552.5 953.75) (float-vector 596.16 540.0 956.651) (float-vector 597.835 527.5 953.75) (float-vector 602.41 518.349 945.825) (float-vector 608.66 515.0 935.0) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 612.5 540.0 908.349) (float-vector 610.825 527.5 911.25) (float-vector 606.25 518.349 919.175) (float-vector 600.0 515.0 930.0) (float-vector 593.75 518.349 940.825) (float-vector 589.175 527.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 589.175 552.5 948.75) (float-vector 593.75 561.651 940.825) (float-vector 600.0 565.0 930.0) (float-vector 606.25 561.651 919.175) (float-vector 610.825 552.5 911.25)))
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 610.825 527.5 911.25) (float-vector 612.5 540.0 908.349) (float-vector 621.16 540.0 913.349)))
- (instance face :init :vertices (list (float-vector 614.91 518.349 924.175) (float-vector 606.25 518.349 919.175) (float-vector 610.825 527.5 911.25) (float-vector 619.486 527.5 916.25)))
- (instance face :init :vertices (list (float-vector 608.66 515.0 935.0) (float-vector 600.0 515.0 930.0) (float-vector 606.25 518.349 919.175) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 602.41 518.349 945.825) (float-vector 593.75 518.349 940.825) (float-vector 600.0 515.0 930.0) (float-vector 608.66 515.0 935.0)))
- (instance face :init :vertices (list (float-vector 597.835 527.5 953.75) (float-vector 589.175 527.5 948.75) (float-vector 593.75 518.349 940.825) (float-vector 602.41 518.349 945.825)))
- (instance face :init :vertices (list (float-vector 596.16 540.0 956.651) (float-vector 587.5 540.0 951.651) (float-vector 589.175 527.5 948.75) (float-vector 597.835 527.5 953.75)))
- (instance face :init :vertices (list (float-vector 597.835 552.5 953.75) (float-vector 589.175 552.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 596.16 540.0 956.651)))
- (instance face :init :vertices (list (float-vector 602.41 561.651 945.825) (float-vector 593.75 561.651 940.825) (float-vector 589.175 552.5 948.75) (float-vector 597.835 552.5 953.75)))
- (instance face :init :vertices (list (float-vector 608.66 565.0 935.0) (float-vector 600.0 565.0 930.0) (float-vector 593.75 561.651 940.825) (float-vector 602.41 561.651 945.825)))
- (instance face :init :vertices (list (float-vector 614.91 561.651 924.175) (float-vector 606.25 561.651 919.175) (float-vector 600.0 565.0 930.0) (float-vector 608.66 565.0 935.0)))
- (instance face :init :vertices (list (float-vector 619.486 552.5 916.25) (float-vector 610.825 552.5 911.25) (float-vector 606.25 561.651 919.175) (float-vector 614.91 561.651 924.175)))
- (instance face :init :vertices (list (float-vector 621.16 540.0 913.349) (float-vector 612.5 540.0 908.349) (float-vector 610.825 552.5 911.25) (float-vector 619.486 552.5 916.25)))
- ))
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 4.547474e-13 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
+ (instance face :init :vertices (list (float-vector 517.568 9.094947e-13 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 9.094947e-13 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 9.094947e-13 997.785)))
(instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 4.547474e-13 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
+ (instance face :init :vertices (list (float-vector 622.178 0.0 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
(instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 4.547474e-13 891.754)))
+ (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 0.0 891.754)))
(instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
(instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
(instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
(instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
(instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 4.547474e-13 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 4.547474e-13 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 0.0 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 0.0 658.69)))
(instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
(instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 1.136868e-13 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 4.547474e-13 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 4.547474e-13 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 517.568 4.547474e-13 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 710.0 9.094947e-13 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 9.094947e-13 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 9.094947e-13 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 9.094947e-13 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 5.684342e-14 600.0 1110.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 0.0 0.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 5.684342e-14 600.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 9.094947e-13 0.0) (float-vector 710.0 9.094947e-13 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 0.0 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 0.0 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 9.094947e-13 997.785) (float-vector 547.064 0.0 1047.42) (float-vector 517.568 9.094947e-13 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 9.094947e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 5.684342e-14 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
(instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
(instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
(instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
@@ -78,60 +62,82 @@
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :white)
- (send (elt bc 1) :set-color :white)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 -9.094947e-13 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -1.136868e-13 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 0.0) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 1.136868e-13 -25.0 0.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 0.0) (float-vector 25.0 -9.094947e-13 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -1.136868e-13 -25.0 10.0) (float-vector 1.136868e-13 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector 1.136868e-13 -25.0 0.0) (float-vector -1.136868e-13 -25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector 0.0 25.0 10.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 -9.094947e-13 10.0) (float-vector 25.0 0.0 0.0) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :white)
+ (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'button :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 'cap
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 2.273737e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 -2.273737e-13) (float-vector 151.554 122.5 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -151.554 122.5 -1.136868e-13) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 0.0) (float-vector 2.273737e-13 385.0 0.0) (float-vector 87.5 361.554 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 0.0) (float-vector 175.0 210.0 -2.273737e-13) (float-vector 175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 0.0) (float-vector 151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector -2.273737e-13 35.0 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 -1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 122.5 -1.136868e-13) (float-vector -151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
- (instance face :init :vertices (list (float-vector 2.273737e-13 385.0 30.0) (float-vector 2.273737e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 1.136868e-13) (float-vector 2.273737e-13 385.0 0.0) (float-vector 2.273737e-13 385.0 30.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 -2.273737e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 122.5 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 297.5 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13) (float-vector 175.0 210.0 1.136868e-13) (float-vector 175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -2.273737e-13 35.0 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 1.136868e-13 385.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
))
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 186.195 317.5 -2.273737e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 107.5 396.195 -2.273737e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 -1.136868e-13) (float-vector 2.273737e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -107.5 396.195 0.0) (float-vector -107.5 396.195 30.0) (float-vector 2.273737e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -186.195 317.5 -1.136868e-13) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 0.0)))
- (instance face :init :vertices (list (float-vector -215.0 210.0 -2.273737e-13) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector -3.410605e-13 -5.0 0.0) (float-vector -2.273737e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 107.5 23.8045 0.0) (float-vector 107.5 23.8045 30.0) (float-vector -2.273737e-13 -5.0 30.0) (float-vector -3.410605e-13 -5.0 0.0)))
- (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 2.273737e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -2.273737e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 186.195 317.5 1.136868e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 107.5 396.195 0.0) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 0.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 396.195 2.273737e-13) (float-vector -107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 102.5 2.273737e-13) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -3.410605e-13 -5.0 2.273737e-13) (float-vector -3.410605e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
+ (instance face :init :vertices (list (float-vector 107.5 23.8045 2.273737e-13) (float-vector 107.5 23.8045 30.0) (float-vector -3.410605e-13 -5.0 30.0) (float-vector -3.410605e-13 -5.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -3.410605e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
:holes (list
- (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 2.273737e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
+ (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
))
- (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 107.5 23.8045 0.0) (float-vector -3.410605e-13 -5.0 0.0) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 -2.273737e-13) (float-vector -186.195 317.5 -1.136868e-13) (float-vector -107.5 396.195 0.0) (float-vector 1.136868e-13 425.0 -1.136868e-13) (float-vector 107.5 396.195 -2.273737e-13) (float-vector 186.195 317.5 -2.273737e-13) (float-vector 215.0 210.0 0.0))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 107.5 23.8045 2.273737e-13) (float-vector -3.410605e-13 -5.0 2.273737e-13) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 2.273737e-13) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 2.273737e-13) (float-vector 1.136868e-13 425.0 0.0) (float-vector 107.5 396.195 0.0) (float-vector 186.195 317.5 1.136868e-13) (float-vector 215.0 210.0 2.273737e-13))
:holes (list
- (instance hole :init :vertices (list (float-vector 175.0 210.0 -2.273737e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 2.273737e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 122.5 -1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 0.0)))
+ (instance hole :init :vertices (list (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13)))
))
- (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 175.0 210.0 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 1.136868e-13)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 1.136868e-13) (float-vector 87.5 361.554 30.0) (float-vector 2.273737e-13 385.0 30.0) (float-vector 2.273737e-13 385.0 0.0)))
- (instance face :init :vertices (list (float-vector 2.273737e-13 385.0 0.0) (float-vector 2.273737e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 1.136868e-13)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 1.136868e-13) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 -1.136868e-13) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 0.0)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 0.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 0.0) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 -2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 175.0 210.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 1.136868e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 1.136868e-13) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 2.273737e-13) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 1.136868e-13) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 1.136868e-13)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -141,8 +147,10 @@
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 -6.816092e-18 0.939693) (3.865598e-17 1.0 -6.816092e-18) (-0.939693 3.865598e-17 0.34202))))
+ (send blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 -1.477606e-17 0.939693) (3.069601e-17 1.0 4.551926e-18) (-0.939693 2.728796e-17 0.34202))))
(send blink0 :assoc blink1)
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5))))
+ (send blink0 :assoc blink2)
(send self :assoc blink0)
;; definition of end-coords
@@ -154,22 +162,27 @@
:parent-link blink0 :child-link blink1 :name :joint0 :axis :x
:min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
+ ;; definition of :joint1
+ (setq joint1 (instance linear-joint :init
+ :parent-link blink0 :child-link blink2 :name :joint1 :axis (float-vector 0.0 0.0 1.0)
+ :min -90.0 :max 90.0 :max-joint-velocity 0.785398 :max-joint-torque 100))
+
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "contents"))
(send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.053113e-16 -0.34202 -0.939693) (-1.0 6.938894e-16 1.110223e-16) (6.106227e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 490.0 770.0) :rot #2f((-3.053113e-16 -0.34202 -0.939693) (-1.0 6.938894e-16 1.110223e-16) (6.106227e-16 0.939693 -0.34202)) :name "handle-cap"))
(send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 6.517221e-17 0.866025) (-7.904999e-17 1.0 -2.961485e-17) (-0.866025 -5.365188e-17 0.5)) :name "open-button"))
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open-button"))
(send self :assoc handle2)
;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open"))
+ (setq button0 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open"))
(send self :assoc button0)
;; init-ending
- (setq links (list blink0 blink1))
- (setq joint-list (list joint0))
+ (setq links (list blink0 blink1 blink2))
+ (setq joint-list (list joint0 joint1))
(send self :init-ending)
(send self :move-to (make-coords :pos pos :rot rot))
(send-all links :worldcoords)
@@ -179,6 +192,7 @@
(forward-message-to-all (list) args))
(:joint0 (&rest args) (forward-message-to joint0 args))
+ (:joint1 (&rest args) (forward-message-to joint1 args))
(:handle () (list handle0 handle1 handle2))
(:handle-contents () handle0)
(:handle-handle-cap () handle1)
Modified: trunk/EusLisp/models/room610-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-20 13:27:54 UTC (rev 613)
+++ trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
@@ -8,12 +8,12 @@
:slots (sensors
handle0 handle1 handle2
button0
- joint0 ))
+ joint0 joint1 ))
(defmethod room610-laundary-machine-object
(:init
(&rest args &key (name "room610-laundary-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
(let (c bc
- blink0 blink1
+ blink0 blink1 blink2
)
(send-super* :init :name name args)
@@ -22,22 +22,6 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 621.16 540.0 913.349) (float-vector 619.486 552.5 916.25) (float-vector 614.91 561.651 924.175) (float-vector 608.66 565.0 935.0) (float-vector 602.41 561.651 945.825) (float-vector 597.835 552.5 953.75) (float-vector 596.16 540.0 956.651) (float-vector 597.835 527.5 953.75) (float-vector 602.41 518.349 945.825) (float-vector 608.66 515.0 935.0) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 612.5 540.0 908.349) (float-vector 610.825 527.5 911.25) (float-vector 606.25 518.349 919.175) (float-vector 600.0 515.0 930.0) (float-vector 593.75 518.349 940.825) (float-vector 589.175 527.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 589.175 552.5 948.75) (float-vector 593.75 561.651 940.825) (float-vector 600.0 565.0 930.0) (float-vector 606.25 561.651 919.175) (float-vector 610.825 552.5 911.25)))
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 610.825 527.5 911.25) (float-vector 612.5 540.0 908.349) (float-vector 621.16 540.0 913.349)))
- (instance face :init :vertices (list (float-vector 614.91 518.349 924.175) (float-vector 606.25 518.349 919.175) (float-vector 610.825 527.5 911.25) (float-vector 619.486 527.5 916.25)))
- (instance face :init :vertices (list (float-vector 608.66 515.0 935.0) (float-vector 600.0 515.0 930.0) (float-vector 606.25 518.349 919.175) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 602.41 518.349 945.825) (float-vector 593.75 518.349 940.825) (float-vector 600.0 515.0 930.0) (float-vector 608.66 515.0 935.0)))
- (instance face :init :vertices (list (float-vector 597.835 527.5 953.75) (float-vector 589.175 527.5 948.75) (float-vector 593.75 518.349 940.825) (float-vector 602.41 518.349 945.825)))
- (instance face :init :vertices (list (float-vector 596.16 540.0 956.651) (float-vector 587.5 540.0 951.651) (float-vector 589.175 527.5 948.75) (float-vector 597.835 527.5 953.75)))
- (instance face :init :vertices (list (float-vector 597.835 552.5 953.75) (float-vector 589.175 552.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 596.16 540.0 956.651)))
- (instance face :init :vertices (list (float-vector 602.41 561.651 945.825) (float-vector 593.75 561.651 940.825) (float-vector 589.175 552.5 948.75) (float-vector 597.835 552.5 953.75)))
- (instance face :init :vertices (list (float-vector 608.66 565.0 935.0) (float-vector 600.0 565.0 930.0) (float-vector 593.75 561.651 940.825) (float-vector 602.41 561.651 945.825)))
- (instance face :init :vertices (list (float-vector 614.91 561.651 924.175) (float-vector 606.25 561.651 919.175) (float-vector 600.0 565.0 930.0) (float-vector 608.66 565.0 935.0)))
- (instance face :init :vertices (list (float-vector 619.486 552.5 916.25) (float-vector 610.825 552.5 911.25) (float-vector 606.25 561.651 919.175) (float-vector 614.91 561.651 924.175)))
- (instance face :init :vertices (list (float-vector 621.16 540.0 913.349) (float-vector 612.5 540.0 908.349) (float-vector 610.825 552.5 911.25) (float-vector 619.486 552.5 916.25)))
- ))
- (instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
(instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
(instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
@@ -78,60 +62,82 @@
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :white)
- (send (elt bc 1) :set-color :white)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
+ (set...
[truncated message content] |
|
From: <sn...@us...> - 2013-04-22 10:48:40
|
Revision: 614
http://sourceforge.net/p/euslisp/code/614
Author: snozawa
Date: 2013-04-22 10:48:29 +0000 (Mon, 22 Apr 2013)
Log Message:
-----------
fix number of joint and links for laundry
Modified Paths:
--------------
trunk/EusLisp/models/laundary-machine-object.l
trunk/EusLisp/models/room602-laundary-machine-object.l
trunk/EusLisp/models/room610-laundary-machine-object.l
Modified: trunk/EusLisp/models/laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/laundary-machine-object.l 2013-04-20 13:27:54 UTC (rev 613)
+++ trunk/EusLisp/models/laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
@@ -8,12 +8,12 @@
:slots (sensors
handle0 handle1 handle2
button0
- joint0 ))
+ joint0 joint1 ))
(defmethod laundary-machine-object
(:init
(&rest args &key (name "laundary-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
(let (c bc
- blink0 blink1
+ blink0 blink1 blink2
)
(send-super* :init :name name args)
@@ -22,22 +22,6 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 621.16 540.0 913.349) (float-vector 619.486 552.5 916.25) (float-vector 614.91 561.651 924.175) (float-vector 608.66 565.0 935.0) (float-vector 602.41 561.651 945.825) (float-vector 597.835 552.5 953.75) (float-vector 596.16 540.0 956.651) (float-vector 597.835 527.5 953.75) (float-vector 602.41 518.349 945.825) (float-vector 608.66 515.0 935.0) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 612.5 540.0 908.349) (float-vector 610.825 527.5 911.25) (float-vector 606.25 518.349 919.175) (float-vector 600.0 515.0 930.0) (float-vector 593.75 518.349 940.825) (float-vector 589.175 527.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 589.175 552.5 948.75) (float-vector 593.75 561.651 940.825) (float-vector 600.0 565.0 930.0) (float-vector 606.25 561.651 919.175) (float-vector 610.825 552.5 911.25)))
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 610.825 527.5 911.25) (float-vector 612.5 540.0 908.349) (float-vector 621.16 540.0 913.349)))
- (instance face :init :vertices (list (float-vector 614.91 518.349 924.175) (float-vector 606.25 518.349 919.175) (float-vector 610.825 527.5 911.25) (float-vector 619.486 527.5 916.25)))
- (instance face :init :vertices (list (float-vector 608.66 515.0 935.0) (float-vector 600.0 515.0 930.0) (float-vector 606.25 518.349 919.175) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 602.41 518.349 945.825) (float-vector 593.75 518.349 940.825) (float-vector 600.0 515.0 930.0) (float-vector 608.66 515.0 935.0)))
- (instance face :init :vertices (list (float-vector 597.835 527.5 953.75) (float-vector 589.175 527.5 948.75) (float-vector 593.75 518.349 940.825) (float-vector 602.41 518.349 945.825)))
- (instance face :init :vertices (list (float-vector 596.16 540.0 956.651) (float-vector 587.5 540.0 951.651) (float-vector 589.175 527.5 948.75) (float-vector 597.835 527.5 953.75)))
- (instance face :init :vertices (list (float-vector 597.835 552.5 953.75) (float-vector 589.175 552.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 596.16 540.0 956.651)))
- (instance face :init :vertices (list (float-vector 602.41 561.651 945.825) (float-vector 593.75 561.651 940.825) (float-vector 589.175 552.5 948.75) (float-vector 597.835 552.5 953.75)))
- (instance face :init :vertices (list (float-vector 608.66 565.0 935.0) (float-vector 600.0 565.0 930.0) (float-vector 593.75 561.651 940.825) (float-vector 602.41 561.651 945.825)))
- (instance face :init :vertices (list (float-vector 614.91 561.651 924.175) (float-vector 606.25 561.651 919.175) (float-vector 600.0 565.0 930.0) (float-vector 608.66 565.0 935.0)))
- (instance face :init :vertices (list (float-vector 619.486 552.5 916.25) (float-vector 610.825 552.5 911.25) (float-vector 606.25 561.651 919.175) (float-vector 614.91 561.651 924.175)))
- (instance face :init :vertices (list (float-vector 621.16 540.0 913.349) (float-vector 612.5 540.0 908.349) (float-vector 610.825 552.5 911.25) (float-vector 619.486 552.5 916.25)))
- ))
- (instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
(instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
(instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
@@ -78,9 +62,31 @@
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :white)
- (send (elt bc 1) :set-color :white)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 0.0 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -5.684342e-14 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 0.0 -25.0 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 0.0 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -5.684342e-14 -25.0 10.0) (float-vector 0.0 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 0.0) (float-vector 0.0 -25.0 0.0) (float-vector -5.684342e-14 -25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 0.0) (float-vector -12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 0.0) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 0.0 0.0) (float-vector -25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector 0.0 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector 0.0 25.0 0.0) (float-vector 0.0 25.0 10.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 10.0) (float-vector 25.0 0.0 1.136868e-13) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :white)
+ (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'button :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 'cap
(setq bc (list
(instance faceset :init :faces (list
@@ -143,6 +149,8 @@
;; definition of assoc
(send blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 0.0 0.939693) (0.0 1.0 0.0) (-0.939693 0.0 0.34202))))
(send blink0 :assoc blink1)
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5))))
+ (send blink0 :assoc blink2)
(send self :assoc blink0)
;; definition of end-coords
@@ -154,22 +162,27 @@
:parent-link blink0 :child-link blink1 :name :joint0 :axis :x
:min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
+ ;; definition of :joint1
+ (setq joint1 (instance linear-joint :init
+ :parent-link blink0 :child-link blink2 :name :joint1 :axis (float-vector 0.0 0.0 1.0)
+ :min -90.0 :max 90.0 :max-joint-velocity 0.785398 :max-joint-torque 100))
+
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "contents"))
(send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 490.0 770.0) :rot #2f((-3.330669e-16 -0.34202 -0.939693) (-1.0 4.440892e-16 1.665335e-16) (3.330669e-16 0.939693 -0.34202)) :name "handle-cap"))
(send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open-button"))
(send self :assoc handle2)
;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
+ (setq button0 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 0.0 0.866025) (0.0 1.0 0.0) (-0.866025 0.0 0.5)) :name "open"))
(send self :assoc button0)
;; init-ending
- (setq links (list blink0 blink1))
- (setq joint-list (list joint0))
+ (setq links (list blink0 blink1 blink2))
+ (setq joint-list (list joint0 joint1))
(send self :init-ending)
(send self :move-to (make-coords :pos pos :rot rot))
(send-all links :worldcoords)
@@ -179,6 +192,7 @@
(forward-message-to-all (list) args))
(:joint0 (&rest args) (forward-message-to joint0 args))
+ (:joint1 (&rest args) (forward-message-to joint1 args))
(:handle () (list handle0 handle1 handle2))
(:handle-contents () handle0)
(:handle-handle-cap () handle1)
Modified: trunk/EusLisp/models/room602-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-20 13:27:54 UTC (rev 613)
+++ trunk/EusLisp/models/room602-laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
@@ -8,12 +8,12 @@
:slots (sensors
handle0 handle1 handle2
button0
- joint0 ))
+ joint0 joint1 ))
(defmethod room602-laundary-machine-object
(:init
(&rest args &key (name "room602-laundary-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
(let (c bc
- blink0 blink1
+ blink0 blink1 blink2
)
(send-super* :init :name name args)
@@ -22,45 +22,29 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 621.16 540.0 913.349) (float-vector 619.486 552.5 916.25) (float-vector 614.91 561.651 924.175) (float-vector 608.66 565.0 935.0) (float-vector 602.41 561.651 945.825) (float-vector 597.835 552.5 953.75) (float-vector 596.16 540.0 956.651) (float-vector 597.835 527.5 953.75) (float-vector 602.41 518.349 945.825) (float-vector 608.66 515.0 935.0) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 612.5 540.0 908.349) (float-vector 610.825 527.5 911.25) (float-vector 606.25 518.349 919.175) (float-vector 600.0 515.0 930.0) (float-vector 593.75 518.349 940.825) (float-vector 589.175 527.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 589.175 552.5 948.75) (float-vector 593.75 561.651 940.825) (float-vector 600.0 565.0 930.0) (float-vector 606.25 561.651 919.175) (float-vector 610.825 552.5 911.25)))
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 610.825 527.5 911.25) (float-vector 612.5 540.0 908.349) (float-vector 621.16 540.0 913.349)))
- (instance face :init :vertices (list (float-vector 614.91 518.349 924.175) (float-vector 606.25 518.349 919.175) (float-vector 610.825 527.5 911.25) (float-vector 619.486 527.5 916.25)))
- (instance face :init :vertices (list (float-vector 608.66 515.0 935.0) (float-vector 600.0 515.0 930.0) (float-vector 606.25 518.349 919.175) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 602.41 518.349 945.825) (float-vector 593.75 518.349 940.825) (float-vector 600.0 515.0 930.0) (float-vector 608.66 515.0 935.0)))
- (instance face :init :vertices (list (float-vector 597.835 527.5 953.75) (float-vector 589.175 527.5 948.75) (float-vector 593.75 518.349 940.825) (float-vector 602.41 518.349 945.825)))
- (instance face :init :vertices (list (float-vector 596.16 540.0 956.651) (float-vector 587.5 540.0 951.651) (float-vector 589.175 527.5 948.75) (float-vector 597.835 527.5 953.75)))
- (instance face :init :vertices (list (float-vector 597.835 552.5 953.75) (float-vector 589.175 552.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 596.16 540.0 956.651)))
- (instance face :init :vertices (list (float-vector 602.41 561.651 945.825) (float-vector 593.75 561.651 940.825) (float-vector 589.175 552.5 948.75) (float-vector 597.835 552.5 953.75)))
- (instance face :init :vertices (list (float-vector 608.66 565.0 935.0) (float-vector 600.0 565.0 930.0) (float-vector 593.75 561.651 940.825) (float-vector 602.41 561.651 945.825)))
- (instance face :init :vertices (list (float-vector 614.91 561.651 924.175) (float-vector 606.25 561.651 919.175) (float-vector 600.0 565.0 930.0) (float-vector 608.66 565.0 935.0)))
- (instance face :init :vertices (list (float-vector 619.486 552.5 916.25) (float-vector 610.825 552.5 911.25) (float-vector 606.25 561.651 919.175) (float-vector 614.91 561.651 924.175)))
- (instance face :init :vertices (list (float-vector 621.16 540.0 913.349) (float-vector 612.5 540.0 908.349) (float-vector 610.825 552.5 911.25) (float-vector 619.486 552.5 916.25)))
- ))
- (instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
- (instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 4.547474e-13 1047.42)))
- (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
+ (instance face :init :vertices (list (float-vector 517.568 9.094947e-13 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
+ (instance face :init :vertices (list (float-vector 574.402 9.094947e-13 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
+ (instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 9.094947e-13 997.785)))
(instance face :init :vertices (list (float-vector 622.178 600.0 891.754) (float-vector 599.473 600.0 945.827) (float-vector 599.473 395.719 945.827) (float-vector 622.178 453.9 891.754)))
- (instance face :init :vertices (list (float-vector 622.178 4.547474e-13 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
+ (instance face :init :vertices (list (float-vector 622.178 0.0 891.754) (float-vector 622.178 146.1 891.754) (float-vector 599.473 204.281 945.827) (float-vector 599.473 0.0 945.827)))
(instance face :init :vertices (list (float-vector 642.427 600.0 835.779) (float-vector 622.178 600.0 891.754) (float-vector 622.178 453.9 891.754) (float-vector 624.36 460.215 885.722) (float-vector 642.427 474.225 835.779)))
- (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 4.547474e-13 891.754)))
+ (instance face :init :vertices (list (float-vector 642.427 0.0 835.779) (float-vector 642.427 125.775 835.779) (float-vector 624.36 139.785 885.722) (float-vector 622.178 146.1 891.754) (float-vector 622.178 0.0 891.754)))
(instance face :init :vertices (list (float-vector 660.141 600.0 778.125) (float-vector 642.427 600.0 835.779) (float-vector 642.427 474.225 835.779) (float-vector 654.545 485.0 796.34) (float-vector 660.141 480.023 778.125)))
(instance face :init :vertices (list (float-vector 660.141 0.0 778.125) (float-vector 660.141 119.977 778.125) (float-vector 654.545 115.0 796.34) (float-vector 642.427 125.775 835.779) (float-vector 642.427 0.0 835.779)))
(instance face :init :vertices (list (float-vector 675.25 600.0 719.017) (float-vector 660.141 600.0 778.125) (float-vector 660.141 480.023 778.125) (float-vector 675.25 464.283 719.017)))
(instance face :init :vertices (list (float-vector 675.25 0.0 719.017) (float-vector 675.25 135.717 719.017) (float-vector 660.141 119.977 778.125) (float-vector 660.141 0.0 778.125)))
(instance face :init :vertices (list (float-vector 687.694 600.0 658.69) (float-vector 675.25 600.0 719.017) (float-vector 675.25 464.283 719.017) (float-vector 678.482 460.215 703.35) (float-vector 687.694 416.932 658.69)))
- (instance face :init :vertices (list (float-vector 687.694 4.547474e-13 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
- (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 4.547474e-13 658.69)))
+ (instance face :init :vertices (list (float-vector 687.694 0.0 658.69) (float-vector 687.694 183.068 658.69) (float-vector 678.482 139.785 703.35) (float-vector 675.25 135.717 719.017) (float-vector 675.25 0.0 719.017)))
+ (instance face :init :vertices (list (float-vector 697.424 0.0 597.381) (float-vector 697.424 600.0 597.381) (float-vector 687.694 600.0 658.69) (float-vector 687.694 416.932 658.69) (float-vector 691.795 392.5 632.846) (float-vector 695.956 300.0 606.629) (float-vector 691.795 207.5 632.846) (float-vector 687.694 183.068 658.69) (float-vector 687.694 0.0 658.69)))
(instance face :init :vertices (list (float-vector 704.401 0.0 535.333) (float-vector 704.401 600.0 535.333) (float-vector 697.424 600.0 597.381) (float-vector 697.424 0.0 597.381)))
(instance face :init :vertices (list (float-vector 708.599 0.0 472.791) (float-vector 708.599 600.0 472.791) (float-vector 704.401 600.0 535.333) (float-vector 704.401 0.0 535.333)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
- (instance face :init :vertices (list (float-vector 710.0 0.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 0.0 410.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 0.0 0.0 0.0)))
- (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 1.136868e-13 600.0 0.0) (float-vector 1.136868e-13 600.0 1110.0)))
- (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 0.0 0.0) (float-vector 710.0 0.0 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 4.547474e-13 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 4.547474e-13 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 0.0 997.785) (float-vector 547.064 4.547474e-13 1047.42) (float-vector 517.568 4.547474e-13 1094.55)))
- (instance face :init :vertices (list (float-vector 517.568 4.547474e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 1.136868e-13 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 710.0 9.094947e-13 410.0) (float-vector 710.0 600.0 410.0) (float-vector 708.599 600.0 472.791) (float-vector 708.599 0.0 472.791)))
+ (instance face :init :vertices (list (float-vector 710.0 9.094947e-13 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 600.0 410.0) (float-vector 710.0 9.094947e-13 410.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 0.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 710.0 600.0 0.0) (float-vector 710.0 9.094947e-13 0.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 5.684342e-14 600.0 1110.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 0.0 0.0 0.0)))
+ (instance face :init :vertices (list (float-vector 517.568 600.0 1094.55) (float-vector 547.064 600.0 1047.42) (float-vector 574.402 600.0 997.785) (float-vector 599.473 600.0 945.827) (float-vector 622.178 600.0 891.754) (float-vector 642.427 600.0 835.779) (float-vector 660.141 600.0 778.125) (float-vector 675.25 600.0 719.017) (float-vector 687.694 600.0 658.69) (float-vector 697.424 600.0 597.381) (float-vector 704.401 600.0 535.333) (float-vector 708.599 600.0 472.791) (float-vector 710.0 600.0 410.0) (float-vector 710.0 600.0 0.0) (float-vector 5.684342e-14 600.0 0.0) (float-vector 5.684342e-14 600.0 1110.0)))
+ (instance face :init :vertices (list (float-vector 0.0 0.0 1110.0) (float-vector 0.0 0.0 0.0) (float-vector 710.0 9.094947e-13 0.0) (float-vector 710.0 9.094947e-13 410.0) (float-vector 708.599 0.0 472.791) (float-vector 704.401 0.0 535.333) (float-vector 697.424 0.0 597.381) (float-vector 687.694 0.0 658.69) (float-vector 675.25 0.0 719.017) (float-vector 660.141 0.0 778.125) (float-vector 642.427 0.0 835.779) (float-vector 622.178 0.0 891.754) (float-vector 599.473 0.0 945.827) (float-vector 574.402 9.094947e-13 997.785) (float-vector 547.064 0.0 1047.42) (float-vector 517.568 9.094947e-13 1094.55)))
+ (instance face :init :vertices (list (float-vector 517.568 9.094947e-13 1094.55) (float-vector 517.568 600.0 1094.55) (float-vector 5.684342e-14 600.0 1110.0) (float-vector 0.0 0.0 1110.0)))
(instance face :init :vertices (list (float-vector 695.956 300.0 606.629) (float-vector 691.795 392.5 632.846) (float-vector 585.107 392.5 571.25) (float-vector 597.5 300.0 549.785)))
(instance face :init :vertices (list (float-vector 585.107 392.5 571.25) (float-vector 691.795 392.5 632.846) (float-vector 687.694 416.932 658.69) (float-vector 678.482 460.215 703.35) (float-vector 551.25 460.215 629.893)))
(instance face :init :vertices (list (float-vector 551.25 460.215 629.893) (float-vector 678.482 460.215 703.35) (float-vector 675.25 464.283 719.017) (float-vector 660.141 480.023 778.125) (float-vector 654.545 485.0 796.34) (float-vector 505.0 485.0 710.0)))
@@ -78,60 +62,82 @@
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :white)
- (send (elt bc 1) :set-color :white)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
+ (setq bc (list
+ (instance faceset :init :faces (list
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 25.0 -9.094947e-13 10.0) (float-vector 21.6506 12.5 10.0) (float-vector 12.5 21.6506 10.0) (float-vector 0.0 25.0 10.0) (float-vector -12.5 21.6506 10.0) (float-vector -21.6506 12.5 10.0) (float-vector -25.0 0.0 10.0) (float-vector -21.6506 -12.5 10.0) (float-vector -12.5 -21.6506 10.0) (float-vector -1.136868e-13 -25.0 10.0) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 0.0 0.0) (float-vector 21.6506 -12.5 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 1.136868e-13 -25.0 0.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -21.6506 -12.5 0.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 12.5 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 21.6506 12.5 0.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 -12.5 10.0) (float-vector 21.6506 -12.5 0.0) (float-vector 25.0 0.0 0.0) (float-vector 25.0 -9.094947e-13 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 -21.6506 10.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 21.6506 -12.5 0.0) (float-vector 21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -1.136868e-13 -25.0 10.0) (float-vector 1.136868e-13 -25.0 0.0) (float-vector 12.5 -21.6506 1.136868e-13) (float-vector 12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 -21.6506 10.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector 1.136868e-13 -25.0 0.0) (float-vector -1.136868e-13 -25.0 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 -12.5 10.0) (float-vector -21.6506 -12.5 0.0) (float-vector -12.5 -21.6506 2.273737e-13) (float-vector -12.5 -21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector -25.0 0.0 10.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -21.6506 -12.5 0.0) (float-vector -21.6506 -12.5 10.0)))
+ (instance face :init :vertices (list (float-vector -21.6506 12.5 10.0) (float-vector -21.6506 12.5 0.0) (float-vector -25.0 0.0 1.136868e-13) (float-vector -25.0 0.0 10.0)))
+ (instance face :init :vertices (list (float-vector -12.5 21.6506 10.0) (float-vector -12.5 21.6506 0.0) (float-vector -21.6506 12.5 0.0) (float-vector -21.6506 12.5 10.0)))
+ (instance face :init :vertices (list (float-vector 0.0 25.0 10.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector -12.5 21.6506 0.0) (float-vector -12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 12.5 21.6506 10.0) (float-vector 12.5 21.6506 0.0) (float-vector -1.136868e-13 25.0 0.0) (float-vector 0.0 25.0 10.0)))
+ (instance face :init :vertices (list (float-vector 21.6506 12.5 10.0) (float-vector 21.6506 12.5 0.0) (float-vector 12.5 21.6506 0.0) (float-vector 12.5 21.6506 10.0)))
+ (instance face :init :vertices (list (float-vector 25.0 -9.094947e-13 10.0) (float-vector 25.0 0.0 0.0) (float-vector 21.6506 12.5 0.0) (float-vector 21.6506 12.5 10.0)))
+ ))
+ ))
+ (dolist (b (cdr bc)) (send (car bc) :assoc b))
+ (send (elt bc 0) :set-color :white)
+ (setq blink2 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'button :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 'cap
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 2.273737e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 -2.273737e-13) (float-vector 151.554 122.5 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -151.554 122.5 -1.136868e-13) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 297.5 0.0) (float-vector -87.5 361.554 0.0) (float-vector 2.273737e-13 385.0 0.0) (float-vector 87.5 361.554 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 0.0) (float-vector 175.0 210.0 -2.273737e-13) (float-vector 175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 0.0) (float-vector 151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector -2.273737e-13 35.0 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 -1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 122.5 -1.136868e-13) (float-vector -151.554 122.5 30.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -175.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0)))
- (instance face :init :vertices (list (float-vector 2.273737e-13 385.0 30.0) (float-vector 2.273737e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 1.136868e-13) (float-vector 2.273737e-13 385.0 0.0) (float-vector 2.273737e-13 385.0 30.0)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 87.5 361.554 30.0)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 -2.273737e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 122.5 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 297.5 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 151.554 297.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13) (float-vector 175.0 210.0 1.136868e-13) (float-vector 175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -2.273737e-13 35.0 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -151.554 122.5 30.0)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -175.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -151.554 297.5 30.0)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 1.136868e-13 385.0 30.0)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0)))
))
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 186.195 317.5 -2.273737e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
- (instance face :init :vertices (list (float-vector 107.5 396.195 -2.273737e-13) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 -1.136868e-13) (float-vector 2.273737e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -107.5 396.195 0.0) (float-vector -107.5 396.195 30.0) (float-vector 2.273737e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -186.195 317.5 -1.136868e-13) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 0.0)))
- (instance face :init :vertices (list (float-vector -215.0 210.0 -2.273737e-13) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -186.195 102.5 0.0) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 0.0)))
- (instance face :init :vertices (list (float-vector -3.410605e-13 -5.0 0.0) (float-vector -2.273737e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 107.5 23.8045 0.0) (float-vector 107.5 23.8045 30.0) (float-vector -2.273737e-13 -5.0 30.0) (float-vector -3.410605e-13 -5.0 0.0)))
- (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 0.0)))
- (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 2.273737e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -2.273737e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 186.195 317.5 1.136868e-13) (float-vector 186.195 317.5 30.0) (float-vector 215.0 210.0 30.0)))
+ (instance face :init :vertices (list (float-vector 107.5 396.195 0.0) (float-vector 107.5 396.195 30.0) (float-vector 186.195 317.5 30.0) (float-vector 186.195 317.5 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 425.0 0.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 107.5 396.195 30.0) (float-vector 107.5 396.195 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 396.195 2.273737e-13) (float-vector -107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector 1.136868e-13 425.0 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 317.5 0.0) (float-vector -186.195 317.5 30.0) (float-vector -107.5 396.195 30.0) (float-vector -107.5 396.195 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -215.0 210.0 0.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 317.5 30.0) (float-vector -186.195 317.5 0.0)))
+ (instance face :init :vertices (list (float-vector -186.195 102.5 2.273737e-13) (float-vector -186.195 102.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -215.0 210.0 0.0)))
+ (instance face :init :vertices (list (float-vector -107.5 23.8045 0.0) (float-vector -107.5 23.8045 30.0) (float-vector -186.195 102.5 30.0) (float-vector -186.195 102.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -3.410605e-13 -5.0 2.273737e-13) (float-vector -3.410605e-13 -5.0 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -107.5 23.8045 0.0)))
+ (instance face :init :vertices (list (float-vector 107.5 23.8045 2.273737e-13) (float-vector 107.5 23.8045 30.0) (float-vector -3.410605e-13 -5.0 30.0) (float-vector -3.410605e-13 -5.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 186.195 102.5 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 107.5 23.8045 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 30.0) (float-vector 186.195 317.5 30.0) (float-vector 107.5 396.195 30.0) (float-vector 1.136868e-13 425.0 30.0) (float-vector -107.5 396.195 30.0) (float-vector -186.195 317.5 30.0) (float-vector -215.0 210.0 30.0) (float-vector -186.195 102.5 30.0) (float-vector -107.5 23.8045 30.0) (float-vector -3.410605e-13 -5.0 30.0) (float-vector 107.5 23.8045 30.0) (float-vector 186.195 102.5 30.0))
:holes (list
- (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 2.273737e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
+ (instance hole :init :vertices (list (float-vector 151.554 122.5 30.0) (float-vector 87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -151.554 122.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -151.554 297.5 30.0) (float-vector -87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector 87.5 361.554 30.0) (float-vector 151.554 297.5 30.0) (float-vector 175.0 210.0 30.0)))
))
- (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 107.5 23.8045 0.0) (float-vector -3.410605e-13 -5.0 0.0) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 0.0) (float-vector -215.0 210.0 -2.273737e-13) (float-vector -186.195 317.5 -1.136868e-13) (float-vector -107.5 396.195 0.0) (float-vector 1.136868e-13 425.0 -1.136868e-13) (float-vector 107.5 396.195 -2.273737e-13) (float-vector 186.195 317.5 -2.273737e-13) (float-vector 215.0 210.0 0.0))
+ (instance face :init :vertices (list (float-vector 186.195 102.5 -1.136868e-13) (float-vector 107.5 23.8045 2.273737e-13) (float-vector -3.410605e-13 -5.0 2.273737e-13) (float-vector -107.5 23.8045 0.0) (float-vector -186.195 102.5 2.273737e-13) (float-vector -215.0 210.0 0.0) (float-vector -186.195 317.5 0.0) (float-vector -107.5 396.195 2.273737e-13) (float-vector 1.136868e-13 425.0 0.0) (float-vector 107.5 396.195 0.0) (float-vector 186.195 317.5 1.136868e-13) (float-vector 215.0 210.0 2.273737e-13))
:holes (list
- (instance hole :init :vertices (list (float-vector 175.0 210.0 -2.273737e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 1.136868e-13) (float-vector 2.273737e-13 385.0 0.0) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 0.0) (float-vector -175.0 210.0 1.136868e-13) (float-vector -151.554 122.5 -1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 0.0) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 0.0)))
+ (instance hole :init :vertices (list (float-vector 175.0 210.0 1.136868e-13) (float-vector 151.554 297.5 2.273737e-13) (float-vector 87.5 361.554 2.273737e-13) (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector -87.5 361.554 0.0) (float-vector -151.554 297.5 1.136868e-13) (float-vector -175.0 210.0 2.273737e-13) (float-vector -151.554 122.5 1.136868e-13) (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 151.554 122.5 2.273737e-13)))
))
- (instance face :init :vertices (list (float-vector 215.0 210.0 0.0) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 175.0 210.0 -2.273737e-13)))
- (instance face :init :vertices (list (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 1.136868e-13)))
- (instance face :init :vertices (list (float-vector 87.5 361.554 1.136868e-13) (float-vector 87.5 361.554 30.0) (float-vector 2.273737e-13 385.0 30.0) (float-vector 2.273737e-13 385.0 0.0)))
- (instance face :init :vertices (list (float-vector 2.273737e-13 385.0 0.0) (float-vector 2.273737e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
- (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 0.0)))
- (instance face :init :vertices (list (float-vector -151.554 297.5 0.0) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 1.136868e-13)))
- (instance face :init :vertices (list (float-vector -175.0 210.0 1.136868e-13) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -151.554 122.5 -1.136868e-13) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 0.0)))
- (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 0.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13)))
- (instance face :init :vertices (list (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 0.0)))
- (instance face :init :vertices (list (float-vector 151.554 122.5 0.0) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 -2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 215.0 210.0 2.273737e-13) (float-vector 215.0 210.0 30.0) (float-vector 186.195 102.5 30.0) (float-vector 186.195 102.5 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 175.0 210.0 30.0) (float-vector 151.554 297.5 30.0) (float-vector 151.554 297.5 2.273737e-13) (float-vector 175.0 210.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 297.5 2.273737e-13) (float-vector 151.554 297.5 30.0) (float-vector 87.5 361.554 30.0) (float-vector 87.5 361.554 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 87.5 361.554 2.273737e-13) (float-vector 87.5 361.554 30.0) (float-vector 1.136868e-13 385.0 30.0) (float-vector 1.136868e-13 385.0 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 1.136868e-13 385.0 1.136868e-13) (float-vector 1.136868e-13 385.0 30.0) (float-vector -87.5 361.554 30.0) (float-vector -87.5 361.554 0.0)))
+ (instance face :init :vertices (list (float-vector -87.5 361.554 0.0) (float-vector -87.5 361.554 30.0) (float-vector -151.554 297.5 30.0) (float-vector -151.554 297.5 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -151.554 297.5 1.136868e-13) (float-vector -151.554 297.5 30.0) (float-vector -175.0 210.0 30.0) (float-vector -175.0 210.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -175.0 210.0 2.273737e-13) (float-vector -175.0 210.0 30.0) (float-vector -151.554 122.5 30.0) (float-vector -151.554 122.5 1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -151.554 122.5 1.136868e-13) (float-vector -151.554 122.5 30.0) (float-vector -87.5 58.4456 30.0) (float-vector -87.5 58.4456 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector -87.5 58.4456 -1.136868e-13) (float-vector -87.5 58.4456 30.0) (float-vector -2.273737e-13 35.0 30.0) (float-vector -2.273737e-13 35.0 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector -2.273737e-13 35.0 2.273737e-13) (float-vector -2.273737e-13 35.0 30.0) (float-vector 87.5 58.4456 30.0) (float-vector 87.5 58.4456 -1.136868e-13)))
+ (instance face :init :vertices (list (float-vector 87.5 58.4456 -1.136868e-13) (float-vector 87.5 58.4456 30.0) (float-vector 151.554 122.5 30.0) (float-vector 151.554 122.5 2.273737e-13)))
+ (instance face :init :vertices (list (float-vector 151.554 122.5 2.273737e-13) (float-vector 151.554 122.5 30.0) (float-vector 175.0 210.0 30.0) (float-vector 175.0 210.0 1.136868e-13)))
))
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
@@ -141,8 +147,10 @@
(setq blink1 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cap :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 blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 -6.816092e-18 0.939693) (3.865598e-17 1.0 -6.816092e-18) (-0.939693 3.865598e-17 0.34202))))
+ (send blink1 :newcoords (make-coords :pos (float-vector 640.0 90.0 770.0) :rot #2f((0.34202 -1.477606e-17 0.939693) (3.069601e-17 1.0 4.551926e-18) (-0.939693 2.728796e-17 0.34202))))
(send blink0 :assoc blink1)
+ (send blink2 :newcoords (make-coords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5))))
+ (send blink0 :assoc blink2)
(send self :assoc blink0)
;; definition of end-coords
@@ -154,22 +162,27 @@
:parent-link blink0 :child-link blink1 :name :joint0 :axis :x
:min 0.0 :max 180.0 :max-joint-velocity 5 :max-joint-torque 100))
+ ;; definition of :joint1
+ (setq joint1 (instance linear-joint :init
+ :parent-link blink0 :child-link blink2 :name :joint1 :axis (float-vector 0.0 0.0 1.0)
+ :min -90.0 :max 90.0 :max-joint-velocity 0.785398 :max-joint-torque 100))
+
;; definition of :handle
(setq handle0 (make-cascoords :pos (float-vector 505.0 0.0 580.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "contents"))
(send self :assoc handle0)
- (setq handle1 (make-cascoords :pos (float-vector 640.0 190.0 770.0) :rot #2f((-3.053113e-16 -0.34202 -0.939693) (-1.0 6.938894e-16 1.110223e-16) (6.106227e-16 0.939693 -0.34202)) :name "handle-cap"))
+ (setq handle1 (make-cascoords :pos (float-vector 640.0 490.0 770.0) :rot #2f((-3.053113e-16 -0.34202 -0.939693) (-1.0 6.938894e-16 1.110223e-16) (6.106227e-16 0.939693 -0.34202)) :name "handle-cap"))
(send self :assoc handle1)
- (setq handle2 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 6.517221e-17 0.866025) (-7.904999e-17 1.0 -2.961485e-17) (-0.866025 -5.365188e-17 0.5)) :name "open-button"))
+ (setq handle2 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open-button"))
(send self :assoc handle2)
;; definition of :button
- (setq button0 (make-cascoords :pos (float-vector 600.0 240.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open"))
+ (setq button0 (make-cascoords :pos (float-vector 600.0 540.0 930.0) :rot #2f((0.5 1.709814e-17 0.866025) (-3.097593e-17 1.0 -1.859271e-18) (-0.866025 -2.589630e-17 0.5)) :name "open"))
(send self :assoc button0)
;; init-ending
- (setq links (list blink0 blink1))
- (setq joint-list (list joint0))
+ (setq links (list blink0 blink1 blink2))
+ (setq joint-list (list joint0 joint1))
(send self :init-ending)
(send self :move-to (make-coords :pos pos :rot rot))
(send-all links :worldcoords)
@@ -179,6 +192,7 @@
(forward-message-to-all (list) args))
(:joint0 (&rest args) (forward-message-to joint0 args))
+ (:joint1 (&rest args) (forward-message-to joint1 args))
(:handle () (list handle0 handle1 handle2))
(:handle-contents () handle0)
(:handle-handle-cap () handle1)
Modified: trunk/EusLisp/models/room610-laundary-machine-object.l
===================================================================
--- trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-20 13:27:54 UTC (rev 613)
+++ trunk/EusLisp/models/room610-laundary-machine-object.l 2013-04-22 10:48:29 UTC (rev 614)
@@ -8,12 +8,12 @@
:slots (sensors
handle0 handle1 handle2
button0
- joint0 ))
+ joint0 joint1 ))
(defmethod room610-laundary-machine-object
(:init
(&rest args &key (name "room610-laundary-machine") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
(let (c bc
- blink0 blink1
+ blink0 blink1 blink2
)
(send-super* :init :name name args)
@@ -22,22 +22,6 @@
;; definition of 'b0
(setq bc (list
(instance faceset :init :faces (list
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 621.16 540.0 913.349) (float-vector 619.486 552.5 916.25) (float-vector 614.91 561.651 924.175) (float-vector 608.66 565.0 935.0) (float-vector 602.41 561.651 945.825) (float-vector 597.835 552.5 953.75) (float-vector 596.16 540.0 956.651) (float-vector 597.835 527.5 953.75) (float-vector 602.41 518.349 945.825) (float-vector 608.66 515.0 935.0) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 612.5 540.0 908.349) (float-vector 610.825 527.5 911.25) (float-vector 606.25 518.349 919.175) (float-vector 600.0 515.0 930.0) (float-vector 593.75 518.349 940.825) (float-vector 589.175 527.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 589.175 552.5 948.75) (float-vector 593.75 561.651 940.825) (float-vector 600.0 565.0 930.0) (float-vector 606.25 561.651 919.175) (float-vector 610.825 552.5 911.25)))
- (instance face :init :vertices (list (float-vector 619.486 527.5 916.25) (float-vector 610.825 527.5 911.25) (float-vector 612.5 540.0 908.349) (float-vector 621.16 540.0 913.349)))
- (instance face :init :vertices (list (float-vector 614.91 518.349 924.175) (float-vector 606.25 518.349 919.175) (float-vector 610.825 527.5 911.25) (float-vector 619.486 527.5 916.25)))
- (instance face :init :vertices (list (float-vector 608.66 515.0 935.0) (float-vector 600.0 515.0 930.0) (float-vector 606.25 518.349 919.175) (float-vector 614.91 518.349 924.175)))
- (instance face :init :vertices (list (float-vector 602.41 518.349 945.825) (float-vector 593.75 518.349 940.825) (float-vector 600.0 515.0 930.0) (float-vector 608.66 515.0 935.0)))
- (instance face :init :vertices (list (float-vector 597.835 527.5 953.75) (float-vector 589.175 527.5 948.75) (float-vector 593.75 518.349 940.825) (float-vector 602.41 518.349 945.825)))
- (instance face :init :vertices (list (float-vector 596.16 540.0 956.651) (float-vector 587.5 540.0 951.651) (float-vector 589.175 527.5 948.75) (float-vector 597.835 527.5 953.75)))
- (instance face :init :vertices (list (float-vector 597.835 552.5 953.75) (float-vector 589.175 552.5 948.75) (float-vector 587.5 540.0 951.651) (float-vector 596.16 540.0 956.651)))
- (instance face :init :vertices (list (float-vector 602.41 561.651 945.825) (float-vector 593.75 561.651 940.825) (float-vector 589.175 552.5 948.75) (float-vector 597.835 552.5 953.75)))
- (instance face :init :vertices (list (float-vector 608.66 565.0 935.0) (float-vector 600.0 565.0 930.0) (float-vector 593.75 561.651 940.825) (float-vector 602.41 561.651 945.825)))
- (instance face :init :vertices (list (float-vector 614.91 561.651 924.175) (float-vector 606.25 561.651 919.175) (float-vector 600.0 565.0 930.0) (float-vector 608.66 565.0 935.0)))
- (instance face :init :vertices (list (float-vector 619.486 552.5 916.25) (float-vector 610.825 552.5 911.25) (float-vector 606.25 561.651 919.175) (float-vector 614.91 561.651 924.175)))
- (instance face :init :vertices (list (float-vector 621.16 540.0 913.349) (float-vector 612.5 540.0 908.349) (float-vector 610.825 552.5 911.25) (float-vector 619.486 552.5 916.25)))
- ))
- (instance faceset :init :faces (list
(instance face :init :vertices (list (float-vector 517.568 0.0 1094.55) (float-vector 547.064 0.0 1047.42) (float-vector 547.064 600.0 1047.42) (float-vector 517.568 600.0 1094.55)))
(instance face :init :vertices (list (float-vector 574.402 0.0 997.785) (float-vector 574.402 600.0 997.785) (float-vector 547.064 600.0 1047.42) (float-vector 547.064 0.0 1047.42)))
(instance face :init :vertices (list (float-vector 599.473 0.0 945.827) (float-vector 599.473 204.281 945.827) (float-vector 598.07 207.5 948.734) (float-vector 587.269 300.0 971.118) (float-vector 598.07 392.5 948.734) (float-vector 599.473 395.719 945.827) (float-vector 599.473 600.0 945.827) (float-vector 574.402 600.0 997.785) (float-vector 574.402 0.0 997.785)))
@@ -78,60 +62,82 @@
))
(dolist (b (cdr bc)) (send (car bc) :assoc b))
(send (elt bc 0) :set-color :white)
- (send (elt bc 1) :set-color :white)
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'b0 :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 'button
+ (set...
[truncated message content] |
|
From: <k-...@us...> - 2013-04-20 13:28:02
|
Revision: 613
http://sourceforge.net/p/euslisp/code/613
Author: k-okada
Date: 2013-04-20 13:27:54 +0000 (Sat, 20 Apr 2013)
Log Message:
-----------
fix wrong comme r612
Revision Links:
--------------
http://sourceforge.net/p/euslisp/code/612
Modified Paths:
--------------
trunk/EusLisp/lisp/c/eus.c
Modified: trunk/EusLisp/lisp/c/eus.c
===================================================================
--- trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:20:52 UTC (rev 612)
+++ trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:27:54 UTC (rev 613)
@@ -1092,18 +1092,16 @@
register context *ctx;
{ pointer argv, p, in;
int i,j;
- char *eusdir, *archdir, *eusrt;
+ char *eusdir, *eusrt;
char fname[1024];
extern pointer SRCLOAD();
/* reset stack pointer and frame pointers*/
j=(int)eussetjmp(topjbuf);
- fprintf(stderr, "set ARCHDIR to Linux64\n");
- archdir= "Linux64";
- setenv("ARCHDIR",archdir,1);
- fprintf(stderr, "set EUSDIR to /home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus\n");
- eusdir= "/home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus";
- setenv("EUSDIR",eusdir,1);
+ eusdir=(char *)getenv("EUSDIR");
+ if (eusdir==NULL) {
+ fprintf(stderr, "EUSDIR is not setenved, assuming /usr/local/eus\n");
+ eusdir= "/usr/local/eus/"; }
sprintf(fname,"%s/lib/eus.init.l", eusdir);
#if !Solaris2 || GCC
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <k-...@us...> - 2013-04-20 13:28:00
|
Revision: 613
http://sourceforge.net/p/euslisp/code/613
Author: k-okada
Date: 2013-04-20 13:27:54 +0000 (Sat, 20 Apr 2013)
Log Message:
-----------
fix wrong comme r612
Revision Links:
--------------
http://sourceforge.net/p/euslisp/code/612
Modified Paths:
--------------
trunk/EusLisp/lisp/c/eus.c
Modified: trunk/EusLisp/lisp/c/eus.c
===================================================================
--- trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:20:52 UTC (rev 612)
+++ trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:27:54 UTC (rev 613)
@@ -1092,18 +1092,16 @@
register context *ctx;
{ pointer argv, p, in;
int i,j;
- char *eusdir, *archdir, *eusrt;
+ char *eusdir, *eusrt;
char fname[1024];
extern pointer SRCLOAD();
/* reset stack pointer and frame pointers*/
j=(int)eussetjmp(topjbuf);
- fprintf(stderr, "set ARCHDIR to Linux64\n");
- archdir= "Linux64";
- setenv("ARCHDIR",archdir,1);
- fprintf(stderr, "set EUSDIR to /home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus\n");
- eusdir= "/home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus";
- setenv("EUSDIR",eusdir,1);
+ eusdir=(char *)getenv("EUSDIR");
+ if (eusdir==NULL) {
+ fprintf(stderr, "EUSDIR is not setenved, assuming /usr/local/eus\n");
+ eusdir= "/usr/local/eus/"; }
sprintf(fname,"%s/lib/eus.init.l", eusdir);
#if !Solaris2 || GCC
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <k-...@us...> - 2013-04-20 13:21:02
|
Revision: 612
http://sourceforge.net/p/euslisp/code/612
Author: k-okada
Date: 2013-04-20 13:20:52 +0000 (Sat, 20 Apr 2013)
Log Message:
-----------
expand MAXSTACK from 65536 to 8388608 and KEYWORDPARAMETERLIMIT from 32 to 128
Modified Paths:
--------------
trunk/EusLisp/lisp/c/eus.c
trunk/EusLisp/lisp/c/eus.h
Modified: trunk/EusLisp/lisp/c/eus.c
===================================================================
--- trunk/EusLisp/lisp/c/eus.c 2013-04-19 05:11:14 UTC (rev 611)
+++ trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:20:52 UTC (rev 612)
@@ -1092,16 +1092,18 @@
register context *ctx;
{ pointer argv, p, in;
int i,j;
- char *eusdir, *eusrt;
+ char *eusdir, *archdir, *eusrt;
char fname[1024];
extern pointer SRCLOAD();
/* reset stack pointer and frame pointers*/
j=(int)eussetjmp(topjbuf);
- eusdir=(char *)getenv("EUSDIR");
- if (eusdir==NULL) {
- fprintf(stderr, "EUSDIR is not setenved, assuming /usr/local/eus\n");
- eusdir= "/usr/local/eus/"; }
+ fprintf(stderr, "set ARCHDIR to Linux64\n");
+ archdir= "Linux64";
+ setenv("ARCHDIR",archdir,1);
+ fprintf(stderr, "set EUSDIR to /home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus\n");
+ eusdir= "/home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus";
+ setenv("EUSDIR",eusdir,1);
sprintf(fname,"%s/lib/eus.init.l", eusdir);
#if !Solaris2 || GCC
Modified: trunk/EusLisp/lisp/c/eus.h
===================================================================
--- trunk/EusLisp/lisp/c/eus.h 2013-04-19 05:11:14 UTC (rev 611)
+++ trunk/EusLisp/lisp/c/eus.h 2013-04-20 13:20:52 UTC (rev 612)
@@ -139,10 +139,10 @@
fib(29) nealy equals to 2.4M,
fib(30) to 4M words*/
#define MAXTHRBUDDY 6 /*small free cells cached thread-locally*/
-#define MAXSTACK 65536 /*can be expanded by sys:newstack*/
+#define MAXSTACK 8388608 /* patched: default stack size 16bit -> 23bit, can be expanded by sys:newstack*/
#define SYMBOLHASH 60 /*initial obvector size in package*/
#define MAXCLASS 4096 /* by M.Inaba from 64 */
-#define KEYWORDPARAMETERLIMIT 32 /*determined by bits in a long word*/
+#define KEYWORDPARAMETERLIMIT 128 /* patched: default keyword size 32->128 */
#define ARRAYRANKLIMIT 7 /*minimal requirement for CommonLisp*/
#define MAXTHREAD 64 /*maximum number of threads*/
#define MAX_SPECIALS 512 /*maximum number of special variables*/
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <k-...@us...> - 2013-04-20 13:21:00
|
Revision: 612
http://sourceforge.net/p/euslisp/code/612
Author: k-okada
Date: 2013-04-20 13:20:52 +0000 (Sat, 20 Apr 2013)
Log Message:
-----------
expand MAXSTACK from 65536 to 8388608 and KEYWORDPARAMETERLIMIT from 32 to 128
Modified Paths:
--------------
trunk/EusLisp/lisp/c/eus.c
trunk/EusLisp/lisp/c/eus.h
Modified: trunk/EusLisp/lisp/c/eus.c
===================================================================
--- trunk/EusLisp/lisp/c/eus.c 2013-04-19 05:11:14 UTC (rev 611)
+++ trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:20:52 UTC (rev 612)
@@ -1092,16 +1092,18 @@
register context *ctx;
{ pointer argv, p, in;
int i,j;
- char *eusdir, *eusrt;
+ char *eusdir, *archdir, *eusrt;
char fname[1024];
extern pointer SRCLOAD();
/* reset stack pointer and frame pointers*/
j=(int)eussetjmp(topjbuf);
- eusdir=(char *)getenv("EUSDIR");
- if (eusdir==NULL) {
- fprintf(stderr, "EUSDIR is not setenved, assuming /usr/local/eus\n");
- eusdir= "/usr/local/eus/"; }
+ fprintf(stderr, "set ARCHDIR to Linux64\n");
+ archdir= "Linux64";
+ setenv("ARCHDIR",archdir,1);
+ fprintf(stderr, "set EUSDIR to /home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus\n");
+ eusdir= "/home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus";
+ setenv("EUSDIR",eusdir,1);
sprintf(fname,"%s/lib/eus.init.l", eusdir);
#if !Solaris2 || GCC
Modified: trunk/EusLisp/lisp/c/eus.h
===================================================================
--- trunk/EusLisp/lisp/c/eus.h 2013-04-19 05:11:14 UTC (rev 611)
+++ trunk/EusLisp/lisp/c/eus.h 2013-04-20 13:20:52 UTC (rev 612)
@@ -139,10 +139,10 @@
fib(29) nealy equals to 2.4M,
fib(30) to 4M words*/
#define MAXTHRBUDDY 6 /*small free cells cached thread-locally*/
-#define MAXSTACK 65536 /*can be expanded by sys:newstack*/
+#define MAXSTACK 8388608 /* patched: default stack size 16bit -> 23bit, can be expanded by sys:newstack*/
#define SYMBOLHASH 60 /*initial obvector size in package*/
#define MAXCLASS 4096 /* by M.Inaba from 64 */
-#define KEYWORDPARAMETERLIMIT 32 /*determined by bits in a long word*/
+#define KEYWORDPARAMETERLIMIT 128 /* patched: default keyword size 32->128 */
#define ARRAYRANKLIMIT 7 /*minimal requirement for CommonLisp*/
#define MAXTHREAD 64 /*maximum number of threads*/
#define MAX_SPECIALS 512 /*maximum number of special variables*/
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-04-19 05:11:23
|
Revision: 611
http://sourceforge.net/p/euslisp/code/611
Author: snozawa
Date: 2013-04-19 05:11:14 +0000 (Fri, 19 Apr 2013)
Log Message:
-----------
fixed orientation of tray in room610 [#76]
Modified Paths:
--------------
trunk/EusLisp/models/room610-scene.l
trunk/EusLisp/models/room610-tray-object.l
Modified: trunk/EusLisp/models/room610-scene.l
===================================================================
--- trunk/EusLisp/models/room610-scene.l 2013-04-19 05:07:03 UTC (rev 610)
+++ trunk/EusLisp/models/room610-scene.l 2013-04-19 05:11:14 UTC (rev 611)
@@ -42,7 +42,7 @@
(send (room610-bears-panel) :transform (make-coords :pos (float-vector 5750.0 -1730.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-bears-panel) :transform (make-coords :pos (float-vector 5300.0 -2100.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-610-ground) :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-tray) :transform (make-coords :pos (float-vector 4650.0 340.0 700.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room610-tray) :transform (make-coords :pos (float-vector 4650.0 340.0 700.0) :rot #2f((-1.0 4.440892e-16 0.0) (-4.440892e-16 -1.0 0.0) (0.0 0.0 1.0))))
(send (room610-sweeper) :transform (make-coords :pos (float-vector 3100.0 1990.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-cabinet-mamoru) :transform (make-coords :pos (float-vector 4650.0 -910.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-cabinet) :transform (make-coords :pos (float-vector 3610.0 -2160.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))))
Modified: trunk/EusLisp/models/room610-tray-object.l
===================================================================
--- trunk/EusLisp/models/room610-tray-object.l 2013-04-19 05:07:03 UTC (rev 610)
+++ trunk/EusLisp/models/room610-tray-object.l 2013-04-19 05:11:14 UTC (rev 611)
@@ -78,17 +78,17 @@
;; definition of :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"))
+ (setq handle0 (make-cascoords :pos (float-vector 200.0 5.684342e-14 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 -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"))
+ (setq handle2 (make-cascoords :pos (float-vector 200.0 -120.0 30.0) :rot #2f((-0.707107 -6.106227e-16 -0.707107) (0.707107 -6.106227e-16 -0.707107) (0.0 -1.0 8.326673e-16)) :name "handle2"))
(send self :assoc handle2)
- (setq handle3 (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 "handle3"))
+ (setq handle3 (make-cascoords :pos (float-vector 200.0 120.0 30.0) :rot #2f((-0.707107 4.440892e-16 -0.707107) (-0.707107 -3.330669e-16 0.707107) (1.110223e-16 1.0 5.551115e-16)) :name "handle3"))
(send self :assoc handle3)
- (setq handle4 (make-cascoords :pos (float-vector -200.0 -120.0 30.0) :rot #2f((0.707107 -6.661338e-16 -0.707107) (0.707107 5.828671e-16 0.707107) (-5.551115e-17 -1.0 8.604228e-16)) :name "handle4"))
+ (setq handle4 (make-cascoords :pos (float-vector -200.0 -120.0 30.0) :rot #2f((0.707107 -5.551115e-16 -0.707107) (0.707107 6.106227e-16 0.707107) (0.0 -1.0 8.326673e-16)) :name "handle4"))
(send self :assoc handle4)
- (setq handle5 (make-cascoords :pos (float-vector -200.0 120.0 30.0) :rot #2f((0.707107 6.661338e-16 -0.707107) (-0.707107 5.828671e-16 -0.707107) (-5.551115e-17 1.0 8.604228e-16)) :name "handle5"))
+ (setq handle5 (make-cascoords :pos (float-vector -200.0 120.0 30.0) :rot #2f((0.707107 5.551115e-16 -0.707107) (-0.707107 6.106227e-16 -0.707107) (0.0 1.0 8.326673e-16)) :name "handle5"))
(send self :assoc handle5)
;; init-ending
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-04-19 05:11:21
|
Revision: 611
http://sourceforge.net/p/euslisp/code/611
Author: snozawa
Date: 2013-04-19 05:11:14 +0000 (Fri, 19 Apr 2013)
Log Message:
-----------
fixed orientation of tray in room610 [#76]
Modified Paths:
--------------
trunk/EusLisp/models/room610-scene.l
trunk/EusLisp/models/room610-tray-object.l
Modified: trunk/EusLisp/models/room610-scene.l
===================================================================
--- trunk/EusLisp/models/room610-scene.l 2013-04-19 05:07:03 UTC (rev 610)
+++ trunk/EusLisp/models/room610-scene.l 2013-04-19 05:11:14 UTC (rev 611)
@@ -42,7 +42,7 @@
(send (room610-bears-panel) :transform (make-coords :pos (float-vector 5750.0 -1730.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-bears-panel) :transform (make-coords :pos (float-vector 5300.0 -2100.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-610-ground) :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-tray) :transform (make-coords :pos (float-vector 4650.0 340.0 700.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+ (send (room610-tray) :transform (make-coords :pos (float-vector 4650.0 340.0 700.0) :rot #2f((-1.0 4.440892e-16 0.0) (-4.440892e-16 -1.0 0.0) (0.0 0.0 1.0))))
(send (room610-sweeper) :transform (make-coords :pos (float-vector 3100.0 1990.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-cabinet-mamoru) :transform (make-coords :pos (float-vector 4650.0 -910.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-cabinet) :transform (make-coords :pos (float-vector 3610.0 -2160.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))))
Modified: trunk/EusLisp/models/room610-tray-object.l
===================================================================
--- trunk/EusLisp/models/room610-tray-object.l 2013-04-19 05:07:03 UTC (rev 610)
+++ trunk/EusLisp/models/room610-tray-object.l 2013-04-19 05:11:14 UTC (rev 611)
@@ -78,17 +78,17 @@
;; definition of :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"))
+ (setq handle0 (make-cascoords :pos (float-vector 200.0 5.684342e-14 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 -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"))
+ (setq handle2 (make-cascoords :pos (float-vector 200.0 -120.0 30.0) :rot #2f((-0.707107 -6.106227e-16 -0.707107) (0.707107 -6.106227e-16 -0.707107) (0.0 -1.0 8.326673e-16)) :name "handle2"))
(send self :assoc handle2)
- (setq handle3 (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 "handle3"))
+ (setq handle3 (make-cascoords :pos (float-vector 200.0 120.0 30.0) :rot #2f((-0.707107 4.440892e-16 -0.707107) (-0.707107 -3.330669e-16 0.707107) (1.110223e-16 1.0 5.551115e-16)) :name "handle3"))
(send self :assoc handle3)
- (setq handle4 (make-cascoords :pos (float-vector -200.0 -120.0 30.0) :rot #2f((0.707107 -6.661338e-16 -0.707107) (0.707107 5.828671e-16 0.707107) (-5.551115e-17 -1.0 8.604228e-16)) :name "handle4"))
+ (setq handle4 (make-cascoords :pos (float-vector -200.0 -120.0 30.0) :rot #2f((0.707107 -5.551115e-16 -0.707107) (0.707107 6.106227e-16 0.707107) (0.0 -1.0 8.326673e-16)) :name "handle4"))
(send self :assoc handle4)
- (setq handle5 (make-cascoords :pos (float-vector -200.0 120.0 30.0) :rot #2f((0.707107 6.661338e-16 -0.707107) (-0.707107 5.828671e-16 -0.707107) (-5.551115e-17 1.0 8.604228e-16)) :name "handle5"))
+ (setq handle5 (make-cascoords :pos (float-vector -200.0 120.0 30.0) :rot #2f((0.707107 5.551115e-16 -0.707107) (-0.707107 6.106227e-16 -0.707107) (0.0 1.0 8.326673e-16)) :name "handle5"))
(send self :assoc handle5)
;; init-ending
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <sn...@us...> - 2013-04-19 05:07:11
|
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.
|
