home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / X / mit / demos / gpc / tests / diffuse.v04 < prev    next >
Encoding:
Text File  |  1991-02-13  |  29.5 KB  |  670 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.v04
  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.d03";
  43.     Specify_report_file "diffuse.r04";
  44.     Default_view_specification  1  500 perspective;
  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. %                        Begin Test Loop                             % 
  108. %                                                                    % 
  109. % ****************************************************************** %
  110. Begin_test  1  ; 
  111.     Text3  -450  -450  0 "Diffuse Test: FAS3 true perspective";
  112.     Text3  -450  -495  0 "diffuse.v04";
  113. % ****************************************************************** % 
  114. %                                                                    % 
  115. %                        Row 1 Column 1                              %
  116. % ****************************************************************** %
  117.     % ********************************************************** %
  118.     % Interior_pattern_index should have no effect               %
  119.     % because Interior_style is SOLID                            %
  120.     % ********************************************************** %
  121.   Interior_pattern_index  1;
  122.   Interior_shading  1;
  123.   Surface_properties
  124.     % Ambient reflection coefficient    %  0.200000
  125.     % Diffuse reflection coefficient    %  0.000000
  126.     % Specular reflection coefficient   %  0
  127.     % Specularity true-color components %  0  0  0
  128.     % Specular exponent                 %  0
  129.     % Transparency coefficient          %  1
  130.   ; 
  131.   Backface_properties
  132.     % Ambient reflection coefficient    %  0.200000
  133.     % Diffuse reflection coefficient    %  1.000000
  134.     % Specular reflection coefficient   %  0
  135.     % Specularity true-color components %  0  0  0
  136.     % Specular exponent                 %  0
  137.     % Transparency coefficient          %  1
  138.   ; 
  139.   Light_state
  140.     activate_list
  141.     {   1  2    }
  142.     deactivate_list
  143.     {  3    } 
  144.   ;
  145.    % *************************************************************** %
  146.    % Matrix operations to position graphics                          %
  147.    % *************************************************************** %
  148.     Apply_to_global3  0  ; 
  149.   Execute_structure 20  ; 
  150.   
  151. % ****************************************************************** % 
  152. %                                                                    % 
  153. %                        Row 1 Column 2                              %
  154. % ****************************************************************** %
  155.     % ********************************************************** %
  156.     % Interior_pattern_index should have no effect               %
  157.     % because Interior_style is SOLID                            %
  158.     % ********************************************************** %
  159.   Interior_pattern_index  2;
  160.   Interior_shading  2;
  161.   Surface_properties
  162.     % Ambient reflection coefficient    %  0.200000
  163.     % Diffuse reflection coefficient    %  0.333333
  164.     % Specular reflection coefficient   %  0
  165.     % Specularity true-color components %  0  0  0
  166.     % Specular exponent                 %  0
  167.     % Transparency coefficient          %  1
  168.   ; 
  169.   Backface_properties
  170.     % Ambient reflection coefficient    %  0.200000
  171.     % Diffuse reflection coefficient    %  0.666667
  172.     % Specular reflection coefficient   %  0
  173.     % Specularity true-color components %  0  0  0
  174.     % Specular exponent                 %  0
  175.     % Transparency coefficient          %  1
  176.   ; 
  177.    % *************************************************************** %
  178.    % Matrix operations to position graphics                          %
  179.    % *************************************************************** %
  180.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  181.     Apply_to_global3  0  ; 
  182.   Call_structure 20  ; 
  183.   
  184. % ****************************************************************** % 
  185. %                                                                    % 
  186. %                        Row 1 Column 3                              %
  187. % ****************************************************************** %
  188.     % ********************************************************** %
  189.     % Interior_pattern_index should have no effect               %
  190.     % because Interior_style is SOLID                            %
  191.     % ********************************************************** %
  192.   Interior_pattern_index  3;
  193.   Interior_shading  3;
  194.   Surface_properties
  195.     % Ambient reflection coefficient    %  0.200000
  196.     % Diffuse reflection coefficient    %  0.666667
  197.     % Specular reflection coefficient   %  0
  198.     % Specularity true-color components %  0  0  0
  199.     % Specular exponent                 %  0
  200.     % Transparency coefficient          %  1
  201.   ; 
  202.   Backface_properties
  203.     % Ambient reflection coefficient    %  0.200000
  204.     % Diffuse reflection coefficient    %  0.333333
  205.     % Specular reflection coefficient   %  0
  206.     % Specularity true-color components %  0  0  0
  207.     % Specular exponent                 %  0
  208.     % Transparency coefficient          %  1
  209.   ; 
  210.    % *************************************************************** %
  211.    % Matrix operations to position graphics                          %
  212.    % *************************************************************** %
  213.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  214.     Apply_to_global3  0  ; 
  215.   Execute_structure 20  ; 
  216.   
  217. % ****************************************************************** % 
  218. %                                                                    % 
  219. %                        Row 1 Column 4                              %
  220. % ****************************************************************** %
  221.     % ********************************************************** %
  222.     % Interior_pattern_index should have no effect               %
  223.     % because Interior_style is SOLID                            %
  224.     % ********************************************************** %
  225.   Interior_pattern_index  4;
  226.   Interior_shading  4;
  227.   Surface_properties
  228.     % Ambient reflection coefficient    %  0.200000
  229.     % Diffuse reflection coefficient    %  1.000000
  230.     % Specular reflection coefficient   %  0
  231.     % Specularity true-color components %  0  0  0
  232.     % Specular exponent                 %  0
  233.     % Transparency coefficient          %  1
  234.   ; 
  235.   Backface_properties
  236.     % Ambient reflection coefficient    %  0.200000
  237.     % Diffuse reflection coefficient    %  0.000000
  238.     % Specular reflection coefficient   %  0
  239.     % Specularity true-color components %  0  0  0
  240.     % Specular exponent                 %  0
  241.     % Transparency coefficient          %  1
  242.   ; 
  243.    % *************************************************************** %
  244.    % Matrix operations to position graphics                          %
  245.    % *************************************************************** %
  246.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  247.     Apply_to_global3  0  ; 
  248.   Call_structure 20  ; 
  249.   
  250. % ****************************************************************** % 
  251. %                                                                    % 
  252. %                        Row 2 Column 1                              %
  253. % ****************************************************************** %
  254.     % ********************************************************** %
  255.     % Interior_pattern_index should have no effect               %
  256.     % because Interior_style is SOLID                            %
  257.     % ********************************************************** %
  258.   Interior_pattern_index  5;
  259.   Interior_shading  1;
  260.   Surface_properties
  261.     % Ambient reflection coefficient    %  0.200000
  262.     % Diffuse reflection coefficient    %  0.000000
  263.     % Specular reflection coefficient   %  0
  264.     % Specularity true-color components %  0  0  0
  265.     % Specular exponent                 %  0
  266.     % Transparency coefficient          %  1
  267.   ; 
  268.   Backface_properties
  269.     % Ambient reflection coefficient    %  0.200000
  270.     % Diffuse reflection coefficient    %  1.000000
  271.     % Specular reflection coefficient   %  0
  272.     % Specularity true-color components %  0  0  0
  273.     % Specular exponent                 %  0
  274.     % Transparency coefficient          %  1
  275.   ; 
  276.   Light_state
  277.     activate_list
  278.     {   1  3    }
  279.     deactivate_list
  280.     {  2    } 
  281.   ;
  282.    % *************************************************************** %
  283.    % Matrix operations to position graphics                          %
  284.    % *************************************************************** %
  285.     Pop_matrix3  ; 
  286.     Concat_matrix3  2  0 preconcat  ;         % Move down one row %
  287.     Push_matrix3  ; 
  288.     Apply_to_global3  0  ; 
  289.   Call_structure 20  ; 
  290.   
  291. % ****************************************************************** % 
  292. %                                                                    % 
  293. %                        Row 2 Column 2                              %
  294. % ****************************************************************** %
  295.     % ********************************************************** %
  296.     % Interior_pattern_index should have no effect               %
  297.     % because Interior_style is SOLID                            %
  298.     % ********************************************************** %
  299.   Interior_pattern_index  6;
  300.   Interior_shading  2;
  301.   Surface_properties
  302.     % Ambient reflection coefficient    %  0.200000
  303.     % Diffuse reflection coefficient    %  0.333333
  304.     % Specular reflection coefficient   %  0
  305.     % Specularity true-color components %  0  0  0
  306.     % Specular exponent                 %  0
  307.     % Transparency coefficient          %  1
  308.   ; 
  309.   Backface_properties
  310.     % Ambient reflection coefficient    %  0.200000
  311.     % Diffuse reflection coefficient    %  0.666667
  312.     % Specular reflection coefficient   %  0
  313.     % Specularity true-color components %  0  0  0
  314.     % Specular exponent                 %  0
  315.     % Transparency coefficient          %  1
  316.   ; 
  317.    % *************************************************************** %
  318.    % Matrix operations to position graphics                          %
  319.    % *************************************************************** %
  320.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  321.     Apply_to_global3  0  ; 
  322.   Execute_structure 20  ; 
  323.   
  324. % ****************************************************************** % 
  325. %                                                                    % 
  326. %                        Row 2 Column 3                              %
  327. % ****************************************************************** %
  328.     % ********************************************************** %
  329.     % Interior_pattern_index should have no effect               %
  330.     % because Interior_style is SOLID                            %
  331.     % ********************************************************** %
  332.   Interior_pattern_index  1;
  333.   Interior_shading  3;
  334.   Surface_properties
  335.     % Ambient reflection coefficient    %  0.200000
  336.     % Diffuse reflection coefficient    %  0.666667
  337.     % Specular reflection coefficient   %  0
  338.     % Specularity true-color components %  0  0  0
  339.     % Specular exponent                 %  0
  340.     % Transparency coefficient          %  1
  341.   ; 
  342.   Backface_properties
  343.     % Ambient reflection coefficient    %  0.200000
  344.     % Diffuse reflection coefficient    %  0.333333
  345.     % Specular reflection coefficient   %  0
  346.     % Specularity true-color components %  0  0  0
  347.     % Specular exponent                 %  0
  348.     % Transparency coefficient          %  1
  349.   ; 
  350.    % *************************************************************** %
  351.    % Matrix operations to position graphics                          %
  352.    % *************************************************************** %
  353.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  354.     Apply_to_global3  0  ; 
  355.   Call_structure 20  ; 
  356.   
  357. % ****************************************************************** % 
  358. %                                                                    % 
  359. %                        Row 2 Column 4                              %
  360. % ****************************************************************** %
  361.     % ********************************************************** %
  362.     % Interior_pattern_index should have no effect               %
  363.     % because Interior_style is SOLID                            %
  364.     % ********************************************************** %
  365.   Interior_pattern_index  2;
  366.   Interior_shading  4;
  367.   Surface_properties
  368.     % Ambient reflection coefficient    %  0.200000
  369.     % Diffuse reflection coefficient    %  1.000000
  370.     % Specular reflection coefficient   %  0
  371.     % Specularity true-color components %  0  0  0
  372.     % Specular exponent                 %  0
  373.     % Transparency coefficient          %  1
  374.   ; 
  375.   Backface_properties
  376.     % Ambient reflection coefficient    %  0.200000
  377.     % Diffuse reflection coefficient    %  0.000000
  378.     % Specular reflection coefficient   %  0
  379.     % Specularity true-color components %  0  0  0
  380.     % Specular exponent                 %  0
  381.     % Transparency coefficient          %  1
  382.   ; 
  383.    % *************************************************************** %
  384.    % Matrix operations to position graphics                          %
  385.    % *************************************************************** %
  386.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  387.     Apply_to_global3  0  ; 
  388.   Execute_structure 20  ; 
  389.   
  390. % ****************************************************************** % 
  391. %                                                                    % 
  392. %                        Row 3 Column 1                              %
  393. % ****************************************************************** %
  394.     % ********************************************************** %
  395.     % Interior_pattern_index should have no effect               %
  396.     % because Interior_style is SOLID                            %
  397.     % ********************************************************** %
  398.   Interior_pattern_index  3;
  399.   Interior_shading  1;
  400.   Surface_properties
  401.     % Ambient reflection coefficient    %  0.200000
  402.     % Diffuse reflection coefficient    %  0.000000
  403.     % Specular reflection coefficient   %  0
  404.     % Specularity true-color components %  0  0  0
  405.     % Specular exponent                 %  0
  406.     % Transparency coefficient          %  1
  407.   ; 
  408.   Backface_properties
  409.     % Ambient reflection coefficient    %  0.200000
  410.     % Diffuse reflection coefficient    %  1.000000
  411.     % Specular reflection coefficient   %  0
  412.     % Specularity true-color components %  0  0  0
  413.     % Specular exponent                 %  0
  414.     % Transparency coefficient          %  1
  415.   ; 
  416.   Light_state
  417.     activate_list
  418.     {   1  4    }
  419.     deactivate_list
  420.     {  3    } 
  421.   ;
  422.    % *************************************************************** %
  423.    % Matrix operations to position graphics                          %
  424.    % *************************************************************** %
  425.     Pop_matrix3  ; 
  426.     Concat_matrix3  2  0 preconcat  ;         % Move down one row %
  427.     Push_matrix3  ; 
  428.     Apply_to_global3  0  ; 
  429.   Execute_structure 20  ; 
  430.   
  431. % ****************************************************************** % 
  432. %                                                                    % 
  433. %                        Row 3 Column 2                              %
  434. % ****************************************************************** %
  435.     % ********************************************************** %
  436.     % Interior_pattern_index should have no effect               %
  437.     % because Interior_style is SOLID                            %
  438.     % ********************************************************** %
  439.   Interior_pattern_index  4;
  440.   Interior_shading  2;
  441.   Surface_properties
  442.     % Ambient reflection coefficient    %  0.200000
  443.     % Diffuse reflection coefficient    %  0.333333
  444.     % Specular reflection coefficient   %  0
  445.     % Specularity true-color components %  0  0  0
  446.     % Specular exponent                 %  0
  447.     % Transparency coefficient          %  1
  448.   ; 
  449.   Backface_properties
  450.     % Ambient reflection coefficient    %  0.200000
  451.     % Diffuse reflection coefficient    %  0.666667
  452.     % Specular reflection coefficient   %  0
  453.     % Specularity true-color components %  0  0  0
  454.     % Specular exponent                 %  0
  455.     % Transparency coefficient          %  1
  456.   ; 
  457.    % *************************************************************** %
  458.    % Matrix operations to position graphics                          %
  459.    % *************************************************************** %
  460.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  461.     Apply_to_global3  0  ; 
  462.   Call_structure 20  ; 
  463.   
  464. % ****************************************************************** % 
  465. %                                                                    % 
  466. %                        Row 3 Column 3                              %
  467. % ****************************************************************** %
  468.     % ********************************************************** %
  469.     % Interior_pattern_index should have no effect               %
  470.     % because Interior_style is SOLID                            %
  471.     % ********************************************************** %
  472.   Interior_pattern_index  5;
  473.   Interior_shading  3;
  474.   Surface_properties
  475.     % Ambient reflection coefficient    %  0.200000
  476.     % Diffuse reflection coefficient    %  0.666667
  477.     % Specular reflection coefficient   %  0
  478.     % Specularity true-color components %  0  0  0
  479.     % Specular exponent                 %  0
  480.     % Transparency coefficient          %  1
  481.   ; 
  482.   Backface_properties
  483.     % Ambient reflection coefficient    %  0.200000
  484.     % Diffuse reflection coefficient    %  0.333333
  485.     % Specular reflection coefficient   %  0
  486.     % Specularity true-color components %  0  0  0
  487.     % Specular exponent                 %  0
  488.     % Transparency coefficient          %  1
  489.   ; 
  490.    % *************************************************************** %
  491.    % Matrix operations to position graphics                          %
  492.    % *************************************************************** %
  493.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  494.     Apply_to_global3  0  ; 
  495.   Execute_structure 20  ; 
  496.   
  497. % ****************************************************************** % 
  498. %                                                                    % 
  499. %                        Row 3 Column 4                              %
  500. % ****************************************************************** %
  501.     % ********************************************************** %
  502.     % Interior_pattern_index should have no effect               %
  503.     % because Interior_style is SOLID                            %
  504.     % ********************************************************** %
  505.   Interior_pattern_index  6;
  506.   Interior_shading  4;
  507.   Surface_properties
  508.     % Ambient reflection coefficient    %  0.200000
  509.     % Diffuse reflection coefficient    %  1.000000
  510.     % Specular reflection coefficient   %  0
  511.     % Specularity true-color components %  0  0  0
  512.     % Specular exponent                 %  0
  513.     % Transparency coefficient          %  1
  514.   ; 
  515.   Backface_properties
  516.     % Ambient reflection coefficient    %  0.200000
  517.     % Diffuse reflection coefficient    %  0.000000
  518.     % Specular reflection coefficient   %  0
  519.     % Specularity true-color components %  0  0  0
  520.     % Specular exponent                 %  0
  521.     % Transparency coefficient          %  1
  522.   ; 
  523.    % *************************************************************** %
  524.    % Matrix operations to position graphics                          %
  525.    % *************************************************************** %
  526.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  527.     Apply_to_global3  0  ; 
  528.   Call_structure 20  ; 
  529.   
  530. % ****************************************************************** % 
  531. %                                                                    % 
  532. %                        Row 4 Column 1                              %
  533. % ****************************************************************** %
  534.     % ********************************************************** %
  535.     % Interior_pattern_index should have no effect               %
  536.     % because Interior_style is SOLID                            %
  537.     % ********************************************************** %
  538.   Interior_pattern_index  1;
  539.   Interior_shading  1;
  540.   Surface_properties
  541.     % Ambient reflection coefficient    %  0.200000
  542.     % Diffuse reflection coefficient    %  0.000000
  543.     % Specular reflection coefficient   %  0
  544.     % Specularity true-color components %  0  0  0
  545.     % Specular exponent                 %  0
  546.     % Transparency coefficient          %  1
  547.   ; 
  548.   Backface_properties
  549.     % Ambient reflection coefficient    %  0.200000
  550.     % Diffuse reflection coefficient    %  1.000000
  551.     % Specular reflection coefficient   %  0
  552.     % Specularity true-color components %  0  0  0
  553.     % Specular exponent                 %  0
  554.     % Transparency coefficient          %  1
  555.   ; 
  556.   Light_state
  557.     activate_list   {  1  2  3  4 }
  558.     deactivate_list { } 
  559.   ;
  560.    % *************************************************************** %
  561.    % Matrix operations to position graphics                          %
  562.    % *************************************************************** %
  563.     Pop_matrix3  ; 
  564.     Concat_matrix3  2  0 preconcat  ;         % Move down one row %
  565.     Push_matrix3  ; 
  566.     Apply_to_global3  0  ; 
  567.   Call_structure 20  ; 
  568.   
  569. % ****************************************************************** % 
  570. %                                                                    % 
  571. %                        Row 4 Column 2                              %
  572. % ****************************************************************** %
  573.     % ********************************************************** %
  574.     % Interior_pattern_index should have no effect               %
  575.     % because Interior_style is SOLID                            %
  576.     % ********************************************************** %
  577.   Interior_pattern_index  2;
  578.   Interior_shading  2;
  579.   Surface_properties
  580.     % Ambient reflection coefficient    %  0.200000
  581.     % Diffuse reflection coefficient    %  0.333333
  582.     % Specular reflection coefficient   %  0
  583.     % Specularity true-color components %  0  0  0
  584.     % Specular exponent                 %  0
  585.     % Transparency coefficient          %  1
  586.   ; 
  587.   Backface_properties
  588.     % Ambient reflection coefficient    %  0.200000
  589.     % Diffuse reflection coefficient    %  0.666667
  590.     % Specular reflection coefficient   %  0
  591.     % Specularity true-color components %  0  0  0
  592.     % Specular exponent                 %  0
  593.     % Transparency coefficient          %  1
  594.   ; 
  595.    % *************************************************************** %
  596.    % Matrix operations to position graphics                          %
  597.    % *************************************************************** %
  598.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  599.     Apply_to_global3  0  ; 
  600.   Execute_structure 20  ; 
  601.   
  602. % ****************************************************************** % 
  603. %                                                                    % 
  604. %                        Row 4 Column 3                              %
  605. % ****************************************************************** %
  606.     % ********************************************************** %
  607.     % Interior_pattern_index should have no effect               %
  608.     % because Interior_style is SOLID                            %
  609.     % ********************************************************** %
  610.   Interior_pattern_index  3;
  611.   Interior_shading  3;
  612.   Surface_properties
  613.     % Ambient reflection coefficient    %  0.200000
  614.     % Diffuse reflection coefficient    %  0.666667
  615.     % Specular reflection coefficient   %  0
  616.     % Specularity true-color components %  0  0  0
  617.     % Specular exponent                 %  0
  618.     % Transparency coefficient          %  1
  619.   ; 
  620.   Backface_properties
  621.     % Ambient reflection coefficient    %  0.200000
  622.     % Diffuse reflection coefficient    %  0.333333
  623.     % Specular reflection coefficient   %  0
  624.     % Specularity true-color components %  0  0  0
  625.     % Specular exponent                 %  0
  626.     % Transparency coefficient          %  1
  627.   ; 
  628.    % *************************************************************** %
  629.    % Matrix operations to position graphics                          %
  630.    % *************************************************************** %
  631.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  632.     Apply_to_global3  0  ; 
  633.   Call_structure 20  ; 
  634.   
  635. % ****************************************************************** % 
  636. %                                                                    % 
  637. %                        Row 4 Column 4                              %
  638. % ****************************************************************** %
  639.     % ********************************************************** %
  640.     % Interior_pattern_index should have no effect               %
  641.     % because Interior_style is SOLID                            %
  642.     % ********************************************************** %
  643.   Interior_pattern_index  4;
  644.   Interior_shading  4;
  645.   Surface_properties
  646.     % Ambient reflection coefficient    %  0.200000
  647.     % Diffuse reflection coefficient    %  1.000000
  648.     % Specular reflection coefficient   %  0
  649.     % Specularity true-color components %  0  0  0
  650.     % Specular exponent                 %  0
  651.     % Transparency coefficient          %  1
  652.   ; 
  653.   Backface_properties
  654.     % Ambient reflection coefficient    %  0.200000
  655.     % Diffuse reflection coefficient    %  0.000000
  656.     % Specular reflection coefficient   %  0
  657.     % Specularity true-color components %  0  0  0
  658.     % Specular exponent                 %  0
  659.     % Transparency coefficient          %  1
  660.   ; 
  661.    % *************************************************************** %
  662.    % Matrix operations to position graphics                          %
  663.    % *************************************************************** %
  664.     Concat_matrix3  1  0 preconcat  ;         % Move over one column %
  665.     Apply_to_global3  0  ; 
  666.   Execute_structure 20  ; 
  667.   
  668. End_test  ; 
  669. Sleep 5 ;
  670.