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 / ascendMar8.tar / UMass / Demo / MB1 / j1boldt.fs next >
Lisp/Scheme  |  1995-04-13  |  3KB  |  54 lines
  1. (in-package "CME")
  2.  
  3. (setq cme::*object-feature-sets* (list 
  4.  
  5.  
  6. (MAKE-INSTANCE '2D-FEATURE-SET
  7.                :WORLD
  8.                (GET-OR-MAKE-2D-WORLD :NAME
  9.                                      "MB1-j8"
  10.                                      :3D-WORLD-NAME
  11.                                      "Radius Model Board 1")
  12.                :INFERIORS
  13.                (LIST (MAKE-INSTANCE 'ISR-LINE-TOKENSET-OBJECT
  14.                                     :TOKENSET
  15.                                     (INTERNAL-READ-TOKENSET "MB1-j8-lines"
  16.                                                             "$CME/code/CME-5d/UMass/Demo/MB1/ldata.8"
  17.                                                             1303
  18.                                                             1032)
  19.                                     :TOKENSETNAME
  20.                                     "MB1-j8-lines"
  21.                                     :LOAD-FILENAME
  22.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata.8"
  23.                                     :COLOR
  24.                                     "GREEN"
  25.                                     :THICKNESS
  26.                                     1
  27.                                     :WORLD
  28.                                     (GET-OR-MAKE-2D-WORLD :NAME
  29.                                                           "MB1-j8"
  30.                                                           :3D-WORLD-NAME
  31.                                                           "Radius Model Board 1")
  32.                                     :OBJECT-TO-WORLD-TRANSFORM
  33.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  34.                                                    :TRANSFORM-MATRIX
  35.                                                    (MAKE-COORD-FRAME-MATRIX
  36.                                                     0.0
  37.                                                     0.0
  38.                                                     0.0))
  39.                                     :WORLD
  40.                                     (GET-OR-MAKE-2D-WORLD :NAME
  41.                                                           "MB1-j8"
  42.                                                           :3D-WORLD-NAME
  43.                                                           "Radius Model Board 1")))
  44.                :NAME
  45.                '"UMass Boldt Lines"
  46.                :WORLD
  47.                (GET-OR-MAKE-2D-WORLD :NAME
  48.                                      "MB1-j8"
  49.                                      :3D-WORLD-NAME
  50.                                      "Radius Model Board 1")
  51.                :PROPERTY-LIST
  52.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  53.  
  54. ))