InfoMagic Source Code 1993 July/THE_SOURCE_CODE_CD_ROM.iso/X/mit/demos/gpc/tests/line.v01

Text File | 1991-02-13 | 29.6 KB | 664 lines

%
/*--------------------------------------------------------------------*\
|
|   Copyright (c)1989,1990 National Computer Graphics Association
|
|       Permission is granted to any individual or instititution
|  to use, copy, or redistribute this software so long as it is not
|    sold for profit, provided this copyright notice is retained.
|
|                         Developed for the
|               National Computer Graphics Association
|                        2722 Merrilee Drive
|                         Fairfax, VA  22031
|                           [phone]
|
|                                 by
|                SimGraphics Engineering Corporation
|                   1137 Huntington Drive, Suite A
|                      South Pasadena, CA  91030
|                           [phone]
|---------------------------------------------------------------------
|
| Author    :    SimGraphics Engineering Corporation
| File          :    line.v01
| Date          :    Tue Jul 10 16:43:18 PDT 1990
| Project       :    Picture Level Benchmark
| Description    :    See line.doc
| Status    :    Version 1.02
| Revisions     :    1.01: Apply_to_global3 removed from data file
|            and moved to inside test loop.  This eased
|            problems for PHIGS ports.
|
|            1.02:
|            File line.d01 has been replaced wioth file line.d02
|            File line.d03 has been replaced wioth file line.d04
|
\*--------------------------------------------------------------------*/
%
    Configuration rgb double_buffer true_color;
    Read_geometry_file "line.d01";
    Specify_report_file "line.r01";
    Default_view_specification  1  500 parallel;
    Active_view  1  ;

% *********************************************************************** %
% Set up static attributes                                                %
% *********************************************************************** %
    Text_prec Stroke ;
    Char_exp  1 ;
    char_height  30 ;

    Background_color    0.300000  0.300000  0.800000 ;
    Text_color  1  1  1 ;


    Scale3  0  0.700000  0.500000  1 Replace  ;
    Identity3  1  ;
    Apply_to_global3  1  ;
    Identity3  2  ;
    Translate3  0  -437.500000   444  0 Postconcat  ;     % Set Initial position  %
    Translate3  1   125     0  0 Postconcat  ;     % Set Column offset     %
    Translate3  2     0  -111  0 Postconcat  ;     % Set Row offset        %
    Push_matrix3  ;                 % Push Initial position %
% *********************************************************************** %
%                                                                         %
%                                                                         %
%                           Begin Test Loop                               %
%                                                                         %
% *********************************************************************** %
Begin_test  1  ;
    Text3  -450  -450  0 "Line Test: true parallel";
    Text3  -450  -495  0 "line.v01";

% *********************************************************************** %
%                           Row 1 Column 1                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Apply_to_global3  0  ;
  execute_structure 1 ;            % Structure for row 1 col 1 %

% *********************************************************************** %
%                           Row 1 Column 2                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 2 ;            % Structure for row 1 col 2 %

% *********************************************************************** %
%                           Row 1 Column 3                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 3 ;            % Structure for row 1 col 3 %

% *********************************************************************** %
%                           Row 1 Column 4                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 4 ;            % Structure for row 1 col 4 %

% *********************************************************************** %
%                           Row 1 Column 5                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 5 ;            % Structure for row 1 col 5 %

% *********************************************************************** %
%                           Row 1 Column 6                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 6 ;            % Structure for row 1 col 6 %

% *********************************************************************** %
%                           Row 1 Column 7                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 7 ;            % Structure for row 1 col 7 %

% *********************************************************************** %
%                           Row 1 Column 8                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 8 ;            % Structure for row 1 col 8 %

% *********************************************************************** %
%                           Row 2 Column 1                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Pop_matrix3  ;
  Concat_matrix3  2  0 postconcat  ;     % Move down one row %
  Push_matrix3  ;
  Apply_to_global3  0  ;
  execute_structure 9 ;            % Structure for row 2 col 1 %

% *********************************************************************** %
%                           Row 2 Column 2                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 10 ;            % Structure for row 2 col 2 %

% *********************************************************************** %
%                           Row 2 Column 3                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 11 ;            % Structure for row 2 col 3 %

% *********************************************************************** %
%                           Row 2 Column 4                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 12 ;            % Structure for row 2 col 4 %

% *********************************************************************** %
%                           Row 2 Column 5                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 13 ;            % Structure for row 2 col 5 %

% *********************************************************************** %
%                           Row 2 Column 6                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 14 ;            % Structure for row 2 col 6 %

% *********************************************************************** %
%                           Row 2 Column 7                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 15 ;            % Structure for row 2 col 7 %

% *********************************************************************** %
%                           Row 2 Column 8                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 16 ;            % Structure for row 2 col 8 %

% *********************************************************************** %
%                           Row 3 Column 1                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Pop_matrix3  ;
  Concat_matrix3  2  0 postconcat  ;     % Move down one row %
  Push_matrix3  ;
  Apply_to_global3  0  ;
  execute_structure 17 ;            % Structure for row 3 col 1 %

% *********************************************************************** %
%                           Row 3 Column 2                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 18 ;            % Structure for row 3 col 2 %

% *********************************************************************** %
%                           Row 3 Column 3                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 19 ;            % Structure for row 3 col 3 %

% *********************************************************************** %
%                           Row 3 Column 4                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 20 ;            % Structure for row 3 col 4 %

% *********************************************************************** %
%                           Row 3 Column 5                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 21 ;            % Structure for row 3 col 5 %

% *********************************************************************** %
%                           Row 3 Column 6                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 22 ;            % Structure for row 3 col 6 %

% *********************************************************************** %
%                           Row 3 Column 7                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 23 ;            % Structure for row 3 col 7 %

% *********************************************************************** %
%                           Row 3 Column 8                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 24 ;            % Structure for row 3 col 8 %

% *********************************************************************** %
%                           Row 4 Column 1                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Pop_matrix3  ;
  Concat_matrix3  2  0 postconcat  ;     % Move down one row %
  Push_matrix3  ;
  Apply_to_global3  0  ;
  execute_structure 25 ;            % Structure for row 4 col 1 %

% *********************************************************************** %
%                           Row 4 Column 2                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 26 ;            % Structure for row 4 col 2 %

% *********************************************************************** %
%                           Row 4 Column 3                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 27 ;            % Structure for row 4 col 3 %

% *********************************************************************** %
%                           Row 4 Column 4                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 28 ;            % Structure for row 4 col 4 %

% *********************************************************************** %
%                           Row 4 Column 5                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 29 ;            % Structure for row 4 col 5 %

% *********************************************************************** %
%                           Row 4 Column 6                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 30 ;            % Structure for row 4 col 6 %

% *********************************************************************** %
%                           Row 4 Column 7                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 31 ;            % Structure for row 4 col 7 %

% *********************************************************************** %
%                           Row 4 Column 8                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 32 ;            % Structure for row 4 col 8 %

% *********************************************************************** %
%                           Row 5 Column 1                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Pop_matrix3  ;
  Concat_matrix3  2  0 postconcat  ;     % Move down one row %
  Push_matrix3  ;
  Apply_to_global3  0  ;
  execute_structure 33 ;            % Structure for row 5 col 1 %

% *********************************************************************** %
%                           Row 5 Column 2                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 34 ;            % Structure for row 5 col 2 %

% *********************************************************************** %
%                           Row 5 Column 3                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 35 ;            % Structure for row 5 col 3 %

% *********************************************************************** %
%                           Row 5 Column 4                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 36 ;            % Structure for row 5 col 4 %

% *********************************************************************** %
%                           Row 5 Column 5                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 37 ;            % Structure for row 5 col 5 %

% *********************************************************************** %
%                           Row 5 Column 6                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 38 ;            % Structure for row 5 col 6 %

% *********************************************************************** %
%                           Row 5 Column 7                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 39 ;            % Structure for row 5 col 7 %

% *********************************************************************** %
%                           Row 5 Column 8                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 40 ;            % Structure for row 5 col 8 %

% *********************************************************************** %
%                           Row 6 Column 1                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Pop_matrix3  ;
  Concat_matrix3  2  0 postconcat  ;     % Move down one row %
  Push_matrix3  ;
  Apply_to_global3  0  ;
  execute_structure 41 ;            % Structure for row 6 col 1 %

% *********************************************************************** %
%                           Row 6 Column 2                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 42 ;            % Structure for row 6 col 2 %

% *********************************************************************** %
%                           Row 6 Column 3                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 43 ;            % Structure for row 6 col 3 %

% *********************************************************************** %
%                           Row 6 Column 4                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 44 ;            % Structure for row 6 col 4 %

% *********************************************************************** %
%                           Row 6 Column 5                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 45 ;            % Structure for row 6 col 5 %

% *********************************************************************** %
%                           Row 6 Column 6                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 46 ;            % Structure for row 6 col 6 %

% *********************************************************************** %
%                           Row 6 Column 7                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 47 ;            % Structure for row 6 col 7 %

% *********************************************************************** %
%                           Row 6 Column 8                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 48 ;            % Structure for row 6 col 8 %

% *********************************************************************** %
%                           Row 7 Column 1                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Pop_matrix3  ;
  Concat_matrix3  2  0 postconcat  ;     % Move down one row %
  Push_matrix3  ;
  Apply_to_global3  0  ;
  execute_structure 49 ;            % Structure for row 7 col 1 %

% *********************************************************************** %
%                           Row 7 Column 2                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 50 ;            % Structure for row 7 col 2 %

% *********************************************************************** %
%                           Row 7 Column 3                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 51 ;            % Structure for row 7 col 3 %

% *********************************************************************** %
%                           Row 7 Column 4                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 52 ;            % Structure for row 7 col 4 %

% *********************************************************************** %
%                           Row 7 Column 5                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 53 ;            % Structure for row 7 col 5 %

% *********************************************************************** %
%                           Row 7 Column 6                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 54 ;            % Structure for row 7 col 6 %

% *********************************************************************** %
%                           Row 7 Column 7                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 55 ;            % Structure for row 7 col 7 %

% *********************************************************************** %
%                           Row 7 Column 8                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 56 ;            % Structure for row 7 col 8 %

% *********************************************************************** %
%                           Row 8 Column 1                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Pop_matrix3  ;
  Concat_matrix3  2  0 postconcat  ;     % Move down one row %
  Push_matrix3  ;
  Apply_to_global3  0  ;
  execute_structure 57 ;            % Structure for row 8 col 1 %

% *********************************************************************** %
%                           Row 8 Column 2                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 58 ;            % Structure for row 8 col 2 %

% *********************************************************************** %
%                           Row 8 Column 3                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 59 ;            % Structure for row 8 col 3 %

% *********************************************************************** %
%                           Row 8 Column 4                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 60 ;            % Structure for row 8 col 4 %

% *********************************************************************** %
%                           Row 8 Column 5                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 61 ;            % Structure for row 8 col 5 %

% *********************************************************************** %
%                           Row 8 Column 6                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 62 ;            % Structure for row 8 col 6 %

% *********************************************************************** %
%                           Row 8 Column 7                                %
% *********************************************************************** %
  Line_shading  0;
  HLHS_Removal hlhs_disable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 63 ;            % Structure for row 8 col 7 %

% *********************************************************************** %
%                           Row 8 Column 8                                %
% *********************************************************************** %
  Line_shading  1;
  HLHS_Removal hlhs_enable;
  Concat_matrix3  1  0 postconcat  ;     % Move over one column %
  Apply_to_global3  0  ;
  execute_structure 64 ;            % Structure for row 8 col 8 %
End_test  ;
Sleep 5 ;