home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / 3dstudio / utility / sym3dc / symcubes.obj < prev   
Encoding:
Text File  |  1993-01-10  |  1.6 KB  |  78 lines
  1. ;;; -*- Base: 10.; Lowercase: Yes; Mode: Lisp; Package: 3D; -*-
  2.  
  3. :version 18
  4. :units FEET
  5.  
  6. :name "symcubes"
  7. :body GROUP
  8.  
  9.   :name "cube1"
  10.   :init-display (flag 3 min-edge-hardness NIL)
  11.   :body POLYHEDRON
  12.   :version (18 5)
  13.   :description "(Polyhedron):     8pts    18edges    12faces."
  14.   :numbered-vertices
  15.   ((1     -10.0       -10.0       10.0)
  16.    (2     -10.0       10.0        10.0)
  17.    (3     10.0        10.0        10.0)
  18.    (4     10.0        -10.0       10.0)
  19.    (5     10.0        -10.0       -10.0)
  20.    (6     10.0        10.0        -10.0)
  21.    (7     -10.0       10.0        -10.0)
  22.    (8     -10.0       -10.0       -10.0))
  23.   :numbered-faces-by-vertex
  24.   ((1     1    3    4)
  25.    (2     5    7    8)
  26.    (3     2    6    3)
  27.    (4     8    4    5)
  28.    (5     4    6    5)
  29.    (6     8    2    1)
  30.    (7     2    8    7)
  31.    (8     6    4    3)
  32.    (9     4    8    1)
  33.    (10    6    2    7)
  34.    (11    7    5    6)
  35.    (12    3    1    2))
  36.   :generator
  37.    (MAKE-CUBE 20.0)
  38.   :end-body "POLYHEDRON"
  39.   :end "cube1"
  40.  
  41.   :name "cube2"
  42.   :init-display (flag 3 min-edge-hardness NIL)
  43.   :body POLYHEDRON
  44.   :version (18 5)
  45.   :description "(Polyhedron):     8pts    18edges    12faces."
  46.   :numbered-vertices
  47.   ((1     22.212753    20.774227    10.0)
  48.    (2     18.46513    40.419975    10.0)
  49.    (3     38.11088    44.167606    10.0)
  50.    (4     41.858513    24.521858    10.0)
  51.    (5     41.858513    24.521858    -10.0)
  52.    (6     38.11088    44.167606    -10.0)
  53.    (7     18.46513    40.419975    -10.0)
  54.    (8     22.212753    20.774227    -10.0))
  55.   :numbered-faces-by-vertex
  56.   ((1     1    3    4)
  57.    (2     5    7    8)
  58.    (3     2    6    3)
  59.    (4     8    4    5)
  60.    (5     4    6    5)
  61.    (6     8    2    1)
  62.    (7     2    8    7)
  63.    (8     6    4    3)
  64.    (9     4    8    1)
  65.    (10    6    2    7)
  66.    (11    7    5    6)
  67.    (12    3    1    2))
  68.   :locus-state-lists
  69.  ()
  70.   :generator
  71.    (MAKE-CUBE 20.0)
  72.   :end-body "POLYHEDRON"
  73.   :end "cube2"
  74.  
  75. :end-body "GROUP"
  76. :end "symcubes"
  77.  
  78.