home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / X / mit / demos / gpc / objects / mutli.vrb < prev    next >
Encoding:
Text File  |  1991-02-13  |  2.0 KB  |  98 lines
  1. %                                                                      %
  2. %    BIF Verb file, example 1                                                 %
  3. %                                                                      %
  4. READ_GEOMETRY_FILE
  5.     "fa_cube.geo"
  6.     "sub_cube.geo"
  7.     ;
  8.  
  9. % Set up default view (view table entry 1)                             %
  10. DEFAULT_VIEW_SPECIFICATION
  11.     1
  12.     3.73
  13.     PERSPECTIVE
  14.     ;
  15.  
  16. % Interior Shading (FLAT) %
  17. INTERIOR_SHADING 1;
  18. % Turn hidden surface removal on                    %
  19. HLHS_REMOVAL HLHS_ENABLE ;
  20.  
  21. % Set up the color ramps %
  22. CALL_STRUCTURE 10;
  23.  
  24. % Set a per-frame rotation of 1deg X, 2deg Y, 3deg Z in matrix 0       %
  25. IDENTITY3 1 ;
  26. IDENTITY3 2 ;
  27. IDENTITY3 30 ;
  28. IDENTITY3 31 ;
  29. IDENTITY3 32 ;
  30. IDENTITY3 33 ;
  31. IDENTITY3 34 ;
  32. IDENTITY3 35 ;
  33. IDENTITY3 40 ;
  34. IDENTITY3 41 ;
  35. IDENTITY3 42 ;
  36. IDENTITY3 43 ;
  37. IDENTITY3 44 ;
  38. IDENTITY3 45 ;
  39. IDENTITY3 50 ;
  40. IDENTITY3 51 ;
  41. IDENTITY3 52 ;
  42. IDENTITY3 53 ;
  43. IDENTITY3 54 ;
  44. IDENTITY3 55 ;
  45.  
  46. % Main Cube Rates %
  47. ROTATE_XYZ3 3 2. 4. 6. REPLACE ;
  48. SCALE3 4 1.01  1.01  1.01  REPLACE ;
  49.  
  50. % Sub Cube Spin Rates %
  51. ROTATE_XYZ3 11 -4.  -8. -12. REPLACE ;
  52. ROTATE_XYZ3 13 -6.  -4.  -8. REPLACE ;
  53. ROTATE_XYZ3 15 -8. -12.  -4. REPLACE ;
  54. ROTATE_XYZ3 17 -8.  -4. -12. REPLACE ;
  55. ROTATE_XYZ3 19 -8.  -4. -12. REPLACE ;
  56. ROTATE_XYZ3 21  8.  -4.  12. REPLACE ;
  57.  
  58. % Sub Cube Move Rates %
  59. TRANSLATE3 10  0.005  0.0    0      REPLACE ;
  60. TRANSLATE3 12  0.0    0.005  0      REPLACE ;
  61. TRANSLATE3 14  0.0   -0.005  0      REPLACE ;
  62. TRANSLATE3 16 -0.005  0.0    0      REPLACE ;
  63. TRANSLATE3 18  0.0    0.0    0.005  REPLACE ;
  64. TRANSLATE3 20  0.0    0.0   -0.005  REPLACE ;
  65.  
  66.  
  67. % Run 100 frames of multi cube magic           %
  68. BEGIN_TEST 220;
  69. % Main Spin %
  70. ACTIVE_VIEW 1;
  71. interior_style solid;
  72. APPLY_TO_GLOBAL3 1;
  73. CONCAT_MATRIX3 3 1 PRECONCAT;
  74.  
  75. % Sub-Cubes %
  76. CALL_STRUCTURE 91 ;
  77. CALL_STRUCTURE 92 ;
  78. CALL_STRUCTURE 93 ;
  79. CALL_STRUCTURE 94 ;
  80. CALL_STRUCTURE 95 ;
  81. CALL_STRUCTURE 96 ;
  82.  
  83. % Main Cube %
  84. APPLY_TO_LOCAL3 2 REPLACE;
  85. CONCAT_MATRIX3 4 2 POSTCONCAT;
  86. CALL_STRUCTURE 1;
  87. interior_style hollow;
  88. GEN_SPHERE3 20 20;
  89.  
  90. END_TEST ;
  91.  
  92. BEGIN_TEST 1;
  93. END_TEST ;
  94.  
  95.  
  96. CLEAR_GEOMETRY;
  97.  
  98.