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