home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / X / mit / demos / gpc / tests / diffuse.v12 < prev    next >
Encoding:
Text File  |  1991-02-13  |  30.7 KB  |  714 lines
  1. %
  2. /*--------------------------------------------------------------------*\
  3. |
  4. |   Copyright (c)1989,1990 National Computer Graphics Association
  5. |
  6. |       Permission is granted to any individual or instititution 
  7. |  to use, copy, or redistribute this software so long as it is not
  8. |    sold for profit, provided this copyright notice is retained.
  9. |
  10. |                         Developed for the
  11. |               National Computer Graphics Association
  12. |                        2722 Merrilee Drive
  13. |                         Fairfax, VA  22031
  14. |                           (703) 698-9600
  15. |
  16. |                                 by
  17. |                SimGraphics Engineering Corporation
  18. |                   1137 Huntington Drive, Suite A
  19. |                      South Pasadena, CA  91030
  20. |                           (213) 255-0900
  21. |---------------------------------------------------------------------
  22. |
  23. | Author    :    SimGraphics Engineering Corporation
  24. | File          :    diffuse.v12
  25. | Date          :    Thu Sep 27 22:28:37 MDT 1990
  26. | Project       :    Picture Level Benchmark
  27. | Description    :    See diffuse.doc
  28. | Status    :    Version 1.00
  29. | Revisions     :    Rev 1.0 by HP/DAC
  30. |
  31. \*--------------------------------------------------------------------*/
  32. %
  33.  
  34.     Configuration rgb double_buffer true_color  ; 
  35.     Read_geometry_file "dst.d11";
  36.     Specify_report_file "diffuse.r12";
  37.     Default_view_specification  1  500 perspective;
  38.     Active_view  1  ; 
  39.  
  40. % ****************************************************************** %
  41. % Set up static attributes                                           %
  42. % ****************************************************************** %
  43.     Text_prec Stroke ;
  44.     Char_exp  1 ;
  45.     Text_color  1  1  1 ;
  46.     char_height  30 ;
  47.     Background_color    0.300000  0.300000  0.800000 ;
  48.     HLHS_Removal hlhs_enable ;
  49.     Interior_style solid ;
  50.     Interior_color  1  1  1 ;
  51.     Backface_interior_color  1  1  1 ;
  52.     Interior_lighting  3 ;     %(diffuse) %
  53.     Backface_processing  1  0 ;    % backface_identify but cull_none %
  54.     Edge_flag disable ;
  55.     Surface_approximation_criteria 1 4.00000 4.00000 ;
  56.  
  57. % ****************************************************************** %
  58. % Set up matrix for position geometry on the screen                  %
  59. % ****************************************************************** %
  60.     Translate3  0  -375   400  0 Replace  ;   % Set Initial position  %
  61.     Push_matrix3  ;                  % Push Initial position %
  62.  
  63.     Translate3  1   250     0     0 Replace  ;  % Set Column offset       %
  64.     Translate3  2     0  -200     0 Replace  ;  % Set Row offset          %
  65.     Translate3  3   -20    20  -100 Replace  ;  % Set back sphere offset  %
  66.     Translate3  4    20   -20   100 Replace  ;  % Set front sphere offset %
  67.  
  68. % ****************************************************************** %
  69. % Create a ramped light table                                        %
  70. % ****************************************************************** %
  71.     Define_light
  72.       % Index in light source table   %  1
  73.       % Light source color components %  1.000000    0.000000    0.000000
  74.       % Non-directional light source  %  Ambient_light
  75.      ; 
  76.     Define_light
  77.       % Index in light source table   %  2
  78.       % Light source color components %  0.500000    1.000000    0.500000
  79.       % Directional     light source  %  Directional_light {
  80.       % Direction                     %  1           1          -1       }
  81.     ;
  82.     Define_light
  83.       % Index in light source table   %  3
  84.       % Light source color components %  0.500000    0.500000    1.000000
  85.       % Positional      light source  %  Positional_light {
  86.       % Position                      %  0           100         200
  87.       % Attenuation                   %  0.500000    0.005000            }
  88.     ;                        
  89.     Define_light
  90.       % Index in light source table   %  4
  91.       % Light source color components %  1.000000    0.500000    0.500000
  92.       % Spot            light source  %  Spot_light      {
  93.       % Position                      %  0          -100         500
  94.       % Direction                     %  0           0           -1
  95.       % Concentration                 %  10.00000
  96.       % Spread angle in degrees       %  32
  97.       % Attenuation                   %  1.000000    0.000000            }
  98.     ;                        
  99.  
  100. % ****************************************************************** %
  101. %                                                                    % 
  102. %                                                                    % 
  103. %                        Begin Test Loop                             % 
  104. %                                                                    % 
  105. % ****************************************************************** %
  106. Begin_test  1  ; 
  107.     Text3  -450  -450  0 "Diffuse Test: NURB true perspective";
  108.     Text3  -450  -495  0 "diffuse.v12";
  109. % ****************************************************************** % 
  110. %                                                                    % 
  111. %                        Row 1 Column 1                              %
  112. % ****************************************************************** %
  113.     % ********************************************************** %
  114.     % Interior_pattern_index should have no effect               %
  115.     % because Interior_style is SOLID                            %
  116.     % ********************************************************** %
  117.   Interior_pattern_index  1;
  118.   Interior_shading  1;
  119.   Surface_properties
  120.     % Ambient reflection coefficient    %  0.200000
  121.     % Diffuse reflection coefficient    %  0.000000
  122.     % Specular reflection coefficient   %  0
  123.     % Specularity true-color components %  0  0  0
  124.     % Specular exponent                 %  0
  125.     % Transparency coefficient          %  1
  126.   ; 
  127.   Backface_properties
  128.     % Ambient reflection coefficient    %  0.200000
  129.     % Diffuse reflection coefficient    %  1.000000
  130.     % Specular reflection coefficient   %  0
  131.     % Specularity true-color components %  0  0  0
  132.     % Specular exponent                 %  0
  133.     % Transparency coefficient          %  1
  134.   ; 
  135.   Light_state
  136.     activate_list
  137.     {   1  2    }
  138.     deactivate_list
  139.     {  3    } 
  140.   ;
  141.    % *************************************************************** %
  142.    % Matrix operations to position graphics                          %
  143.    % *************************************************************** %
  144.   Apply_to_global3  0  ; 
  145.   Apply_to_local3 3 replace ;
  146.   Execute_structure 20  ; 
  147.   Apply_to_local3 4 replace ;
  148.   Execute_structure 21  ; 
  149.   
  150. % ****************************************************************** % 
  151. %                                                                    % 
  152. %                        Row 1 Column 2                              %
  153. % ****************************************************************** %
  154.     % ********************************************************** %
  155.     % Interior_pattern_index should have no effect               %
  156.     % because Interior_style is SOLID                            %
  157.     % ********************************************************** %
  158.   Interior_pattern_index  2;
  159.   Interior_shading  2;
  160.   Surface_properties
  161.     % Ambient reflection coefficient    %  0.200000
  162.     % Diffuse reflection coefficient    %  0.333333
  163.     % Specular reflection coefficient   %  0
  164.     % Specularity true-color components %  0  0  0
  165.     % Specular exponent                 %  0
  166.     % Transparency coefficient          %  1
  167.   ; 
  168.   Backface_properties
  169.     % Ambient reflection coefficient    %  0.200000
  170.     % Diffuse reflection coefficient    %  0.666667
  171.     % Specular reflection coefficient   %  0
  172.     % Specularity true-color components %  0  0  0
  173.     % Specular exponent                 %  0
  174.     % Transparency coefficient          %  1
  175.   ; 
  176.    % *************************************************************** %
  177.    % Matrix operations to position graphics                          %
  178.    % *************************************************************** %
  179.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  180.   Apply_to_global3  0  ; 
  181.   Apply_to_local3 3 replace ;
  182.   Call_structure 20  ; 
  183.   Apply_to_local3 4 replace ;
  184.   Call_structure 21  ; 
  185.   
  186. % ****************************************************************** % 
  187. %                                                                    % 
  188. %                        Row 1 Column 3                              %
  189. % ****************************************************************** %
  190.     % ********************************************************** %
  191.     % Interior_pattern_index should have no effect               %
  192.     % because Interior_style is SOLID                            %
  193.     % ********************************************************** %
  194.   Interior_pattern_index  3;
  195.   Interior_shading  3;
  196.   Surface_properties
  197.     % Ambient reflection coefficient    %  0.200000
  198.     % Diffuse reflection coefficient    %  0.666667
  199.     % Specular reflection coefficient   %  0
  200.     % Specularity true-color components %  0  0  0
  201.     % Specular exponent                 %  0
  202.     % Transparency coefficient          %  1
  203.   ; 
  204.   Backface_properties
  205.     % Ambient reflection coefficient    %  0.200000
  206.     % Diffuse reflection coefficient    %  0.333333
  207.     % Specular reflection coefficient   %  0
  208.     % Specularity true-color components %  0  0  0
  209.     % Specular exponent                 %  0
  210.     % Transparency coefficient          %  1
  211.   ; 
  212.    % *************************************************************** %
  213.    % Matrix operations to position graphics                          %
  214.    % *************************************************************** %
  215.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  216.   Apply_to_global3  0  ; 
  217.   Apply_to_local3 3 replace ;
  218.   Call_structure 20  ; 
  219.   Apply_to_local3 4 replace ;
  220.   Call_structure 21  ; 
  221.   
  222. % ****************************************************************** % 
  223. %                                                                    % 
  224. %                        Row 1 Column 4                              %
  225. % ****************************************************************** %
  226.     % ********************************************************** %
  227.     % Interior_pattern_index should have no effect               %
  228.     % because Interior_style is SOLID                            %
  229.     % ********************************************************** %
  230.   Interior_pattern_index  4;
  231.   Interior_shading  4;
  232.   Surface_properties
  233.     % Ambient reflection coefficient    %  0.200000
  234.     % Diffuse reflection coefficient    %  1.000000
  235.     % Specular reflection coefficient   %  0
  236.     % Specularity true-color components %  0  0  0
  237.     % Specular exponent                 %  0
  238.     % Transparency coefficient          %  1
  239.   ; 
  240.   Backface_properties
  241.     % Ambient reflection coefficient    %  0.200000
  242.     % Diffuse reflection coefficient    %  0.000000
  243.     % Specular reflection coefficient   %  0
  244.     % Specularity true-color components %  0  0  0
  245.     % Specular exponent                 %  0
  246.     % Transparency coefficient          %  1
  247.   ; 
  248.    % *************************************************************** %
  249.    % Matrix operations to position graphics                          %
  250.    % *************************************************************** %
  251.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  252.   Apply_to_global3  0  ; 
  253.   Apply_to_local3 3 replace ;
  254.   Call_structure 20  ; 
  255.   Apply_to_local3 4 replace ;
  256.   Call_structure 21  ; 
  257.   
  258. % ****************************************************************** % 
  259. %                                                                    % 
  260. %                        Row 2 Column 1                              %
  261. % ****************************************************************** %
  262.     % ********************************************************** %
  263.     % Interior_pattern_index should have no effect               %
  264.     % because Interior_style is SOLID                            %
  265.     % ********************************************************** %
  266.   Interior_pattern_index  5;
  267.   Interior_shading  1;
  268.   Surface_properties
  269.     % Ambient reflection coefficient    %  0.200000
  270.     % Diffuse reflection coefficient    %  0.000000
  271.     % Specular reflection coefficient   %  0
  272.     % Specularity true-color components %  0  0  0
  273.     % Specular exponent                 %  0
  274.     % Transparency coefficient          %  1
  275.   ; 
  276.   Backface_properties
  277.     % Ambient reflection coefficient    %  0.200000
  278.     % Diffuse reflection coefficient    %  1.000000
  279.     % Specular reflection coefficient   %  0
  280.     % Specularity true-color components %  0  0  0
  281.     % Specular exponent                 %  0
  282.     % Transparency coefficient          %  1
  283.   ; 
  284.   Light_state
  285.     activate_list
  286.     {   1  3    }
  287.     deactivate_list
  288.     {  2    } 
  289.   ;
  290.    % *************************************************************** %
  291.    % Matrix operations to position graphics                          %
  292.    % *************************************************************** %
  293.   Pop_matrix3  ; 
  294.   Concat_matrix3  2  0 preconcat  ;         % Move down one row %
  295.   Push_matrix3  ; 
  296.   Apply_to_global3  0  ; 
  297.   Apply_to_local3 3 replace ;
  298.   Call_structure 20  ; 
  299.   Apply_to_local3 4 replace ;
  300.   Call_structure 21  ; 
  301.   
  302. % ****************************************************************** % 
  303. %                                                                    % 
  304. %                        Row 2 Column 2                              %
  305. % ****************************************************************** %
  306.     % ********************************************************** %
  307.     % Interior_pattern_index should have no effect               %
  308.     % because Interior_style is SOLID                            %
  309.     % ********************************************************** %
  310.   Interior_pattern_index  6;
  311.   Interior_shading  2;
  312.   Surface_properties
  313.     % Ambient reflection coefficient    %  0.200000
  314.     % Diffuse reflection coefficient    %  0.333333
  315.     % Specular reflection coefficient   %  0
  316.     % Specularity true-color components %  0  0  0
  317.     % Specular exponent                 %  0
  318.     % Transparency coefficient          %  1
  319.   ; 
  320.   Backface_properties
  321.     % Ambient reflection coefficient    %  0.200000
  322.     % Diffuse reflection coefficient    %  0.666667
  323.     % Specular reflection coefficient   %  0
  324.     % Specularity true-color components %  0  0  0
  325.     % Specular exponent                 %  0
  326.     % Transparency coefficient          %  1
  327.   ; 
  328.    % *************************************************************** %
  329.    % Matrix operations to position graphics                          %
  330.    % *************************************************************** %
  331.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  332.   Apply_to_global3  0  ; 
  333.   Apply_to_local3 3 replace ;
  334.   Call_structure 20  ; 
  335.   Apply_to_local3 4 replace ;
  336.   Call_structure 21  ; 
  337.   
  338. % ****************************************************************** % 
  339. %                                                                    % 
  340. %                        Row 2 Column 3                              %
  341. % ****************************************************************** %
  342.     % ********************************************************** %
  343.     % Interior_pattern_index should have no effect               %
  344.     % because Interior_style is SOLID                            %
  345.     % ********************************************************** %
  346.   Interior_pattern_index  1;
  347.   Interior_shading  3;
  348.   Surface_properties
  349.     % Ambient reflection coefficient    %  0.200000
  350.     % Diffuse reflection coefficient    %  0.666667
  351.     % Specular reflection coefficient   %  0
  352.     % Specularity true-color components %  0  0  0
  353.     % Specular exponent                 %  0
  354.     % Transparency coefficient          %  1
  355.   ; 
  356.   Backface_properties
  357.     % Ambient reflection coefficient    %  0.200000
  358.     % Diffuse reflection coefficient    %  0.333333
  359.     % Specular reflection coefficient   %  0
  360.     % Specularity true-color components %  0  0  0
  361.     % Specular exponent                 %  0
  362.     % Transparency coefficient          %  1
  363.   ; 
  364.    % *************************************************************** %
  365.    % Matrix operations to position graphics                          %
  366.    % *************************************************************** %
  367.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  368.   Apply_to_global3  0  ; 
  369.   Apply_to_local3 3 replace ;
  370.   Call_structure 20  ; 
  371.   Apply_to_local3 4 replace ;
  372.   Call_structure 21  ; 
  373.   
  374. % ****************************************************************** % 
  375. %                                                                    % 
  376. %                        Row 2 Column 4                              %
  377. % ****************************************************************** %
  378.     % ********************************************************** %
  379.     % Interior_pattern_index should have no effect               %
  380.     % because Interior_style is SOLID                            %
  381.     % ********************************************************** %
  382.   Interior_pattern_index  2;
  383.   Interior_shading  4;
  384.   Surface_properties
  385.     % Ambient reflection coefficient    %  0.200000
  386.     % Diffuse reflection coefficient    %  1.000000
  387.     % Specular reflection coefficient   %  0
  388.     % Specularity true-color components %  0  0  0
  389.     % Specular exponent                 %  0
  390.     % Transparency coefficient          %  1
  391.   ; 
  392.   Backface_properties
  393.     % Ambient reflection coefficient    %  0.200000
  394.     % Diffuse reflection coefficient    %  0.000000
  395.     % Specular reflection coefficient   %  0
  396.     % Specularity true-color components %  0  0  0
  397.     % Specular exponent                 %  0
  398.     % Transparency coefficient          %  1
  399.   ; 
  400.    % *************************************************************** %
  401.    % Matrix operations to position graphics                          %
  402.    % *************************************************************** %
  403.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  404.   Apply_to_global3  0  ; 
  405.   Apply_to_local3 3 replace ;
  406.   Call_structure 20  ; 
  407.   Apply_to_local3 4 replace ;
  408.   Call_structure 21  ; 
  409.   
  410. % ****************************************************************** % 
  411. %                                                                    % 
  412. %                        Row 3 Column 1                              %
  413. % ****************************************************************** %
  414.     % ********************************************************** %
  415.     % Interior_pattern_index should have no effect               %
  416.     % because Interior_style is SOLID                            %
  417.     % ********************************************************** %
  418.   Interior_pattern_index  3;
  419.   Interior_shading  1;
  420.   Surface_properties
  421.     % Ambient reflection coefficient    %  0.200000
  422.     % Diffuse reflection coefficient    %  0.000000
  423.     % Specular reflection coefficient   %  0
  424.     % Specularity true-color components %  0  0  0
  425.     % Specular exponent                 %  0
  426.     % Transparency coefficient          %  1
  427.   ; 
  428.   Backface_properties
  429.     % Ambient reflection coefficient    %  0.200000
  430.     % Diffuse reflection coefficient    %  1.000000
  431.     % Specular reflection coefficient   %  0
  432.     % Specularity true-color components %  0  0  0
  433.     % Specular exponent                 %  0
  434.     % Transparency coefficient          %  1
  435.   ; 
  436.   Light_state
  437.     activate_list
  438.     {   1  4    }
  439.     deactivate_list
  440.     {  3    } 
  441.   ;
  442.    % *************************************************************** %
  443.    % Matrix operations to position graphics                          %
  444.    % *************************************************************** %
  445.   Pop_matrix3  ; 
  446.   Concat_matrix3  2  0 preconcat  ;         % Move down one row %
  447.   Push_matrix3  ; 
  448.   Apply_to_global3  0  ; 
  449.   Apply_to_local3 3 replace ;
  450.   Call_structure 20  ; 
  451.   Apply_to_local3 4 replace ;
  452.   Call_structure 21  ; 
  453.   
  454. % ****************************************************************** % 
  455. %                                                                    % 
  456. %                        Row 3 Column 2                              %
  457. % ****************************************************************** %
  458.     % ********************************************************** %
  459.     % Interior_pattern_index should have no effect               %
  460.     % because Interior_style is SOLID                            %
  461.     % ********************************************************** %
  462.   Interior_pattern_index  4;
  463.   Interior_shading  2;
  464.   Surface_properties
  465.     % Ambient reflection coefficient    %  0.200000
  466.     % Diffuse reflection coefficient    %  0.333333
  467.     % Specular reflection coefficient   %  0
  468.     % Specularity true-color components %  0  0  0
  469.     % Specular exponent                 %  0
  470.     % Transparency coefficient          %  1
  471.   ; 
  472.   Backface_properties
  473.     % Ambient reflection coefficient    %  0.200000
  474.     % Diffuse reflection coefficient    %  0.666667
  475.     % Specular reflection coefficient   %  0
  476.     % Specularity true-color components %  0  0  0
  477.     % Specular exponent                 %  0
  478.     % Transparency coefficient          %  1
  479.   ; 
  480.    % *************************************************************** %
  481.    % Matrix operations to position graphics                          %
  482.    % *************************************************************** %
  483.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  484.   Apply_to_global3  0  ; 
  485.   Apply_to_local3 3 replace ;
  486.   Call_structure 20  ; 
  487.   Apply_to_local3 4 replace ;
  488.   Call_structure 21  ; 
  489.   
  490. % ****************************************************************** % 
  491. %                                                                    % 
  492. %                        Row 3 Column 3                              %
  493. % ****************************************************************** %
  494.     % ********************************************************** %
  495.     % Interior_pattern_index should have no effect               %
  496.     % because Interior_style is SOLID                            %
  497.     % ********************************************************** %
  498.   Interior_pattern_index  5;
  499.   Interior_shading  3;
  500.   Surface_properties
  501.     % Ambient reflection coefficient    %  0.200000
  502.     % Diffuse reflection coefficient    %  0.666667
  503.     % Specular reflection coefficient   %  0
  504.     % Specularity true-color components %  0  0  0
  505.     % Specular exponent                 %  0
  506.     % Transparency coefficient          %  1
  507.   ; 
  508.   Backface_properties
  509.     % Ambient reflection coefficient    %  0.200000
  510.     % Diffuse reflection coefficient    %  0.333333
  511.     % Specular reflection coefficient   %  0
  512.     % Specularity true-color components %  0  0  0
  513.     % Specular exponent                 %  0
  514.     % Transparency coefficient          %  1
  515.   ; 
  516.    % *************************************************************** %
  517.    % Matrix operations to position graphics                          %
  518.    % *************************************************************** %
  519.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  520.   Apply_to_global3  0  ; 
  521.   Apply_to_local3 3 replace ;
  522.   Call_structure 20  ; 
  523.   Apply_to_local3 4 replace ;
  524.   Call_structure 21  ; 
  525.   
  526. % ****************************************************************** % 
  527. %                                                                    % 
  528. %                        Row 3 Column 4                              %
  529. % ****************************************************************** %
  530.     % ********************************************************** %
  531.     % Interior_pattern_index should have no effect               %
  532.     % because Interior_style is SOLID                            %
  533.     % ********************************************************** %
  534.   Interior_pattern_index  6;
  535.   Interior_shading  4;
  536.   Surface_properties
  537.     % Ambient reflection coefficient    %  0.200000
  538.     % Diffuse reflection coefficient    %  1.000000
  539.     % Specular reflection coefficient   %  0
  540.     % Specularity true-color components %  0  0  0
  541.     % Specular exponent                 %  0
  542.     % Transparency coefficient          %  1
  543.   ; 
  544.   Backface_properties
  545.     % Ambient reflection coefficient    %  0.200000
  546.     % Diffuse reflection coefficient    %  0.000000
  547.     % Specular reflection coefficient   %  0
  548.     % Specularity true-color components %  0  0  0
  549.     % Specular exponent                 %  0
  550.     % Transparency coefficient          %  1
  551.   ; 
  552.    % *************************************************************** %
  553.    % Matrix operations to position graphics                          %
  554.    % *************************************************************** %
  555.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  556.   Apply_to_global3  0  ; 
  557.   Apply_to_local3 3 replace ;
  558.   Call_structure 20  ; 
  559.   Apply_to_local3 4 replace ;
  560.   Call_structure 21  ; 
  561.   
  562. % ****************************************************************** % 
  563. %                                                                    % 
  564. %                        Row 4 Column 1                              %
  565. % ****************************************************************** %
  566.     % ********************************************************** %
  567.     % Interior_pattern_index should have no effect               %
  568.     % because Interior_style is SOLID                            %
  569.     % ********************************************************** %
  570.   Interior_pattern_index  1;
  571.   Interior_shading  1;
  572.   Surface_properties
  573.     % Ambient reflection coefficient    %  0.200000
  574.     % Diffuse reflection coefficient    %  0.000000
  575.     % Specular reflection coefficient   %  0
  576.     % Specularity true-color components %  0  0  0
  577.     % Specular exponent                 %  0
  578.     % Transparency coefficient          %  1
  579.   ; 
  580.   Backface_properties
  581.     % Ambient reflection coefficient    %  0.200000
  582.     % Diffuse reflection coefficient    %  1.000000
  583.     % Specular reflection coefficient   %  0
  584.     % Specularity true-color components %  0  0  0
  585.     % Specular exponent                 %  0
  586.     % Transparency coefficient          %  1
  587.   ; 
  588.   Light_state
  589.     activate_list   {  1  2  3  4 }
  590.     deactivate_list { } 
  591.   ;
  592.    % *************************************************************** %
  593.    % Matrix operations to position graphics                          %
  594.    % *************************************************************** %
  595.     Pop_matrix3  ; 
  596.     Concat_matrix3  2  0 preconcat  ;         % Move down one row %
  597.     Push_matrix3  ; 
  598.   Apply_to_global3  0  ; 
  599.   Apply_to_local3 3 replace ;
  600.   Call_structure 20  ; 
  601.   Apply_to_local3 4 replace ;
  602.   Call_structure 21  ; 
  603.   
  604. % ****************************************************************** % 
  605. %                                                                    % 
  606. %                        Row 4 Column 2                              %
  607. % ****************************************************************** %
  608.     % ********************************************************** %
  609.     % Interior_pattern_index should have no effect               %
  610.     % because Interior_style is SOLID                            %
  611.     % ********************************************************** %
  612.   Interior_pattern_index  2;
  613.   Interior_shading  2;
  614.   Surface_properties
  615.     % Ambient reflection coefficient    %  0.200000
  616.     % Diffuse reflection coefficient    %  0.333333
  617.     % Specular reflection coefficient   %  0
  618.     % Specularity true-color components %  0  0  0
  619.     % Specular exponent                 %  0
  620.     % Transparency coefficient          %  1
  621.   ; 
  622.   Backface_properties
  623.     % Ambient reflection coefficient    %  0.200000
  624.     % Diffuse reflection coefficient    %  0.666667
  625.     % Specular reflection coefficient   %  0
  626.     % Specularity true-color components %  0  0  0
  627.     % Specular exponent                 %  0
  628.     % Transparency coefficient          %  1
  629.   ; 
  630.    % *************************************************************** %
  631.    % Matrix operations to position graphics                          %
  632.    % *************************************************************** %
  633.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  634.   Apply_to_global3  0  ; 
  635.   Apply_to_local3 3 replace ;
  636.   Call_structure 20  ; 
  637.   Apply_to_local3 4 replace ;
  638.   Call_structure 21  ; 
  639.   
  640. % ****************************************************************** % 
  641. %                                                                    % 
  642. %                        Row 4 Column 3                              %
  643. % ****************************************************************** %
  644.     % ********************************************************** %
  645.     % Interior_pattern_index should have no effect               %
  646.     % because Interior_style is SOLID                            %
  647.     % ********************************************************** %
  648.   Interior_pattern_index  3;
  649.   Interior_shading  3;
  650.   Surface_properties
  651.     % Ambient reflection coefficient    %  0.200000
  652.     % Diffuse reflection coefficient    %  0.666667
  653.     % Specular reflection coefficient   %  0
  654.     % Specularity true-color components %  0  0  0
  655.     % Specular exponent                 %  0
  656.     % Transparency coefficient          %  1
  657.   ; 
  658.   Backface_properties
  659.     % Ambient reflection coefficient    %  0.200000
  660.     % Diffuse reflection coefficient    %  0.333333
  661.     % Specular reflection coefficient   %  0
  662.     % Specularity true-color components %  0  0  0
  663.     % Specular exponent                 %  0
  664.     % Transparency coefficient          %  1
  665.   ; 
  666.    % *************************************************************** %
  667.    % Matrix operations to position graphics                          %
  668.    % *************************************************************** %
  669.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  670.   Apply_to_global3  0  ; 
  671.   Apply_to_local3 3 replace ;
  672.   Call_structure 20  ; 
  673.   Apply_to_local3 4 replace ;
  674.   Call_structure 21  ; 
  675.   
  676. % ****************************************************************** % 
  677. %                                                                    % 
  678. %                        Row 4 Column 4                              %
  679. % ****************************************************************** %
  680.     % ********************************************************** %
  681.     % Interior_pattern_index should have no effect               %
  682.     % because Interior_style is SOLID                            %
  683.     % ********************************************************** %
  684.   Interior_pattern_index  4;
  685.   Interior_shading  4;
  686.   Surface_properties
  687.     % Ambient reflection coefficient    %  0.200000
  688.     % Diffuse reflection coefficient    %  1.000000
  689.     % Specular reflection coefficient   %  0
  690.     % Specularity true-color components %  0  0  0
  691.     % Specular exponent                 %  0
  692.     % Transparency coefficient          %  1
  693.   ; 
  694.   Backface_properties
  695.     % Ambient reflection coefficient    %  0.200000
  696.     % Diffuse reflection coefficient    %  0.000000
  697.     % Specular reflection coefficient   %  0
  698.     % Specularity true-color components %  0  0  0
  699.     % Specular exponent                 %  0
  700.     % Transparency coefficient          %  1
  701.   ; 
  702.    % *************************************************************** %
  703.    % Matrix operations to position graphics                          %
  704.    % *************************************************************** %
  705.   Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  706.   Apply_to_global3  0  ; 
  707.   Apply_to_local3 3 replace ;
  708.   Call_structure 20  ; 
  709.   Apply_to_local3 4 replace ;
  710.   Call_structure 21  ; 
  711.   
  712. End_test  ; 
  713. Sleep 5 ;
  714.