DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T l

⟦d4dc59673⟧ TextFile

    Length: 2808 (0xaf8)
    Types: TextFile
    Names: »line.vrb«

Derivation

└─⟦276d19d6e⟧ Bits:30007243 EUUGD5_I: X11R5
    └─⟦af7d3f39a⟧ »./mit-2/mit-2.00« 
        └─⟦0abaffd9e⟧ 
            └─⟦this⟧ »mit/demos/gpc/objects/line.vrb«

TextFile

%                                                                      %
%	BIF Verb file, test for DFX translator                             %
%                                                                      %
READ_GEOMETRY_FILE
	"fan.bif"
	"map.bif"
	"ram.bif"
	"ujoint.bif"  
	;

LINE_COLOR_INDEX 1; % Geometry does not use exlpicit color, init to index 1 %

% Set up default view (view table entry 1)                             %
DEFAULT_VIEW_SPECIFICATION
	1 9.5 PARALLEL ;
IDENTITY3 1 ;
TRANSLATE3 1  -10.5  -7.5    0.0      REPLACE ;
TRANSLATE3 2    0.5   0.375  0.0      REPLACE ;
TRANSLATE3 3   -0.5  -0.375  0.0      REPLACE ;


ACTIVE_VIEW 1;
BEGIN_TEST 20;
CONCAT_MATRIX3 2 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 2 ;
END_TEST ;
BEGIN_TEST 40;
CONCAT_MATRIX3 3 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 2 ;
END_TEST ;
BEGIN_TEST 20;
CONCAT_MATRIX3 2 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 2 ;
END_TEST ;

% Set up default view (view table entry 1)                             %
DEFAULT_VIEW_SPECIFICATION
	1 1020 PARALLEL ;
IDENTITY3 1 ;
TRANSLATE3 1  -1700  -1150    0      REPLACE ;
TRANSLATE3 2   51.5  30.375  0.0      REPLACE ;
TRANSLATE3 3  -51.5 -30.375  0.0      REPLACE ;

ACTIVE_VIEW 1;
BEGIN_TEST 20;
CONCAT_MATRIX3 2 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 3 ;
END_TEST ;
BEGIN_TEST 40;
CONCAT_MATRIX3 3 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 3 ;
END_TEST ;
BEGIN_TEST 20;
CONCAT_MATRIX3 2 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 3 ;
END_TEST ;

% Set up default view (view table entry 1)                             %
DEFAULT_VIEW_SPECIFICATION
	1 204 PARALLEL ;
IDENTITY3 1 ;
TRANSLATE3 1  -204.0  -138    0      REPLACE ;
TRANSLATE3 2   10.5   6.375  0.0      REPLACE ;
TRANSLATE3 3  -10.5  -6.375  0.0      REPLACE ;

ACTIVE_VIEW 1;
BEGIN_TEST 20;
CONCAT_MATRIX3 2 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 4 ;
END_TEST ;
BEGIN_TEST 40;
CONCAT_MATRIX3 3 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 4 ;
END_TEST ;
BEGIN_TEST 20;
CONCAT_MATRIX3 2 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 4 ;
END_TEST ;

% Set up default view (view table entry 1)                             %
DEFAULT_VIEW_SPECIFICATION
	1 9.5 PARALLEL ;
IDENTITY3 1 ;
TRANSLATE3 1  -10.5  -7.5    0      REPLACE ;
TRANSLATE3 2    0.5   0.375  0.0      REPLACE ;
TRANSLATE3 3   -0.5  -0.375  0.0      REPLACE ;

ACTIVE_VIEW 1;
BEGIN_TEST 20;
CONCAT_MATRIX3 2 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 5 ;
END_TEST ;
BEGIN_TEST 40;
CONCAT_MATRIX3 3 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 5 ;
END_TEST ;
BEGIN_TEST 20;
CONCAT_MATRIX3 2 1 PRECONCAT;
APPLY_TO_LOCAL3 1 REPLACE;
EXECUTE_STRUCTURE 5 ;
END_TEST ;
PAUSE ;