perm filename N[C,BGB] blob
sn#038620 filedate 1974-05-09 generic text, type T, neo UTF8
00100 ;LINK NAMES DEFINED.
00200
00300 DEFINE LEFT $(NAM,WRD,Z){
00400 IFIDN<><Z><DEFINE NAM(A,Q)<CAR A,WRD(Q)>>
00500 IFDIF<><Z><DEFINE NAM(A,Q)<NIP A,WRD(Q)>>
00600 DEFINE NAM$.(A,Q)<DIP A,WRD(Q)>
00700 }
00800 DEFINE RIGHT $(NAM,WRD,Z){
00900 IFIDN<><Z><DEFINE NAM(A,Q)<CDR A,WRD(Q)>>
01000 IFDIF<><Z><DEFINE NAM(A,Q)<NAP A,WRD(Q)>>
01100 DEFINE NAM$.(A,Q)<DAP A,WRD(Q)>
01200 }
01300
01400 LEFT(CW,0) RIGHT(CCW,0)
01500 LEFT(ROW,3)↔ RIGHT(COL,3)
01600 LEFT(DAD,1)↔ RIGHT(SON,1)
01700 LEFT(TYPE,2)↔ RIGHT(RELOC,2)
01800 LEFT(ENDO,3)↔ RIGHT(EXO,3)
01900 LEFT(ALT,4) LEFT(ARC,4) RIGHT(NCNT,4,N)
02000 LEFT(NGON,5)↔ RIGHT(PGON,5)
02100 LEFT(NTIME,6)↔ RIGHT(PTIME,6)
02200
02400 DEFINE CNTRST(A,Q){NIP A,4(Q)}
02500 DEFINE CNTRS.(A,Q){DIP A,4(Q)}
02600 ;-----------------------------------------------------------------
00100 ;PROPERTY-TYPE MACROS.
00200
00300 DEFINE MARK (Q,BITS){SLACI(BITS)↔IORM(Q)2}
00400 DEFINE MARKZ(Q,BITS){SLACI(BITS)↔ANDCAM(Q)2}
00500 DEFINE TEST (Q,BITS){LAC(Q)2↔TLNN(BITS)}
00600 DEFINE TESTZ(Q,BITS){LAC(Q)2↔TLNE(BITS)}
00700
00800 ;PROPERTY-TYPE BITS.
00900
01000 ↓WESBIT←←1B0 ;WEST. VIC ONLY.
01100 ↓SOUBIT←←1B1 ;SOUTH.
01200 ↓EASBIT←←1B2 ;EAST.
01300 ↓NORBIT←←1B3 ;NORTH.
01400
01500 ↓NFUSE←←1B4 ;NTIME FUSION. POLYGONS ONLY.
01600 ↓NFISS←←1B5 ;NTIME FISSION.
01700 ↓NEXCT←←1B6 ;NTIME EXACT.
01800 ↓PFUSE←←1B7 ;PTIME FUSION.
01900 ↓PFISS←←1B8 ;PTIME FISSION.
02000 ↓PEXCT←←1B9 ;PTIME EXACT.
02100
02200 ↓HOLBIT←←1B10 ;HOLE POLYGON.
02300 ↓ARCBIT←←1B11 ;ARC VECTOR.
02400
02500 ↓SBIT←←1B12 ;SHAPE NODE.
02600 ↓VBIT←←1B13 ;VERTEX NODE.
02700 ↓PBIT←←1B14 ;POLYGON NODE.
02800
02900 ↓LBIT←←1B15 ;LEVEL NODE.
03000 ↓IBIT←←1B16 ;IMAGE NODE.
03100 ↓FBIT←←1B17 ;FILM NODE.
03200
03300 ;LINK-RELOCATION BITS OF EACH NODE TYPE.
03400
03500 VREL←←330003 ;VERTEX.
03600 PGNREL←←333233 ;POLYGON.
03700 LVLREL←←330000 ;LEVEL.
03800 IMGREL←←330000 ;IMAGE.
03900 FILREL←←011000 ;FILM.
04000 ;-----------------------------------------------------------------
04100 ↓% ←← 400000
04200 ↓NODSIZ ←← 7
04300 ↓RC←←3