Menu
▾
▴
[Euslisp-commit] SF.net SVN: euslisp:[616] trunk/EusLisp/models
|
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.
|
