pepsi-object-fixed.l

;;
;; DO NOT EDIT THIS FILE
;; this file is automatically generated from euslisp+euslib version 
;;
;;
(defclass pepsi-object
  :super cascaded-link
  :slots (sensors
         handle0
         attention0
         ))
(defmethod pepsi-object
  (:init
   (&rest args &key (name "pepsi") (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 'pepsi
     (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-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)2) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.92 0) #f(0.92 1) #f(1.00 1) #f(1.00 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)3) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.84 0) #f(0.84 1) #f(0.92 1) #f(0.92 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)4) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.76 0) #f(0.76 1) #f(0.84 1) #f(0.84 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)5) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.68 0) #f(0.68 1) #f(0.76 1) #f(0.76 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)6) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.60 0) #f(0.60 1) #f(0.68 1) #f(0.68 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)7) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.52 0) #f(0.52 1) #f(0.60 1) #f(0.60 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)8) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.44 0) #f(0.44 1) #f(0.52 1) #f(0.52 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)9) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.36 0) #f(0.36 1) #f(0.44 1) #f(0.44 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)10) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.28 0) #f(0.28 1) #f(0.36 1) #f(0.36 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)11) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.20 0) #f(0.20 1) #f(0.28 1) #f(0.28 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)12) :file "models/skp-pepsi.jpg" :tex-coords '(#f(0.12 0) #f(0.12 1) #f(0.20 1) #f(0.20 0)))
     ;; paste texture skp-pepsi.jpg
     (send (elt bc 0) :paste-texture-to-face (elt (send (elt bc 0) :faces)13) :file "models/skp-pepsi.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 :gray30)
     (send (elt bc 1) :set-color :gray30)
     (send (elt bc 2) :set-color :blue)
     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name 'pepsi :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 pepsi (&rest args) (instance* pepsi-object :init args))
;; (format *error-output* "(instance pepsi-object :init) for generating model~%")