Created
May 10, 2022 10:53
-
-
Save pazeshun/13685bbc771b60309bd260a8dc729699 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; | |
;; DO NOT EDIT THIS FILE | |
;; this file is automatically generated from euslisp+euslib version | |
;; | |
;; | |
(defclass cocacola-object | |
:super cascaded-link | |
:slots (sensors | |
handle0 | |
attention0 | |
)) | |
(defmethod cocacola-object | |
(:init | |
(&rest args &key (name "cocacola") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys) | |
(let (c bc | |
blink0 | |
) | |
(send-super* :init :name name args) | |
;; definition of link | |
;; definition of 'cocacola | |
(setq bc (list | |
(instance faceset :init :faces (list | |
(instance face :init :vertices (list (float-vector 34.641 -20.0 153.0) (float-vector 40.0 0.0 153.0) (float-vector 34.641 20.0 153.0) (float-vector 20.0 34.641 153.0) (float-vector 2.131628e-14 40.0 153.0) (float-vector -20.0 34.641 153.0) (float-vector -34.641 20.0 153.0) (float-vector -40.0 4.263256e-14 153.0) (float-vector -34.641 -20.0 153.0) (float-vector -20.0 -34.641 153.0) (float-vector -6.394885e-14 -40.0 153.0) (float-vector 20.0 -34.641 153.0))) | |
(instance face :init :vertices (list (float-vector 40.0 0.0 0.0) (float-vector 34.641 -20.0 0.0) (float-vector 20.0 -34.641 0.0) (float-vector -6.394885e-14 -40.0 0.0) (float-vector -20.0 -34.641 0.0) (float-vector -34.641 -20.0 0.0) (float-vector -40.0 4.263256e-14 0.0) (float-vector -34.641 20.0 0.0) (float-vector -20.0 34.641 0.0) (float-vector 2.131628e-14 40.0 0.0) (float-vector 20.0 34.641 0.0) (float-vector 34.641 20.0 0.0))) | |
(instance face :init :vertices (list (float-vector 34.641 -20.0 153.0) (float-vector 34.641 -20.0 0.0) (float-vector 40.0 0.0 0.0) (float-vector 40.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 20.0 -34.641 153.0) (float-vector 20.0 -34.641 0.0) (float-vector 34.641 -20.0 0.0) (float-vector 34.641 -20.0 153.0))) | |
(instance face :init :vertices (list (float-vector -6.394885e-14 -40.0 153.0) (float-vector -6.394885e-14 -40.0 0.0) (float-vector 20.0 -34.641 0.0) (float-vector 20.0 -34.641 153.0))) | |
(instance face :init :vertices (list (float-vector -20.0 -34.641 153.0) (float-vector -20.0 -34.641 0.0) (float-vector -6.394885e-14 -40.0 0.0) (float-vector -6.394885e-14 -40.0 153.0))) | |
(instance face :init :vertices (list (float-vector -34.641 -20.0 153.0) (float-vector -34.641 -20.0 0.0) (float-vector -20.0 -34.641 0.0) (float-vector -20.0 -34.641 153.0))) | |
(instance face :init :vertices (list (float-vector -40.0 4.263256e-14 153.0) (float-vector -40.0 4.263256e-14 0.0) (float-vector -34.641 -20.0 0.0) (float-vector -34.641 -20.0 153.0))) | |
(instance face :init :vertices (list (float-vector -34.641 20.0 153.0) (float-vector -34.641 20.0 0.0) (float-vector -40.0 4.263256e-14 0.0) (float-vector -40.0 4.263256e-14 153.0))) | |
(instance face :init :vertices (list (float-vector -20.0 34.641 153.0) (float-vector -20.0 34.641 0.0) (float-vector -34.641 20.0 0.0) (float-vector -34.641 20.0 153.0))) | |
(instance face :init :vertices (list (float-vector 2.131628e-14 40.0 153.0) (float-vector 2.131628e-14 40.0 0.0) (float-vector -20.0 34.641 0.0) (float-vector -20.0 34.641 153.0))) | |
(instance face :init :vertices (list (float-vector 20.0 34.641 153.0) (float-vector 20.0 34.641 0.0) (float-vector 2.131628e-14 40.0 0.0) (float-vector 2.131628e-14 40.0 153.0))) | |
(instance face :init :vertices (list (float-vector 34.641 20.0 153.0) (float-vector 34.641 20.0 0.0) (float-vector 20.0 34.641 0.0) (float-vector 20.0 34.641 153.0))) | |
(instance face :init :vertices (list (float-vector 40.0 0.0 153.0) (float-vector 40.0 0.0 0.0) (float-vector 34.641 20.0 0.0) (float-vector 34.641 20.0 153.0))) | |
)) | |
(instance faceset :init :faces (list | |
(instance face :init :vertices (list (float-vector 40.0 0.0 153.0) (float-vector 36.9552 -15.3073 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 36.9552 -15.3073 153.0) (float-vector 28.2843 -28.2843 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 28.2843 -28.2843 153.0) (float-vector 15.3073 -36.9552 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 15.3073 -36.9552 153.0) (float-vector -3.626192e-13 -40.0 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector -3.626192e-13 -40.0 153.0) (float-vector -15.3073 -36.9552 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector -15.3073 -36.9552 153.0) (float-vector -28.2843 -28.2843 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector -28.2843 -28.2843 153.0) (float-vector -36.9552 -15.3073 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector -36.9552 -15.3073 153.0) (float-vector -40.0 2.180614e-13 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector -40.0 2.180614e-13 153.0) (float-vector -36.9552 15.3073 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector -36.9552 15.3073 153.0) (float-vector -28.2843 28.2843 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector -28.2843 28.2843 153.0) (float-vector -15.3073 36.9552 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector -15.3073 36.9552 153.0) (float-vector 3.797643e-14 40.0 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 3.797643e-14 40.0 153.0) (float-vector 15.3073 36.9552 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 15.3073 36.9552 153.0) (float-vector 28.2843 28.2843 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 28.2843 28.2843 153.0) (float-vector 36.9552 15.3073 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 36.9552 15.3073 153.0) (float-vector 40.0 0.0 153.0) (float-vector 0.0 0.0 153.0))) | |
(instance face :init :vertices (list (float-vector 35.6749 -14.777 157.507) (float-vector 36.9552 -15.3073 153.0) (float-vector 40.0 0.0 153.0) (float-vector 38.6143 0.0 157.507))) | |
(instance face :init :vertices (list (float-vector 27.3044 -27.3044 157.507) (float-vector 28.2843 -28.2843 153.0) (float-vector 36.9552 -15.3073 153.0) (float-vector 35.6749 -14.777 157.507))) | |
(instance face :init :vertices (list (float-vector 14.777 -35.6749 157.507) (float-vector 15.3073 -36.9552 153.0) (float-vector 28.2843 -28.2843 153.0) (float-vector 27.3044 -27.3044 157.507))) | |
(instance face :init :vertices (list (float-vector -3.500571e-13 -38.6143 157.507) (float-vector -3.626192e-13 -40.0 153.0) (float-vector 15.3073 -36.9552 153.0) (float-vector 14.777 -35.6749 157.507))) | |
(instance face :init :vertices (list (float-vector -14.777 -35.6749 157.507) (float-vector -15.3073 -36.9552 153.0) (float-vector -3.626192e-13 -40.0 153.0) (float-vector -3.500571e-13 -38.6143 157.507))) | |
(instance face :init :vertices (list (float-vector -27.3044 -27.3044 157.507) (float-vector -28.2843 -28.2843 153.0) (float-vector -15.3073 -36.9552 153.0) (float-vector -14.777 -35.6749 157.507))) | |
(instance face :init :vertices (list (float-vector -35.6749 -14.777 157.507) (float-vector -36.9552 -15.3073 153.0) (float-vector -28.2843 -28.2843 153.0) (float-vector -27.3044 -27.3044 157.507))) | |
(instance face :init :vertices (list (float-vector -38.6143 2.105071e-13 157.507) (float-vector -40.0 2.180614e-13 153.0) (float-vector -36.9552 -15.3073 153.0) (float-vector -35.6749 -14.777 157.507))) | |
(instance face :init :vertices (list (float-vector -35.6749 14.777 157.507) (float-vector -36.9552 15.3073 153.0) (float-vector -40.0 2.180614e-13 153.0) (float-vector -38.6143 2.105071e-13 157.507))) | |
(instance face :init :vertices (list (float-vector -27.3044 27.3044 157.507) (float-vector -28.2843 28.2843 153.0) (float-vector -36.9552 15.3073 153.0) (float-vector -35.6749 14.777 157.507))) | |
(instance face :init :vertices (list (float-vector -14.777 35.6749 157.507) (float-vector -15.3073 36.9552 153.0) (float-vector -28.2843 28.2843 153.0) (float-vector -27.3044 27.3044 157.507))) | |
(instance face :init :vertices (list (float-vector 3.666082e-14 38.6143 157.507) (float-vector 3.797643e-14 40.0 153.0) (float-vector -15.3073 36.9552 153.0) (float-vector -14.777 35.6749 157.507))) | |
(instance face :init :vertices (list (float-vector 14.777 35.6749 157.507) (float-vector 15.3073 36.9552 153.0) (float-vector 3.797643e-14 40.0 153.0) (float-vector 3.666082e-14 38.6143 157.507))) | |
(instance face :init :vertices (list (float-vector 27.3044 27.3044 157.507) (float-vector 28.2843 28.2843 153.0) (float-vector 15.3073 36.9552 153.0) (float-vector 14.777 35.6749 157.507))) | |
(instance face :init :vertices (list (float-vector 35.6749 14.777 157.507) (float-vector 36.9552 15.3073 153.0) (float-vector 28.2843 28.2843 153.0) (float-vector 27.3044 27.3044 157.507))) | |
(instance face :init :vertices (list (float-vector 38.6143 0.0 157.507) (float-vector 40.0 0.0 153.0) (float-vector 36.9552 15.3073 153.0) (float-vector 35.6749 14.777 157.507))) | |
(instance face :init :vertices (list (float-vector 34.2578 -14.19 161.984) (float-vector 35.6749 -14.777 157.507) (float-vector 38.6143 0.0 157.507) (float-vector 37.0803 0.0 161.984))) | |
(instance face :init :vertices (list (float-vector 26.2198 -26.2198 161.984) (float-vector 27.3044 -27.3044 157.507) (float-vector 35.6749 -14.777 157.507) (float-vector 34.2578 -14.19 161.984))) | |
(instance face :init :vertices (list (float-vector 14.19 -34.2578 161.984) (float-vector 14.777 -35.6749 157.507) (float-vector 27.3044 -27.3044 157.507) (float-vector 26.2198 -26.2198 161.984))) | |
(instance face :init :vertices (list (float-vector -3.361512e-13 -37.0803 161.984) (float-vector -3.500571e-13 -38.6143 157.507) (float-vector 14.777 -35.6749 157.507) (float-vector 14.19 -34.2578 161.984))) | |
(instance face :init :vertices (list (float-vector -14.19 -34.2578 161.984) (float-vector -14.777 -35.6749 157.507) (float-vector -3.500571e-13 -38.6143 157.507) (float-vector -3.361512e-13 -37.0803 161.984))) | |
(instance face :init :vertices (list (float-vector -26.2198 -26.2198 161.984) (float-vector -27.3044 -27.3044 157.507) (float-vector -14.777 -35.6749 157.507) (float-vector -14.19 -34.2578 161.984))) | |
(instance face :init :vertices (list (float-vector -34.2578 -14.19 161.984) (float-vector -35.6749 -14.777 157.507) (float-vector -27.3044 -27.3044 157.507) (float-vector -26.2198 -26.2198 161.984))) | |
(instance face :init :vertices (list (float-vector -37.0803 2.021448e-13 161.984) (float-vector -38.6143 2.105071e-13 157.507) (float-vector -35.6749 -14.777 157.507) (float-vector -34.2578 -14.19 161.984))) | |
(instance face :init :vertices (list (float-vector -34.2578 14.19 161.984) (float-vector -35.6749 14.777 157.507) (float-vector -38.6143 2.105071e-13 157.507) (float-vector -37.0803 2.021448e-13 161.984))) | |
(instance face :init :vertices (list (float-vector -26.2198 26.2198 161.984) (float-vector -27.3044 27.3044 157.507) (float-vector -35.6749 14.777 157.507) (float-vector -34.2578 14.19 161.984))) | |
(instance face :init :vertices (list (float-vector -14.19 34.2578 161.984) (float-vector -14.777 35.6749 157.507) (float-vector -27.3044 27.3044 157.507) (float-vector -26.2198 26.2198 161.984))) | |
(instance face :init :vertices (list (float-vector 3.520448e-14 37.0803 161.984) (float-vector 3.666082e-14 38.6143 157.507) (float-vector -14.777 35.6749 157.507) (float-vector -14.19 34.2578 161.984))) | |
(instance face :init :vertices (list (float-vector 14.19 34.2578 161.984) (float-vector 14.777 35.6749 157.507) (float-vector 3.666082e-14 38.6143 157.507) (float-vector 3.520448e-14 37.0803 161.984))) | |
(instance face :init :vertices (list (float-vector 26.2198 26.2198 161.984) (float-vector 27.3044 27.3044 157.507) (float-vector 14.777 35.6749 157.507) (float-vector 14.19 34.2578 161.984))) | |
(instance face :init :vertices (list (float-vector 34.2578 14.19 161.984) (float-vector 35.6749 14.777 157.507) (float-vector 27.3044 27.3044 157.507) (float-vector 26.2198 26.2198 161.984))) | |
(instance face :init :vertices (list (float-vector 37.0803 0.0 161.984) (float-vector 38.6143 0.0 157.507) (float-vector 35.6749 14.777 157.507) (float-vector 34.2578 14.19 161.984))) | |
(instance face :init :vertices (list (float-vector 32.5801 -13.4951 166.404) (float-vector 34.2578 -14.19 161.984) (float-vector 37.0803 0.0 161.984) (float-vector 35.2645 0.0 166.404))) | |
(instance face :init :vertices (list (float-vector 24.9357 -24.9357 166.404) (float-vector 26.2198 -26.2198 161.984) (float-vector 34.2578 -14.19 161.984) (float-vector 32.5801 -13.4951 166.404))) | |
(instance face :init :vertices (list (float-vector 13.4951 -32.5801 166.404) (float-vector 14.19 -34.2578 161.984) (float-vector 26.2198 -26.2198 161.984) (float-vector 24.9357 -24.9357 166.404))) | |
(instance face :init :vertices (list (float-vector -3.196892e-13 -35.2645 166.404) (float-vector -3.361512e-13 -37.0803 161.984) (float-vector 14.19 -34.2578 161.984) (float-vector 13.4951 -32.5801 166.404))) | |
(instance face :init :vertices (list (float-vector -13.4951 -32.5801 166.404) (float-vector -14.19 -34.2578 161.984) (float-vector -3.361512e-13 -37.0803 161.984) (float-vector -3.196892e-13 -35.2645 166.404))) | |
(instance face :init :vertices (list (float-vector -24.9357 -24.9357 166.404) (float-vector -26.2198 -26.2198 161.984) (float-vector -14.19 -34.2578 161.984) (float-vector -13.4951 -32.5801 166.404))) | |
(instance face :init :vertices (list (float-vector -32.5801 -13.4951 166.404) (float-vector -34.2578 -14.19 161.984) (float-vector -26.2198 -26.2198 161.984) (float-vector -24.9357 -24.9357 166.404))) | |
(instance face :init :vertices (list (float-vector -35.2645 1.922454e-13 166.404) (float-vector -37.0803 2.021448e-13 161.984) (float-vector -34.2578 -14.19 161.984) (float-vector -32.5801 -13.4951 166.404))) | |
(instance face :init :vertices (list (float-vector -32.5801 13.4951 166.404) (float-vector -34.2578 14.19 161.984) (float-vector -37.0803 2.021448e-13 161.984) (float-vector -35.2645 1.922454e-13 166.404))) | |
(instance face :init :vertices (list (float-vector -24.9357 24.9357 166.404) (float-vector -26.2198 26.2198 161.984) (float-vector -34.2578 14.19 161.984) (float-vector -32.5801 13.4951 166.404))) | |
(instance face :init :vertices (list (float-vector -13.4951 32.5801 166.404) (float-vector -14.19 34.2578 161.984) (float-vector -26.2198 26.2198 161.984) (float-vector -24.9357 24.9357 166.404))) | |
(instance face :init :vertices (list (float-vector 3.348045e-14 35.2645 166.404) (float-vector 3.520448e-14 37.0803 161.984) (float-vector -14.19 34.2578 161.984) (float-vector -13.4951 32.5801 166.404))) | |
(instance face :init :vertices (list (float-vector 13.4951 32.5801 166.404) (float-vector 14.19 34.2578 161.984) (float-vector 3.520448e-14 37.0803 161.984) (float-vector 3.348045e-14 35.2645 166.404))) | |
(instance face :init :vertices (list (float-vector 24.9357 24.9357 166.404) (float-vector 26.2198 26.2198 161.984) (float-vector 14.19 34.2578 161.984) (float-vector 13.4951 32.5801 166.404))) | |
(instance face :init :vertices (list (float-vector 32.5801 13.4951 166.404) (float-vector 34.2578 14.19 161.984) (float-vector 26.2198 26.2198 161.984) (float-vector 24.9357 24.9357 166.404))) | |
(instance face :init :vertices (list (float-vector 35.2645 0.0 166.404) (float-vector 37.0803 0.0 161.984) (float-vector 34.2578 14.19 161.984) (float-vector 32.5801 13.4951 166.404))) | |
(instance face :init :vertices (list (float-vector 30.5439 -12.6517 170.745) (float-vector 32.5801 -13.4951 166.404) (float-vector 35.2645 0.0 166.404) (float-vector 33.0605 0.0 170.745))) | |
(instance face :init :vertices (list (float-vector 23.3773 -23.3773 170.745) (float-vector 24.9357 -24.9357 166.404) (float-vector 32.5801 -13.4951 166.404) (float-vector 30.5439 -12.6517 170.745))) | |
(instance face :init :vertices (list (float-vector 12.6517 -30.5439 170.745) (float-vector 13.4951 -32.5801 166.404) (float-vector 24.9357 -24.9357 166.404) (float-vector 23.3773 -23.3773 170.745))) | |
(instance face :init :vertices (list (float-vector -2.997093e-13 -33.0605 170.745) (float-vector -3.196892e-13 -35.2645 166.404) (float-vector 13.4951 -32.5801 166.404) (float-vector 12.6517 -30.5439 170.745))) | |
(instance face :init :vertices (list (float-vector -12.6517 -30.5439 170.745) (float-vector -13.4951 -32.5801 166.404) (float-vector -3.196892e-13 -35.2645 166.404) (float-vector -2.997093e-13 -33.0605 170.745))) | |
(instance face :init :vertices (list (float-vector -23.3773 -23.3773 170.745) (float-vector -24.9357 -24.9357 166.404) (float-vector -13.4951 -32.5801 166.404) (float-vector -12.6517 -30.5439 170.745))) | |
(instance face :init :vertices (list (float-vector -30.5439 -12.6517 170.745) (float-vector -32.5801 -13.4951 166.404) (float-vector -24.9357 -24.9357 166.404) (float-vector -23.3773 -23.3773 170.745))) | |
(instance face :init :vertices (list (float-vector -33.0605 1.802304e-13 170.745) (float-vector -35.2645 1.922454e-13 166.404) (float-vector -32.5801 -13.4951 166.404) (float-vector -30.5439 -12.6517 170.745))) | |
(instance face :init :vertices (list (float-vector -30.5439 12.6517 170.745) (float-vector -32.5801 13.4951 166.404) (float-vector -35.2645 1.922454e-13 166.404) (float-vector -33.0605 1.802304e-13 170.745))) | |
(instance face :init :vertices (list (float-vector -23.3773 23.3773 170.745) (float-vector -24.9357 24.9357 166.404) (float-vector -32.5801 13.4951 166.404) (float-vector -30.5439 12.6517 170.745))) | |
(instance face :init :vertices (list (float-vector -12.6517 30.5439 170.745) (float-vector -13.4951 32.5801 166.404) (float-vector -24.9357 24.9357 166.404) (float-vector -23.3773 23.3773 170.745))) | |
(instance face :init :vertices (list (float-vector 3.138799e-14 33.0605 170.745) (float-vector 3.348045e-14 35.2645 166.404) (float-vector -13.4951 32.5801 166.404) (float-vector -12.6517 30.5439 170.745))) | |
(instance face :init :vertices (list (float-vector 12.6517 30.5439 170.745) (float-vector 13.4951 32.5801 166.404) (float-vector 3.348045e-14 35.2645 166.404) (float-vector 3.138799e-14 33.0605 170.745))) | |
(instance face :init :vertices (list (float-vector 23.3773 23.3773 170.745) (float-vector 24.9357 24.9357 166.404) (float-vector 13.4951 32.5801 166.404) (float-vector 12.6517 30.5439 170.745))) | |
(instance face :init :vertices (list (float-vector 30.5439 12.6517 170.745) (float-vector 32.5801 13.4951 166.404) (float-vector 24.9357 24.9357 166.404) (float-vector 23.3773 23.3773 170.745))) | |
(instance face :init :vertices (list (float-vector 33.0605 0.0 170.745) (float-vector 35.2645 0.0 166.404) (float-vector 32.5801 13.4951 166.404) (float-vector 30.5439 12.6517 170.745))) | |
(instance face :init :vertices (list (float-vector 28.0862 -11.6337 174.993) (float-vector 30.5439 -12.6517 170.745) (float-vector 33.0605 0.0 170.745) (float-vector 30.4003 0.0 174.993))) | |
(instance face :init :vertices (list (float-vector 21.4963 -21.4963 174.993) (float-vector 23.3773 -23.3773 170.745) (float-vector 30.5439 -12.6517 170.745) (float-vector 28.0862 -11.6337 174.993))) | |
(instance face :init :vertices (list (float-vector 11.6337 -28.0862 174.993) (float-vector 12.6517 -30.5439 170.745) (float-vector 23.3773 -23.3773 170.745) (float-vector 21.4963 -21.4963 174.993))) | |
(instance face :init :vertices (list (float-vector -2.755936e-13 -30.4003 174.993) (float-vector -2.997093e-13 -33.0605 170.745) (float-vector 12.6517 -30.5439 170.745) (float-vector 11.6337 -28.0862 174.993))) | |
(instance face :init :vertices (list (float-vector -11.6337 -28.0862 174.993) (float-vector -12.6517 -30.5439 170.745) (float-vector -2.997093e-13 -33.0605 170.745) (float-vector -2.755936e-13 -30.4003 174.993))) | |
(instance face :init :vertices (list (float-vector -21.4963 -21.4963 174.993) (float-vector -23.3773 -23.3773 170.745) (float-vector -12.6517 -30.5439 170.745) (float-vector -11.6337 -28.0862 174.993))) | |
(instance face :init :vertices (list (float-vector -28.0862 -11.6337 174.993) (float-vector -30.5439 -12.6517 170.745) (float-vector -23.3773 -23.3773 170.745) (float-vector -21.4963 -21.4963 174.993))) | |
(instance face :init :vertices (list (float-vector -30.4003 1.657285e-13 174.993) (float-vector -33.0605 1.802304e-13 170.745) (float-vector -30.5439 -12.6517 170.745) (float-vector -28.0862 -11.6337 174.993))) | |
(instance face :init :vertices (list (float-vector -28.0862 11.6337 174.993) (float-vector -30.5439 12.6517 170.745) (float-vector -33.0605 1.802304e-13 170.745) (float-vector -30.4003 1.657285e-13 174.993))) | |
(instance face :init :vertices (list (float-vector -21.4963 21.4963 174.993) (float-vector -23.3773 23.3773 170.745) (float-vector -30.5439 12.6517 170.745) (float-vector -28.0862 11.6337 174.993))) | |
(instance face :init :vertices (list (float-vector -11.6337 28.0862 174.993) (float-vector -12.6517 30.5439 170.745) (float-vector -23.3773 23.3773 170.745) (float-vector -21.4963 21.4963 174.993))) | |
(instance face :init :vertices (list (float-vector 2.886240e-14 30.4003 174.993) (float-vector 3.138799e-14 33.0605 170.745) (float-vector -12.6517 30.5439 170.745) (float-vector -11.6337 28.0862 174.993))) | |
(instance face :init :vertices (list (float-vector 11.6337 28.0862 174.993) (float-vector 12.6517 30.5439 170.745) (float-vector 3.138799e-14 33.0605 170.745) (float-vector 2.886240e-14 30.4003 174.993))) | |
(instance face :init :vertices (list (float-vector 21.4963 21.4963 174.993) (float-vector 23.3773 23.3773 170.745) (float-vector 12.6517 30.5439 170.745) (float-vector 11.6337 28.0862 174.993))) | |
(instance face :init :vertices (list (float-vector 28.0862 11.6337 174.993) (float-vector 30.5439 12.6517 170.745) (float-vector 23.3773 23.3773 170.745) (float-vector 21.4963 21.4963 174.993))) | |
(instance face :init :vertices (list (float-vector 30.4003 0.0 174.993) (float-vector 33.0605 0.0 170.745) (float-vector 30.5439 12.6517 170.745) (float-vector 28.0862 11.6337 174.993))) | |
(instance face :init :vertices (list (float-vector 25.1854 -10.4321 179.145) (float-vector 28.0862 -11.6337 174.993) (float-vector 30.4003 0.0 174.993) (float-vector 27.2605 0.0 179.145))) | |
(instance face :init :vertices (list (float-vector 19.2761 -19.2761 179.145) (float-vector 21.4963 -21.4963 174.993) (float-vector 28.0862 -11.6337 174.993) (float-vector 25.1854 -10.4321 179.145))) | |
(instance face :init :vertices (list (float-vector 10.4321 -25.1854 179.145) (float-vector 11.6337 -28.0862 174.993) (float-vector 21.4963 -21.4963 174.993) (float-vector 19.2761 -19.2761 179.145))) | |
(instance face :init :vertices (list (float-vector -2.471295e-13 -27.2605 179.145) (float-vector -2.755936e-13 -30.4003 174.993) (float-vector 11.6337 -28.0862 174.993) (float-vector 10.4321 -25.1854 179.145))) | |
(instance face :init :vertices (list (float-vector -10.4321 -25.1854 179.145) (float-vector -11.6337 -28.0862 174.993) (float-vector -2.755936e-13 -30.4003 174.993) (float-vector -2.471295e-13 -27.2605 179.145))) | |
(instance face :init :vertices (list (float-vector -19.2761 -19.2761 179.145) (float-vector -21.4963 -21.4963 174.993) (float-vector -11.6337 -28.0862 174.993) (float-vector -10.4321 -25.1854 179.145))) | |
(instance face :init :vertices (list (float-vector -25.1854 -10.4321 179.145) (float-vector -28.0862 -11.6337 174.993) (float-vector -21.4963 -21.4963 174.993) (float-vector -19.2761 -19.2761 179.145))) | |
(instance face :init :vertices (list (float-vector -27.2605 1.486115e-13 179.145) (float-vector -30.4003 1.657285e-13 174.993) (float-vector -28.0862 -11.6337 174.993) (float-vector -25.1854 -10.4321 179.145))) | |
(instance face :init :vertices (list (float-vector -25.1854 10.4321 179.145) (float-vector -28.0862 11.6337 174.993) (float-vector -30.4003 1.657285e-13 174.993) (float-vector -27.2605 1.486115e-13 179.145))) | |
(instance face :init :vertices (list (float-vector -19.2761 19.2761 179.145) (float-vector -21.4963 21.4963 174.993) (float-vector -28.0862 11.6337 174.993) (float-vector -25.1854 10.4321 179.145))) | |
(instance face :init :vertices (list (float-vector -10.4321 25.1854 179.145) (float-vector -11.6337 28.0862 174.993) (float-vector -21.4963 21.4963 174.993) (float-vector -19.2761 19.2761 179.145))) | |
(instance face :init :vertices (list (float-vector 2.588141e-14 27.2605 179.145) (float-vector 2.886240e-14 30.4003 174.993) (float-vector -11.6337 28.0862 174.993) (float-vector -10.4321 25.1854 179.145))) | |
(instance face :init :vertices (list (float-vector 10.4321 25.1854 179.145) (float-vector 11.6337 28.0862 174.993) (float-vector 2.886240e-14 30.4003 174.993) (float-vector 2.588141e-14 27.2605 179.145))) | |
(instance face :init :vertices (list (float-vector 19.2761 19.2761 179.145) (float-vector 21.4963 21.4963 174.993) (float-vector 11.6337 28.0862 174.993) (float-vector 10.4321 25.1854 179.145))) | |
(instance face :init :vertices (list (float-vector 25.1854 10.4321 179.145) (float-vector 28.0862 11.6337 174.993) (float-vector 21.4963 21.4963 174.993) (float-vector 19.2761 19.2761 179.145))) | |
(instance face :init :vertices (list (float-vector 27.2605 0.0 179.145) (float-vector 30.4003 0.0 174.993) (float-vector 28.0862 11.6337 174.993) (float-vector 25.1854 10.4321 179.145))) | |
(instance face :init :vertices (list (float-vector 21.8631 -9.05599 183.204) (float-vector 25.1854 -10.4321 179.145) (float-vector 27.2605 0.0 179.145) (float-vector 23.6645 0.0 183.204))) | |
(instance face :init :vertices (list (float-vector 16.7333 -16.7333 183.204) (float-vector 19.2761 -19.2761 179.145) (float-vector 25.1854 -10.4321 179.145) (float-vector 21.8631 -9.05599 183.204))) | |
(instance face :init :vertices (list (float-vector 9.05599 -21.8631 183.204) (float-vector 10.4321 -25.1854 179.145) (float-vector 19.2761 -19.2761 179.145) (float-vector 16.7333 -16.7333 183.204))) | |
(instance face :init :vertices (list (float-vector -2.145297e-13 -23.6645 183.204) (float-vector -2.471295e-13 -27.2605 179.145) (float-vector 10.4321 -25.1854 179.145) (float-vector 9.05599 -21.8631 183.204))) | |
(instance face :init :vertices (list (float-vector -9.05599 -21.8631 183.204) (float-vector -10.4321 -25.1854 179.145) (float-vector -2.471295e-13 -27.2605 179.145) (float-vector -2.145297e-13 -23.6645 183.204))) | |
(instance face :init :vertices (list (float-vector -16.7333 -16.7333 183.204) (float-vector -19.2761 -19.2761 179.145) (float-vector -10.4321 -25.1854 179.145) (float-vector -9.05599 -21.8631 183.204))) | |
(instance face :init :vertices (list (float-vector -21.8631 -9.05599 183.204) (float-vector -25.1854 -10.4321 179.145) (float-vector -19.2761 -19.2761 179.145) (float-vector -16.7333 -16.7333 183.204))) | |
(instance face :init :vertices (list (float-vector -23.6645 1.290076e-13 183.204) (float-vector -27.2605 1.486115e-13 179.145) (float-vector -25.1854 -10.4321 179.145) (float-vector -21.8631 -9.05599 183.204))) | |
(instance face :init :vertices (list (float-vector -21.8631 9.05599 183.204) (float-vector -25.1854 10.4321 179.145) (float-vector -27.2605 1.486115e-13 179.145) (float-vector -23.6645 1.290076e-13 183.204))) | |
(instance face :init :vertices (list (float-vector -16.7333 16.7333 183.204) (float-vector -19.2761 19.2761 179.145) (float-vector -25.1854 10.4321 179.145) (float-vector -21.8631 9.05599 183.204))) | |
(instance face :init :vertices (list (float-vector -9.05599 21.8631 183.204) (float-vector -10.4321 25.1854 179.145) (float-vector -19.2761 19.2761 179.145) (float-vector -16.7333 16.7333 183.204))) | |
(instance face :init :vertices (list (float-vector 2.246729e-14 23.6645 183.204) (float-vector 2.588141e-14 27.2605 179.145) (float-vector -10.4321 25.1854 179.145) (float-vector -9.05599 21.8631 183.204))) | |
(instance face :init :vertices (list (float-vector 9.05599 21.8631 183.204) (float-vector 10.4321 25.1854 179.145) (float-vector 2.588141e-14 27.2605 179.145) (float-vector 2.246729e-14 23.6645 183.204))) | |
(instance face :init :vertices (list (float-vector 16.7333 16.7333 183.204) (float-vector 19.2761 19.2761 179.145) (float-vector 10.4321 25.1854 179.145) (float-vector 9.05599 21.8631 183.204))) | |
(instance face :init :vertices (list (float-vector 21.8631 9.05599 183.204) (float-vector 25.1854 10.4321 179.145) (float-vector 19.2761 19.2761 179.145) (float-vector 16.7333 16.7333 183.204))) | |
(instance face :init :vertices (list (float-vector 23.6645 0.0 183.204) (float-vector 27.2605 0.0 179.145) (float-vector 25.1854 10.4321 179.145) (float-vector 21.8631 9.05599 183.204))) | |
(instance face :init :vertices (list (float-vector 18.1823 -7.53134 187.184) (float-vector 21.8631 -9.05599 183.204) (float-vector 23.6645 0.0 183.204) (float-vector 19.6803 0.0 187.184))) | |
(instance face :init :vertices (list (float-vector 13.9161 -13.9161 187.184) (float-vector 16.7333 -16.7333 183.204) (float-vector 21.8631 -9.05599 183.204) (float-vector 18.1823 -7.53134 187.184))) | |
(instance face :init :vertices (list (float-vector 7.53134 -18.1823 187.184) (float-vector 9.05599 -21.8631 183.204) (float-vector 16.7333 -16.7333 183.204) (float-vector 13.9161 -13.9161 187.184))) | |
(instance face :init :vertices (list (float-vector -1.784118e-13 -19.6803 187.184) (float-vector -2.145297e-13 -23.6645 183.204) (float-vector 9.05599 -21.8631 183.204) (float-vector 7.53134 -18.1823 187.184))) | |
(instance face :init :vertices (list (float-vector -7.53134 -18.1823 187.184) (float-vector -9.05599 -21.8631 183.204) (float-vector -2.145297e-13 -23.6645 183.204) (float-vector -1.784118e-13 -19.6803 187.184))) | |
(instance face :init :vertices (list (float-vector -13.9161 -13.9161 187.184) (float-vector -16.7333 -16.7333 183.204) (float-vector -9.05599 -21.8631 183.204) (float-vector -7.53134 -18.1823 187.184))) | |
(instance face :init :vertices (list (float-vector -18.1823 -7.53134 187.184) (float-vector -21.8631 -9.05599 183.204) (float-vector -16.7333 -16.7333 183.204) (float-vector -13.9161 -13.9161 187.184))) | |
(instance face :init :vertices (list (float-vector -19.6803 1.072881e-13 187.184) (float-vector -23.6645 1.290076e-13 183.204) (float-vector -21.8631 -9.05599 183.204) (float-vector -18.1823 -7.53134 187.184))) | |
(instance face :init :vertices (list (float-vector -18.1823 7.53134 187.184) (float-vector -21.8631 9.05599 183.204) (float-vector -23.6645 1.290076e-13 183.204) (float-vector -19.6803 1.072881e-13 187.184))) | |
(instance face :init :vertices (list (float-vector -13.9161 13.9161 187.184) (float-vector -16.7333 16.7333 183.204) (float-vector -21.8631 9.05599 183.204) (float-vector -18.1823 7.53134 187.184))) | |
(instance face :init :vertices (list (float-vector -7.53134 18.1823 187.184) (float-vector -9.05599 21.8631 183.204) (float-vector -16.7333 16.7333 183.204) (float-vector -13.9161 13.9161 187.184))) | |
(instance face :init :vertices (list (float-vector 1.868473e-14 19.6803 187.184) (float-vector 2.246729e-14 23.6645 183.204) (float-vector -9.05599 21.8631 183.204) (float-vector -7.53134 18.1823 187.184))) | |
(instance face :init :vertices (list (float-vector 7.53134 18.1823 187.184) (float-vector 9.05599 21.8631 183.204) (float-vector 2.246729e-14 23.6645 183.204) (float-vector 1.868473e-14 19.6803 187.184))) | |
(instance face :init :vertices (list (float-vector 13.9161 13.9161 187.184) (float-vector 16.7333 16.7333 183.204) (float-vector 9.05599 21.8631 183.204) (float-vector 7.53134 18.1823 187.184))) | |
(instance face :init :vertices (list (float-vector 18.1823 7.53134 187.184) (float-vector 21.8631 9.05599 183.204) (float-vector 16.7333 16.7333 183.204) (float-vector 13.9161 13.9161 187.184))) | |
(instance face :init :vertices (list (float-vector 19.6803 0.0 187.184) (float-vector 23.6645 0.0 183.204) (float-vector 21.8631 9.05599 183.204) (float-vector 18.1823 7.53134 187.184))) | |
(instance face :init :vertices (list (float-vector 14.2409 -5.89879 191.107) (float-vector 18.1823 -7.53134 187.184) (float-vector 19.6803 0.0 187.184) (float-vector 15.4143 0.0 191.107))) | |
(instance face :init :vertices (list (float-vector 10.8995 -10.8995 191.107) (float-vector 13.9161 -13.9161 187.184) (float-vector 18.1823 -7.53134 187.184) (float-vector 14.2409 -5.89879 191.107))) | |
(instance face :init :vertices (list (float-vector 5.89879 -14.2409 191.107) (float-vector 7.53134 -18.1823 187.184) (float-vector 13.9161 -13.9161 187.184) (float-vector 10.8995 -10.8995 191.107))) | |
(instance face :init :vertices (list (float-vector -1.397379e-13 -15.4143 191.107) (float-vector -1.784118e-13 -19.6803 187.184) (float-vector 7.53134 -18.1823 187.184) (float-vector 5.89879 -14.2409 191.107))) | |
(instance face :init :vertices (list (float-vector -5.89879 -14.2409 191.107) (float-vector -7.53134 -18.1823 187.184) (float-vector -1.784118e-13 -19.6803 187.184) (float-vector -1.397379e-13 -15.4143 191.107))) | |
(instance face :init :vertices (list (float-vector -10.8995 -10.8995 191.107) (float-vector -13.9161 -13.9161 187.184) (float-vector -7.53134 -18.1823 187.184) (float-vector -5.89879 -14.2409 191.107))) | |
(instance face :init :vertices (list (float-vector -14.2409 -5.89879 191.107) (float-vector -18.1823 -7.53134 187.184) (float-vector -13.9161 -13.9161 187.184) (float-vector -10.8995 -10.8995 191.107))) | |
(instance face :init :vertices (list (float-vector -15.4143 8.403152e-14 191.107) (float-vector -19.6803 1.072881e-13 187.184) (float-vector -18.1823 -7.53134 187.184) (float-vector -14.2409 -5.89879 191.107))) | |
(instance face :init :vertices (list (float-vector -14.2409 5.89879 191.107) (float-vector -18.1823 7.53134 187.184) (float-vector -19.6803 1.072881e-13 187.184) (float-vector -15.4143 8.403152e-14 191.107))) | |
(instance face :init :vertices (list (float-vector -10.8995 10.8995 191.107) (float-vector -13.9161 13.9161 187.184) (float-vector -18.1823 7.53134 187.184) (float-vector -14.2409 5.89879 191.107))) | |
(instance face :init :vertices (list (float-vector -5.89879 14.2409 191.107) (float-vector -7.53134 18.1823 187.184) (float-vector -13.9161 13.9161 187.184) (float-vector -10.8995 10.8995 191.107))) | |
(instance face :init :vertices (list (float-vector 1.463449e-14 15.4143 191.107) (float-vector 1.868473e-14 19.6803 187.184) (float-vector -7.53134 18.1823 187.184) (float-vector -5.89879 14.2409 191.107))) | |
(instance face :init :vertices (list (float-vector 5.89879 14.2409 191.107) (float-vector 7.53134 18.1823 187.184) (float-vector 1.868473e-14 19.6803 187.184) (float-vector 1.463449e-14 15.4143 191.107))) | |
(instance face :init :vertices (list (float-vector 10.8995 10.8995 191.107) (float-vector 13.9161 13.9161 187.184) (float-vector 7.53134 18.1823 187.184) (float-vector 5.89879 14.2409 191.107))) | |
(instance face :init :vertices (list (float-vector 14.2409 5.89879 191.107) (float-vector 18.1823 7.53134 187.184) (float-vector 13.9161 13.9161 187.184) (float-vector 10.8995 10.8995 191.107))) | |
(instance face :init :vertices (list (float-vector 15.4143 0.0 191.107) (float-vector 19.6803 0.0 187.184) (float-vector 18.1823 7.53134 187.184) (float-vector 14.2409 5.89879 191.107))) | |
(instance face :init :vertices (list (float-vector 10.1627 -4.20952 195.0) (float-vector 14.2409 -5.89879 191.107) (float-vector 15.4143 0.0 191.107) (float-vector 11.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector 7.77817 -7.77817 195.0) (float-vector 10.8995 -10.8995 191.107) (float-vector 14.2409 -5.89879 191.107) (float-vector 10.1627 -4.20952 195.0))) | |
(instance face :init :vertices (list (float-vector 4.20952 -10.1627 195.0) (float-vector 5.89879 -14.2409 191.107) (float-vector 10.8995 -10.8995 191.107) (float-vector 7.77817 -7.77817 195.0))) | |
(instance face :init :vertices (list (float-vector -9.972029e-14 -11.0 195.0) (float-vector -1.397379e-13 -15.4143 191.107) (float-vector 5.89879 -14.2409 191.107) (float-vector 4.20952 -10.1627 195.0))) | |
(instance face :init :vertices (list (float-vector -4.20952 -10.1627 195.0) (float-vector -5.89879 -14.2409 191.107) (float-vector -1.397379e-13 -15.4143 191.107) (float-vector -9.972029e-14 -11.0 195.0))) | |
(instance face :init :vertices (list (float-vector -7.77817 -7.77817 195.0) (float-vector -10.8995 -10.8995 191.107) (float-vector -5.89879 -14.2409 191.107) (float-vector -4.20952 -10.1627 195.0))) | |
(instance face :init :vertices (list (float-vector -10.1627 -4.20952 195.0) (float-vector -14.2409 -5.89879 191.107) (float-vector -10.8995 -10.8995 191.107) (float-vector -7.77817 -7.77817 195.0))) | |
(instance face :init :vertices (list (float-vector -11.0 5.996689e-14 195.0) (float-vector -15.4143 8.403152e-14 191.107) (float-vector -14.2409 -5.89879 191.107) (float-vector -10.1627 -4.20952 195.0))) | |
(instance face :init :vertices (list (float-vector -10.1627 4.20952 195.0) (float-vector -14.2409 5.89879 191.107) (float-vector -15.4143 8.403152e-14 191.107) (float-vector -11.0 5.996689e-14 195.0))) | |
(instance face :init :vertices (list (float-vector -7.77817 7.77817 195.0) (float-vector -10.8995 10.8995 191.107) (float-vector -14.2409 5.89879 191.107) (float-vector -10.1627 4.20952 195.0))) | |
(instance face :init :vertices (list (float-vector -4.20952 10.1627 195.0) (float-vector -5.89879 14.2409 191.107) (float-vector -10.8995 10.8995 191.107) (float-vector -7.77817 7.77817 195.0))) | |
(instance face :init :vertices (list (float-vector 1.044352e-14 11.0 195.0) (float-vector 1.463449e-14 15.4143 191.107) (float-vector -5.89879 14.2409 191.107) (float-vector -4.20952 10.1627 195.0))) | |
(instance face :init :vertices (list (float-vector 4.20952 10.1627 195.0) (float-vector 5.89879 14.2409 191.107) (float-vector 1.463449e-14 15.4143 191.107) (float-vector 1.044352e-14 11.0 195.0))) | |
(instance face :init :vertices (list (float-vector 7.77817 7.77817 195.0) (float-vector 10.8995 10.8995 191.107) (float-vector 5.89879 14.2409 191.107) (float-vector 4.20952 10.1627 195.0))) | |
(instance face :init :vertices (list (float-vector 10.1627 4.20952 195.0) (float-vector 14.2409 5.89879 191.107) (float-vector 10.8995 10.8995 191.107) (float-vector 7.77817 7.77817 195.0))) | |
(instance face :init :vertices (list (float-vector 11.0 0.0 195.0) (float-vector 15.4143 0.0 191.107) (float-vector 14.2409 5.89879 191.107) (float-vector 10.1627 4.20952 195.0))) | |
(instance face :init :vertices (list (float-vector 10.1627 -4.20952 195.0) (float-vector 11.0 0.0 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector 11.0 0.0 195.0) (float-vector 10.1627 4.20952 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector 10.1627 4.20952 195.0) (float-vector 7.77817 7.77817 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector 7.77817 7.77817 195.0) (float-vector 4.20952 10.1627 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector 4.20952 10.1627 195.0) (float-vector 1.044352e-14 11.0 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector 1.044352e-14 11.0 195.0) (float-vector -4.20952 10.1627 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector -4.20952 10.1627 195.0) (float-vector -7.77817 7.77817 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector -7.77817 7.77817 195.0) (float-vector -10.1627 4.20952 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector -10.1627 4.20952 195.0) (float-vector -11.0 5.996689e-14 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector -11.0 5.996689e-14 195.0) (float-vector -10.1627 -4.20952 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector -10.1627 -4.20952 195.0) (float-vector -7.77817 -7.77817 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector -7.77817 -7.77817 195.0) (float-vector -4.20952 -10.1627 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector -4.20952 -10.1627 195.0) (float-vector -9.972029e-14 -11.0 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector -9.972029e-14 -11.0 195.0) (float-vector 4.20952 -10.1627 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector 4.20952 -10.1627 195.0) (float-vector 7.77817 -7.77817 195.0) (float-vector 0.0 0.0 195.0))) | |
(instance face :init :vertices (list (float-vector 7.77817 -7.77817 195.0) (float-vector 10.1627 -4.20952 195.0) (float-vector 0.0 0.0 195.0))) | |
)) | |
(instance faceset :init :faces (list | |
(instance face :init :vertices (list (float-vector 10.8253 -6.25 215.0) (float-vector 12.5 0.0 215.0) (float-vector 10.8253 6.25 215.0) (float-vector 6.25 10.8253 215.0) (float-vector 6.217249e-15 12.5 215.0) (float-vector -6.25 10.8253 215.0) (float-vector -10.8253 6.25 215.0) (float-vector -12.5 1.332268e-14 215.0) (float-vector -10.8253 -6.25 215.0) (float-vector -6.25 -10.8253 215.0) (float-vector -2.042810e-14 -12.5 215.0) (float-vector 6.25 -10.8253 215.0))) | |
(instance face :init :vertices (list (float-vector 12.5 0.0 193.0) (float-vector 10.8253 -6.25 193.0) (float-vector 6.25 -10.8253 193.0) (float-vector -2.042810e-14 -12.5 193.0) (float-vector -6.25 -10.8253 193.0) (float-vector -10.8253 -6.25 193.0) (float-vector -12.5 1.332268e-14 193.0) (float-vector -10.8253 6.25 193.0) (float-vector -6.25 10.8253 193.0) (float-vector 6.217249e-15 12.5 193.0) (float-vector 6.25 10.8253 193.0) (float-vector 10.8253 6.25 193.0))) | |
(instance face :init :vertices (list (float-vector 10.8253 -6.25 215.0) (float-vector 10.8253 -6.25 193.0) (float-vector 12.5 0.0 193.0) (float-vector 12.5 0.0 215.0))) | |
(instance face :init :vertices (list (float-vector 6.25 -10.8253 215.0) (float-vector 6.25 -10.8253 193.0) (float-vector 10.8253 -6.25 193.0) (float-vector 10.8253 -6.25 215.0))) | |
(instance face :init :vertices (list (float-vector -2.042810e-14 -12.5 215.0) (float-vector -2.042810e-14 -12.5 193.0) (float-vector 6.25 -10.8253 193.0) (float-vector 6.25 -10.8253 215.0))) | |
(instance face :init :vertices (list (float-vector -6.25 -10.8253 215.0) (float-vector -6.25 -10.8253 193.0) (float-vector -2.042810e-14 -12.5 193.0) (float-vector -2.042810e-14 -12.5 215.0))) | |
(instance face :init :vertices (list (float-vector -10.8253 -6.25 215.0) (float-vector -10.8253 -6.25 193.0) (float-vector -6.25 -10.8253 193.0) (float-vector -6.25 -10.8253 215.0))) | |
(instance face :init :vertices (list (float-vector -12.5 1.332268e-14 215.0) (float-vector -12.5 1.332268e-14 193.0) (float-vector -10.8253 -6.25 193.0) (float-vector -10.8253 -6.25 215.0))) | |
(instance face :init :vertices (list (float-vector -10.8253 6.25 215.0) (float-vector -10.8253 6.25 193.0) (float-vector -12.5 1.332268e-14 193.0) (float-vector -12.5 1.332268e-14 215.0))) | |
(instance face :init :vertices (list (float-vector -6.25 10.8253 215.0) (float-vector -6.25 10.8253 193.0) (float-vector -10.8253 6.25 193.0) (float-vector -10.8253 6.25 215.0))) | |
(instance face :init :vertices (list (float-vector 6.217249e-15 12.5 215.0) (float-vector 6.217249e-15 12.5 193.0) (float-vector -6.25 10.8253 193.0) (float-vector -6.25 10.8253 215.0))) | |
(instance face :init :vertices (list (float-vector 6.25 10.8253 215.0) (float-vector 6.25 10.8253 193.0) (float-vector 6.217249e-15 12.5 193.0) (float-vector 6.217249e-15 12.5 215.0))) | |
(instance face :init :vertices (list (float-vector 10.8253 6.25 215.0) (float-vector 10.8253 6.25 193.0) (float-vector 6.25 10.8253 193.0) (float-vector 6.25 10.8253 215.0))) | |
(instance face :init :vertices (list (float-vector 12.5 0.0 215.0) (float-vector 12.5 0.0 193.0) (float-vector 10.8253 6.25 193.0) (float-vector 10.8253 6.25 215.0))) | |
)) | |
)) | |
(dolist (b (cdr bc)) (send (car bc) :assoc b)) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)2) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.92 0) #f(0.92 1) #f(1.00 1) #f(1.00 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)3) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.84 0) #f(0.84 1) #f(0.92 1) #f(0.92 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.76 0) #f(0.76 1) #f(0.84 1) #f(0.84 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)5) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.68 0) #f(0.68 1) #f(0.76 1) #f(0.76 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)6) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.60 0) #f(0.60 1) #f(0.68 1) #f(0.68 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)7) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.52 0) #f(0.52 1) #f(0.60 1) #f(0.60 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)8) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.44 0) #f(0.44 1) #f(0.52 1) #f(0.52 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)9) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.36 0) #f(0.36 1) #f(0.44 1) #f(0.44 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)10) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.28 0) #f(0.28 1) #f(0.36 1) #f(0.36 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)11) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.20 0) #f(0.20 1) #f(0.28 1) #f(0.28 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)12) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.12 0) #f(0.12 1) #f(0.20 1) #f(0.20 0))) | |
;; paste texture skp-coca-cola.jpg | |
(send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)13) :file "models/skp-coca-cola.jpg" :tex-coords '(#f(0.04 0) #f(0.04 1) #f(0.12 1) #f(0.12 0))) | |
(send (elt bc 0) :set-color :white) | |
(send (elt bc 1) :set-color :white) | |
(send (elt bc 2) :set-color :gray60) | |
(setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'cocacola :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)))) | |
;; definition of assoc | |
(send self :assoc blink0) | |
;; definition of end-coords | |
;; definition of joint | |
;; definition of :handle | |
(setq handle0 (make-cascoords :pos (float-vector 0.0 0.0 97.5) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "handle0")) | |
(send blink0 :assoc handle0) | |
;; definition of :attention | |
(setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 215.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "attention0")) | |
(send blink0 :assoc attention0) | |
;; init-ending | |
(setq links (list blink0)) | |
(setq joint-list (list)) | |
(send self :init-ending) | |
(send self :move-to (make-coords :pos pos :rot rot)) | |
(send-all links :worldcoords) | |
self)) | |
(: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 cocacola (&rest args) (instance* cocacola-object :init args)) | |
;; (format *error-output* "(instance cocacola-object :init) for generating model~%") |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment