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 / mb1boldt.fs < prev    next >
Lisp/Scheme  |  1995-05-08  |  21KB  |  392 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/ldata8.isr2"
  17.                                                             2818)
  18.                                     :TOKENSETNAME
  19.                                     "MB1-j8-lines"
  20.                                     :LOAD-FILENAME
  21.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata8.isr2"
  22.                                     :C-FILENAME
  23.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata8.lines"
  24.                                     :COLOR
  25.                                     "GREEN"
  26.                                     :THICKNESS
  27.                                     1
  28.                                     :WORLD
  29.                                     (GET-OR-MAKE-2D-WORLD :NAME
  30.                                                           "MB1-j8"
  31.                                                           :3D-WORLD-NAME
  32.                                                           "Radius Model Board 1")
  33.                                     :OBJECT-TO-WORLD-TRANSFORM
  34.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  35.                                                    :TRANSFORM-MATRIX
  36.                                                    (MAKE-COORD-FRAME-MATRIX
  37.                                                     0.0
  38.                                                     0.0
  39.                                                     0.0))
  40.                                     :WORLD
  41.                                     (GET-OR-MAKE-2D-WORLD :NAME
  42.                                                           "MB1-j8"
  43.                                                           :3D-WORLD-NAME
  44.                                                           "Radius Model Board 1")))
  45.                :NAME
  46.                '"UMass Boldt Lines"
  47.                :WORLD
  48.                (GET-OR-MAKE-2D-WORLD :NAME
  49.                                      "MB1-j8"
  50.                                      :3D-WORLD-NAME
  51.                                      "Radius Model Board 1")
  52.                :PROPERTY-LIST
  53.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  54. (MAKE-INSTANCE '2D-FEATURE-SET
  55.                :WORLD
  56.                (GET-OR-MAKE-2D-WORLD :NAME
  57.                                      "MB1-j7"
  58.                                      :3D-WORLD-NAME
  59.                                      "Radius Model Board 1")
  60.                :INFERIORS
  61.                (LIST (MAKE-INSTANCE 'ISR-LINE-TOKENSET-OBJECT
  62.                                     :TOKENSET
  63.                                     (INTERNAL-READ-TOKENSET "MB1-j7-lines"
  64.                                                             "$CME/code/CME-5d/UMass/Demo/MB1/ldata7.isr2"
  65.                                                             2917)
  66.                                     :TOKENSETNAME
  67.                                     "MB1-j7-lines"
  68.                                     :LOAD-FILENAME
  69.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata7.isr2"
  70.                                     :C-FILENAME
  71.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata7.lines"
  72.                                     :COLOR
  73.                                     "GREEN"
  74.                                     :THICKNESS
  75.                                     1
  76.                                     :WORLD
  77.                                     (GET-OR-MAKE-2D-WORLD :NAME
  78.                                                           "MB1-j7"
  79.                                                           :3D-WORLD-NAME
  80.                                                           "Radius Model Board 1")
  81.                                     :OBJECT-TO-WORLD-TRANSFORM
  82.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  83.                                                    :TRANSFORM-MATRIX
  84.                                                    (MAKE-COORD-FRAME-MATRIX
  85.                                                     0.0
  86.                                                     0.0
  87.                                                     0.0))
  88.                                     :WORLD
  89.                                     (GET-OR-MAKE-2D-WORLD :NAME
  90.                                                           "MB1-j7"
  91.                                                           :3D-WORLD-NAME
  92.                                                           "Radius Model Board 1")))
  93.                :NAME
  94.                '"UMass Boldt Lines"
  95.                :WORLD
  96.                (GET-OR-MAKE-2D-WORLD :NAME
  97.                                      "MB1-j7"
  98.                                      :3D-WORLD-NAME
  99.                                      "Radius Model Board 1")
  100.                :PROPERTY-LIST
  101.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  102. (MAKE-INSTANCE '2D-FEATURE-SET
  103.                :WORLD
  104.                (GET-OR-MAKE-2D-WORLD :NAME
  105.                                      "MB1-j6"
  106.                                      :3D-WORLD-NAME
  107.                                      "Radius Model Board 1")
  108.                :INFERIORS
  109.                (LIST (MAKE-INSTANCE 'ISR-LINE-TOKENSET-OBJECT
  110.                                     :TOKENSET
  111.                                     (INTERNAL-READ-TOKENSET "MB1-j6-lines"
  112.                                                             "$CME/code/CME-5d/UMass/Demo/MB1/ldata6.isr2"
  113.                                                             2878)
  114.                                     :TOKENSETNAME
  115.                                     "MB1-j6-lines"
  116.                                     :LOAD-FILENAME
  117.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata6.isr2"
  118.                                     :C-FILENAME
  119.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata6.lines"
  120.                                     :COLOR
  121.                                     "GREEN"
  122.                                     :THICKNESS
  123.                                     1
  124.                                     :WORLD
  125.                                     (GET-OR-MAKE-2D-WORLD :NAME
  126.                                                           "MB1-j6"
  127.                                                           :3D-WORLD-NAME
  128.                                                           "Radius Model Board 1")
  129.                                     :OBJECT-TO-WORLD-TRANSFORM
  130.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  131.                                                    :TRANSFORM-MATRIX
  132.                                                    (MAKE-COORD-FRAME-MATRIX
  133.                                                     0.0
  134.                                                     0.0
  135.                                                     0.0))
  136.                                     :WORLD
  137.                                     (GET-OR-MAKE-2D-WORLD :NAME
  138.                                                           "MB1-j6"
  139.                                                           :3D-WORLD-NAME
  140.                                                           "Radius Model Board 1")))
  141.                :NAME
  142.                '"UMass Boldt Lines"
  143.                :WORLD
  144.                (GET-OR-MAKE-2D-WORLD :NAME
  145.                                      "MB1-j6"
  146.                                      :3D-WORLD-NAME
  147.                                      "Radius Model Board 1")
  148.                :PROPERTY-LIST
  149.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  150. (MAKE-INSTANCE '2D-FEATURE-SET
  151.                :WORLD
  152.                (GET-OR-MAKE-2D-WORLD :NAME
  153.                                      "MB1-j5"
  154.                                      :3D-WORLD-NAME
  155.                                      "Radius Model Board 1")
  156.                :INFERIORS
  157.                (LIST (MAKE-INSTANCE 'ISR-LINE-TOKENSET-OBJECT
  158.                                     :TOKENSET
  159.                                     (INTERNAL-READ-TOKENSET "MB1-j5-lines"
  160.                                                             "$CME/code/CME-5d/UMass/Demo/MB1/ldata5.isr2"
  161.                                                             2772)
  162.                                     :TOKENSETNAME
  163.                                     "MB1-j5-lines"
  164.                                     :LOAD-FILENAME
  165.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata5.isr2"
  166.                                     :C-FILENAME
  167.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata5.lines"
  168.                                     :COLOR
  169.                                     "GREEN"
  170.                                     :THICKNESS
  171.                                     1
  172.                                     :WORLD
  173.                                     (GET-OR-MAKE-2D-WORLD :NAME
  174.                                                           "MB1-j5"
  175.                                                           :3D-WORLD-NAME
  176.                                                           "Radius Model Board 1")
  177.                                     :OBJECT-TO-WORLD-TRANSFORM
  178.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  179.                                                    :TRANSFORM-MATRIX
  180.                                                    (MAKE-COORD-FRAME-MATRIX
  181.                                                     0.0
  182.                                                     0.0
  183.                                                     0.0))
  184.                                     :WORLD
  185.                                     (GET-OR-MAKE-2D-WORLD :NAME
  186.                                                           "MB1-j5"
  187.                                                           :3D-WORLD-NAME
  188.                                                           "Radius Model Board 1")))
  189.                :NAME
  190.                '"UMass Boldt Lines"
  191.                :WORLD
  192.                (GET-OR-MAKE-2D-WORLD :NAME
  193.                                      "MB1-j5"
  194.                                      :3D-WORLD-NAME
  195.                                      "Radius Model Board 1")
  196.                :PROPERTY-LIST
  197.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  198. (MAKE-INSTANCE '2D-FEATURE-SET
  199.                :WORLD
  200.                (GET-OR-MAKE-2D-WORLD :NAME
  201.                                      "MB1-j4"
  202.                                      :3D-WORLD-NAME
  203.                                      "Radius Model Board 1")
  204.                :INFERIORS
  205.                (LIST (MAKE-INSTANCE 'ISR-LINE-TOKENSET-OBJECT
  206.                                     :TOKENSET
  207.                                     (INTERNAL-READ-TOKENSET "MB1-j4-lines"
  208.                                                             "$CME/code/CME-5d/UMass/Demo/MB1/ldata4.isr2"
  209.                                                             2750)
  210.                                     :TOKENSETNAME
  211.                                     "MB1-j4-lines"
  212.                                     :LOAD-FILENAME
  213.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata4.isr2"
  214.                                     :C-FILENAME
  215.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata4.lines"
  216.                                     :COLOR
  217.                                     "GREEN"
  218.                                     :THICKNESS
  219.                                     1
  220.                                     :WORLD
  221.                                     (GET-OR-MAKE-2D-WORLD :NAME
  222.                                                           "MB1-j4"
  223.                                                           :3D-WORLD-NAME
  224.                                                           "Radius Model Board 1")
  225.                                     :OBJECT-TO-WORLD-TRANSFORM
  226.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  227.                                                    :TRANSFORM-MATRIX
  228.                                                    (MAKE-COORD-FRAME-MATRIX
  229.                                                     0.0
  230.                                                     0.0
  231.                                                     0.0))
  232.                                     :WORLD
  233.                                     (GET-OR-MAKE-2D-WORLD :NAME
  234.                                                           "MB1-j4"
  235.                                                           :3D-WORLD-NAME
  236.                                                           "Radius Model Board 1")))
  237.                :NAME
  238.                '"UMass Boldt Lines"
  239.                :WORLD
  240.                (GET-OR-MAKE-2D-WORLD :NAME
  241.                                      "MB1-j4"
  242.                                      :3D-WORLD-NAME
  243.                                      "Radius Model Board 1")
  244.                :PROPERTY-LIST
  245.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  246. (MAKE-INSTANCE '2D-FEATURE-SET
  247.                :WORLD
  248.                (GET-OR-MAKE-2D-WORLD :NAME
  249.                                      "MB1-j3"
  250.                                      :3D-WORLD-NAME
  251.                                      "Radius Model Board 1")
  252.                :INFERIORS
  253.                (LIST (MAKE-INSTANCE 'ISR-LINE-TOKENSET-OBJECT
  254.                                     :TOKENSET
  255.                                     (INTERNAL-READ-TOKENSET "MB1-j3-lines"
  256.                                                             "$CME/code/CME-5d/UMass/Demo/MB1/ldata3.isr2"
  257.                                                             2734)
  258.                                     :TOKENSETNAME
  259.                                     "MB1-j3-lines"
  260.                                     :LOAD-FILENAME
  261.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata3.isr2"
  262.                                     :C-FILENAME
  263.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata3.lines"
  264.                                     :COLOR
  265.                                     "GREEN"
  266.                                     :THICKNESS
  267.                                     1
  268.                                     :WORLD
  269.                                     (GET-OR-MAKE-2D-WORLD :NAME
  270.                                                           "MB1-j3"
  271.                                                           :3D-WORLD-NAME
  272.                                                           "Radius Model Board 1")
  273.                                     :OBJECT-TO-WORLD-TRANSFORM
  274.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  275.                                                    :TRANSFORM-MATRIX
  276.                                                    (MAKE-COORD-FRAME-MATRIX
  277.                                                     0.0
  278.                                                     0.0
  279.                                                     0.0))
  280.                                     :WORLD
  281.                                     (GET-OR-MAKE-2D-WORLD :NAME
  282.                                                           "MB1-j3"
  283.                                                           :3D-WORLD-NAME
  284.                                                           "Radius Model Board 1")))
  285.                :NAME
  286.                '"UMass Boldt Lines"
  287.                :WORLD
  288.                (GET-OR-MAKE-2D-WORLD :NAME
  289.                                      "MB1-j3"
  290.                                      :3D-WORLD-NAME
  291.                                      "Radius Model Board 1")
  292.                :PROPERTY-LIST
  293.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  294. (MAKE-INSTANCE '2D-FEATURE-SET
  295.                :WORLD
  296.                (GET-OR-MAKE-2D-WORLD :NAME
  297.                                      "MB1-j2"
  298.                                      :3D-WORLD-NAME
  299.                                      "Radius Model Board 1")
  300.                :INFERIORS
  301.                (LIST (MAKE-INSTANCE 'ISR-LINE-TOKENSET-OBJECT
  302.                                     :TOKENSET
  303.                                     (INTERNAL-READ-TOKENSET "MB1-j2-lines"
  304.                                                             "$CME/code/CME-5d/UMass/Demo/MB1/ldata2.isr2"
  305.                                                             2772)
  306.                                     :TOKENSETNAME
  307.                                     "MB1-j2-lines"
  308.                                     :LOAD-FILENAME
  309.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata2.isr2"
  310.                                     :C-FILENAME
  311.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata2.lines"
  312.                                     :COLOR
  313.                                     "GREEN"
  314.                                     :THICKNESS
  315.                                     1
  316.                                     :WORLD
  317.                                     (GET-OR-MAKE-2D-WORLD :NAME
  318.                                                           "MB1-j2"
  319.                                                           :3D-WORLD-NAME
  320.                                                           "Radius Model Board 1")
  321.                                     :OBJECT-TO-WORLD-TRANSFORM
  322.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  323.                                                    :TRANSFORM-MATRIX
  324.                                                    (MAKE-COORD-FRAME-MATRIX
  325.                                                     0.0
  326.                                                     0.0
  327.                                                     0.0))
  328.                                     :WORLD
  329.                                     (GET-OR-MAKE-2D-WORLD :NAME
  330.                                                           "MB1-j2"
  331.                                                           :3D-WORLD-NAME
  332.                                                           "Radius Model Board 1")))
  333.                :NAME
  334.                '"UMass Boldt Lines"
  335.                :WORLD
  336.                (GET-OR-MAKE-2D-WORLD :NAME
  337.                                      "MB1-j2"
  338.                                      :3D-WORLD-NAME
  339.                                      "Radius Model Board 1")
  340.                :PROPERTY-LIST
  341.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  342. (MAKE-INSTANCE '2D-FEATURE-SET
  343.                :WORLD
  344.                (GET-OR-MAKE-2D-WORLD :NAME
  345.                                      "MB1-j1"
  346.                                      :3D-WORLD-NAME
  347.                                      "Radius Model Board 1")
  348.                :INFERIORS
  349.                (LIST (MAKE-INSTANCE 'ISR-LINE-TOKENSET-OBJECT
  350.                                     :TOKENSET
  351.                                     (INTERNAL-READ-TOKENSET "MB1-j1-lines"
  352.                                                             "$CME/code/CME-5d/UMass/Demo/MB1/ldata1.isr2"
  353.                                                             2662)
  354.                                     :TOKENSETNAME
  355.                                     "MB1-j1-lines"
  356.                                     :LOAD-FILENAME
  357.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata1.isr2"
  358.                                     :C-FILENAME
  359.                                     "$CME/code/CME-5d/UMass/Demo/MB1/ldata1.lines"
  360.                                     :COLOR
  361.                                     "GREEN"
  362.                                     :THICKNESS
  363.                                     1
  364.                                     :WORLD
  365.                                     (GET-OR-MAKE-2D-WORLD :NAME
  366.                                                           "MB1-j1"
  367.                                                           :3D-WORLD-NAME
  368.                                                           "Radius Model Board 1")
  369.                                     :OBJECT-TO-WORLD-TRANSFORM
  370.                                     (MAKE-INSTANCE '4X4-COORDINATE-TRANSFORM
  371.                                                    :TRANSFORM-MATRIX
  372.                                                    (MAKE-COORD-FRAME-MATRIX
  373.                                                     0.0
  374.                                                     0.0
  375.                                                     0.0))
  376.                                     :WORLD
  377.                                     (GET-OR-MAKE-2D-WORLD :NAME
  378.                                                           "MB1-j1"
  379.                                                           :3D-WORLD-NAME
  380.                                                           "Radius Model Board 1")))
  381.                :NAME
  382.                '"UMass Boldt Lines"
  383.                :WORLD
  384.                (GET-OR-MAKE-2D-WORLD :NAME
  385.                                      "MB1-j1"
  386.                                      :3D-WORLD-NAME
  387.                                      "Radius Model Board 1")
  388.                :PROPERTY-LIST
  389.                (LIST ':DRAWING-COMPLEXITY 'NIL))
  390.  
  391. ))
  392.