home *** CD-ROM | disk | FTP | other *** search
/ vis-ftp.cs.umass.edu / vis-ftp.cs.umass.edu.tar / vis-ftp.cs.umass.edu / pub / Software / ASCENDER / ascender.tar.Z / ascender.tar / site-model.fs.~1~ < prev    next >
Text File  |  1996-03-28  |  5KB  |  92 lines
  1. (IN-PACKAGE "CME")
  2.  
  3. (SETQ CME::*OBJECT-FEATURE-SETS* (list 
  4.  
  5.  
  6. (MAKE-INSTANCE '3D-FEATURE-SET
  7.                :NAME
  8.                "UMass 3d Hypotheses"
  9.                :WORLD
  10.                "Radius Model Board 1"
  11.                :INFERIORS
  12.                (LIST (MAKE-INSTANCE 'EXTRUDED-OBJECT
  13.                                     :NAME
  14.                                     "Extrusion-1"
  15.                                     :TOP-VERTICES
  16.                                     (MAKE-FACE-VERTEX-LIST '((989.835632
  17.                                                               1380.14539
  18.                                                               -48.797344)
  19.                                                              (1109.805951
  20.                                                               1380.174662
  21.                                                               -48.797344)
  22.                                                              (1109.829467
  23.                                                               1283.799907
  24.                                                               -48.797344)
  25.                                                              (989.859148
  26.                                                               1283.770635
  27.                                                               -48.797344)))
  28.                                     :Z-SIZE
  29.                                     36.20265838418579
  30.                                     :OBJECT-TO-WORLD-TRANSFORM
  31.                                     (MAKE-COORD-FRAME 0.0 0.0 0.0)
  32.                                     :WORLD
  33.                                     (GET-OR-MAKE-3D-WORLD :NAME
  34.                                                           "Radius Model Board 1")
  35.                                     :PROPERTY-LIST
  36.                                     (LIST :MATCH-SCORE '3.7712974548339844))
  37.                      (MAKE-INSTANCE 'EXTRUDED-OBJECT
  38.                                     :NAME
  39.                                     "Extrusion-2"
  40.                                     :TOP-VERTICES
  41.                                     (MAKE-FACE-VERTEX-LIST '((1165.844295
  42.                                                               1375.881008
  43.                                                               -50.612033)
  44.                                                              (982.052726
  45.                                                               1377.675175
  46.                                                               -50.612033)
  47.                                                              (981.126162
  48.                                                               1282.759409
  49.                                                               -50.612033)
  50.                                                              (1111.405362
  51.                                                               1281.487628
  52.                                                               -50.612033)
  53.                                                              (1111.868773
  54.                                                               1328.958657
  55.                                                               -50.612033)
  56.                                                              (1165.381141
  57.                                                               1328.436271
  58.                                                               -50.612033)))
  59.                                     :Z-SIZE
  60.                                     34.387969384185794
  61.                                     :OBJECT-TO-WORLD-TRANSFORM
  62.                                     (MAKE-COORD-FRAME 0.0 0.0 0.0)
  63.                                     :WORLD
  64.                                     (GET-OR-MAKE-3D-WORLD :NAME
  65.                                                           "Radius Model Board 1")
  66.                                     :PROPERTY-LIST
  67.                                     (LIST :ROOF-POLYGON
  68.                                           '((1165.844295
  69.                                              1375.881008
  70.                                              -50.612033)
  71.                                             (982.052726 1377.675175 -50.612033)
  72.                                             (981.126162 1282.759409 -50.612033)
  73.                                             (1111.405362
  74.                                              1281.487628
  75.                                              -50.612033)
  76.                                             (1111.868773
  77.                                              1328.958657
  78.                                              -50.612033)
  79.                                             (1165.381141
  80.                                              1328.436271
  81.                                              -50.612033))
  82.                                           :MATCH-SCORE
  83.                                           '3.005525271097819))))
  84. (MAKE-INSTANCE '3D-FEATURE-SET
  85.                :NAME
  86.                "UMass 3d Buildings"
  87.                :WORLD
  88.                "Radius Model Board 1"
  89.                :INFERIORS
  90.                (LIST "Extrusion-1"))
  91.  
  92. ))