home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / X / mit / demos / gpc / objects / line.vrb < prev    next >
Encoding:
Text File  |  1991-02-13  |  2.7 KB  |  117 lines
  1. %                                                                      %
  2. %    BIF Verb file, test for DFX translator                             %
  3. %                                                                      %
  4. READ_GEOMETRY_FILE
  5.     "fan.bif"
  6.     "map.bif"
  7.     "ram.bif"
  8.     "ujoint.bif"  
  9.     ;
  10.  
  11. LINE_COLOR_INDEX 1; % Geometry does not use exlpicit color, init to index 1 %
  12.  
  13. % Set up default view (view table entry 1)                             %
  14. DEFAULT_VIEW_SPECIFICATION
  15.     1 9.5 PARALLEL ;
  16. IDENTITY3 1 ;
  17. TRANSLATE3 1  -10.5  -7.5    0.0      REPLACE ;
  18. TRANSLATE3 2    0.5   0.375  0.0      REPLACE ;
  19. TRANSLATE3 3   -0.5  -0.375  0.0      REPLACE ;
  20.  
  21.  
  22. ACTIVE_VIEW 1;
  23. BEGIN_TEST 20;
  24. CONCAT_MATRIX3 2 1 PRECONCAT;
  25. APPLY_TO_LOCAL3 1 REPLACE;
  26. EXECUTE_STRUCTURE 2 ;
  27. END_TEST ;
  28. BEGIN_TEST 40;
  29. CONCAT_MATRIX3 3 1 PRECONCAT;
  30. APPLY_TO_LOCAL3 1 REPLACE;
  31. EXECUTE_STRUCTURE 2 ;
  32. END_TEST ;
  33. BEGIN_TEST 20;
  34. CONCAT_MATRIX3 2 1 PRECONCAT;
  35. APPLY_TO_LOCAL3 1 REPLACE;
  36. EXECUTE_STRUCTURE 2 ;
  37. END_TEST ;
  38.  
  39. % Set up default view (view table entry 1)                             %
  40. DEFAULT_VIEW_SPECIFICATION
  41.     1 1020 PARALLEL ;
  42. IDENTITY3 1 ;
  43. TRANSLATE3 1  -1700  -1150    0      REPLACE ;
  44. TRANSLATE3 2   51.5  30.375  0.0      REPLACE ;
  45. TRANSLATE3 3  -51.5 -30.375  0.0      REPLACE ;
  46.  
  47. ACTIVE_VIEW 1;
  48. BEGIN_TEST 20;
  49. CONCAT_MATRIX3 2 1 PRECONCAT;
  50. APPLY_TO_LOCAL3 1 REPLACE;
  51. EXECUTE_STRUCTURE 3 ;
  52. END_TEST ;
  53. BEGIN_TEST 40;
  54. CONCAT_MATRIX3 3 1 PRECONCAT;
  55. APPLY_TO_LOCAL3 1 REPLACE;
  56. EXECUTE_STRUCTURE 3 ;
  57. END_TEST ;
  58. BEGIN_TEST 20;
  59. CONCAT_MATRIX3 2 1 PRECONCAT;
  60. APPLY_TO_LOCAL3 1 REPLACE;
  61. EXECUTE_STRUCTURE 3 ;
  62. END_TEST ;
  63.  
  64. % Set up default view (view table entry 1)                             %
  65. DEFAULT_VIEW_SPECIFICATION
  66.     1 204 PARALLEL ;
  67. IDENTITY3 1 ;
  68. TRANSLATE3 1  -204.0  -138    0      REPLACE ;
  69. TRANSLATE3 2   10.5   6.375  0.0      REPLACE ;
  70. TRANSLATE3 3  -10.5  -6.375  0.0      REPLACE ;
  71.  
  72. ACTIVE_VIEW 1;
  73. BEGIN_TEST 20;
  74. CONCAT_MATRIX3 2 1 PRECONCAT;
  75. APPLY_TO_LOCAL3 1 REPLACE;
  76. EXECUTE_STRUCTURE 4 ;
  77. END_TEST ;
  78. BEGIN_TEST 40;
  79. CONCAT_MATRIX3 3 1 PRECONCAT;
  80. APPLY_TO_LOCAL3 1 REPLACE;
  81. EXECUTE_STRUCTURE 4 ;
  82. END_TEST ;
  83. BEGIN_TEST 20;
  84. CONCAT_MATRIX3 2 1 PRECONCAT;
  85. APPLY_TO_LOCAL3 1 REPLACE;
  86. EXECUTE_STRUCTURE 4 ;
  87. END_TEST ;
  88.  
  89. % Set up default view (view table entry 1)                             %
  90. DEFAULT_VIEW_SPECIFICATION
  91.     1 9.5 PARALLEL ;
  92. IDENTITY3 1 ;
  93. TRANSLATE3 1  -10.5  -7.5    0      REPLACE ;
  94. TRANSLATE3 2    0.5   0.375  0.0      REPLACE ;
  95. TRANSLATE3 3   -0.5  -0.375  0.0      REPLACE ;
  96.  
  97. ACTIVE_VIEW 1;
  98. BEGIN_TEST 20;
  99. CONCAT_MATRIX3 2 1 PRECONCAT;
  100. APPLY_TO_LOCAL3 1 REPLACE;
  101. EXECUTE_STRUCTURE 5 ;
  102. END_TEST ;
  103. BEGIN_TEST 40;
  104. CONCAT_MATRIX3 3 1 PRECONCAT;
  105. APPLY_TO_LOCAL3 1 REPLACE;
  106. EXECUTE_STRUCTURE 5 ;
  107. END_TEST ;
  108. BEGIN_TEST 20;
  109. CONCAT_MATRIX3 2 1 PRECONCAT;
  110. APPLY_TO_LOCAL3 1 REPLACE;
  111. EXECUTE_STRUCTURE 5 ;
  112. END_TEST ;
  113. PAUSE ;
  114.  
  115.  
  116.  
  117.