perm filename N[CAR,BGB] blob
sn#015999 filedate 1972-12-20 generic text, type T, neo UTF8
00100 ;NODE STRUCTURE.--------------------------------------------------
00200 ;
00300 ; ARC/EDGE/VERTEX NODE. POLYGON/REGION NODE.
00400 ;
00500 ; 0 CW,,CCW 0 polygon-ring.
00600 ; 1 ROW,,COL 1 NCNT,,HEAD
00700 ; 2 TYPE,,ARC 2 TYPE,,ARC
00800 ; 3 ENDO,,EXO 3 ENDO,,EXO
00900 ; 4 - ,,PGON 4 CIS,,PGON co-polygon-ring.
01000 ;
01100 ; FILM NODE. IMAGE NODE. LEVEL NODE.
01200 ;
01300 ; 0 0 image-ring. 0 level-ring.
01400 ; 1 ,,HEAD 1 ,,HEAD 1 ,,HEAD
01500 ; 2 TYPE,, 2 TYPE,, 2 TYPE,,
01600 ; 3 3 3
01700 ; 4 4 4
01800 ;-----------------------------------------------------------------
01900 ;LINK NAMES DEFINED.
02000
02100 DEFINE HEAD (A,Q){CDR A,1(Q)}
02200 DEFINE HEAD.(A,Q){DAP A,1(Q)}
02300 DEFINE TYPE (A,Q){CAR A,2(Q)}
02400 DEFINE TYPE.(A,Q){DIP A,2(Q)}
02500
02600 RC←←1
02700 DEFINE ROW(A,Q){CAR A,1(Q)} ↔ DEFINE ROW.(A,Q){DIP A,1(Q)}
02800 DEFINE COL(A,Q){CDR A,1(Q)} ↔ DEFINE COL.(A,Q){DAP A,1(Q)}
02900 DEFINE ARC(A,Q){CDR A,2(Q)} ↔ DEFINE ARC.(A,Q){DAP A,2(Q)}
03000 DEFINE CW (A,Q){CAR A,0(Q)} ↔ DEFINE CCW (A,Q){CDR A,0(Q)}
03100 DEFINE CW.(A,Q){DIP A,0(Q)} ↔ DEFINE CCW.(A,Q){DAP A,0(Q)}
03200
03300 DEFINE ENDO(A,Q){CAR A,3(Q)}↔DEFINE ENDO.(A,Q){DIP A,3(Q)}
03400 DEFINE EXO (A,Q){CDR A,3(Q)}↔DEFINE EXO. (A,Q){DAP A,3(Q)}
03500 DEFINE CIS (A,Q){CAR A,4(Q)}↔DEFINE CIS. (A,Q){DIP A,4(Q)}
03600 DEFINE PGON(A,Q){CDR A,4(Q)}↔DEFINE PGON.(A,Q){DAP A,4(Q)}
03700 DEFINE NCNT(A,Q){NIP A,1(Q)}↔DEFINE NCNT.(A,Q){DIP A,1(Q)}
03800 ;-----------------------------------------------------------------
03900 ;PROPERTY-TYPE MACROS.
04000 DEFINE MARK (Q,BITS){SLACI(BITS)↔IORM(Q)2}
04100 DEFINE MARKZ(Q,BITS){SLACI(BITS)↔ANDCAM(Q)2}
04200 DEFINE TEST (Q,BITS){LAC(Q)2↔TLNN(BITS)}
04300 DEFINE TESTZ(Q,BITS){LAC(Q)2↔TLNE(BITS)}
04400
04500 ;PROPERTY-TYPE BITS.
04600 ↓EBIT←←1B17↔ ↓PBIT←←1B16↔ ↓LBIT←←1B15
04700 ↓IBIT←←1B14↔ ↓FBIT←←1B13↔ ↓BITW←←1B12
04710 ↓BITS←←1B11↔ ↓BITE←←1B10↔ ↓BITN←←1B9
04800 ;-----------------------------------------------------------------