class TCODE




Public


Readable Attributes
attr k:ARRAY{VERT}; .. Included as k

Writable Attributes
attr k:ARRAY{VERT}; .. Included as k

Features
CodeDel(i:INT) .. Included as CodeDel
**** del the code not search for companion
CodeDelCmp(i:INT) .. Included as CodeDelCmp
**** CodeDel with trimming companion
CodeIn(i:INT) .. Included as CodeIn
CodeIn(c:VERTEXC, i:INT) .. Included as CodeIn
CodeIn(v:VERT, i:INT) .. Included as CodeIn
**** move up and insert. 'normal vertex,(x=0,y=0),work=0.
CodeInCmp(i:INT) .. Included as CodeInCmp
CodeInCmp(i,n:INT) .. Included as CodeInCmp
CodeInCmp(v:VERT, i:INT) .. Included as CodeInCmp
**** CodeIn with trimming companion
CodeInCmp(v:VERT, i,n:INT) .. Included as CodeInCmp
**** CodeIn with trimming companion
CodeRev(p1,p2:INT) .. Included as CodeRev
**** Reverse Knot[] codes between p1,p2, needed 0<=p1,p2<=maxK
CodeSplice(stp1,enp1,stp2,enp2:INT) .. Included as CodeSplice
**** splice the code stp1..enp1 and stp2..enp2, stp1<enp1, stp2<enp2
aget(i:INT):VERT .. Included as aget
append(a:SAME) .. Included as append
append(a:SAME):SAME .. Included as append
append(v:VERT) .. Included as append
aset(i:INT, v:VERT) .. Included as aset
**** if k.size<=i then s0::=k.size; k:=k.resize(i+1); loop j::=s0.upto!(i-1); k[j]:=#; end;end;
bandStart:INT .. Included as bandStart
check(print_message:BOOL):BOOL .. Included as check
clone:SAME .. Included as clone
compoDelCmp(stp:INT) .. Included as compoDelCmp
compoStart(c:INT):INT
**** start point of c-th component. return -1, if #compo<c.
cp(inout dist:INT, s_beg,s_end:INT, s_knot:SAME) .. Included as cp
create:SAME .. Included as create
endOfString(i,dir:INT):INT .. Included as endOfString
exgCmp(s1,s2,s3:INT) .. Included as exgCmp
**** Exchange blocks (s1..s2-1) and (s2..s3-1). Assume that 0<= s1 <= s2 <= s3 <= length
expCmp_n(pt:INT, s1,s2,s3:INT):INT .. Included as expCmp_n
flip .. Included as flip
has_band(p1,p2:INT):BOOL .. Included as has_band
**** true if segment p1--p2 has band_attach pts.
has_band:BOOL .. Included as has_band
printD .. Included as kcode_cmp_printD
compoStart(c:INT):INT .. Included as kcode_compoStart
**** start point of c-th component. return -1, if #compo<c.
length:INT .. Included as length
**** code length __except terminator__.
number_compo:INT .. Included as number_compo
number_crossing:INT .. Included as number_crossing
****
___#of_crossings
number_gen:INT
number_negative_crossing:INT .. Included as number_negative_crossing
number_positive_crossing:INT .. Included as number_positive_crossing
number_self_crossing(stp:INT):INT .. Included as number_self_crossing
number_self_writhe(stp:INT):INT .. Included as number_self_writhe
number_writhe:INT .. Included as number_writhe
numbers_count(inout cr,inout cr_p,inout cr_n, .. Included as numbers_count
numbers_seg_count(stp,enp:INT, .. Included as numbers_seg_count
numbers_self_count(stp:INT, inout cr, inout cr_p,inout cr_n:INT) .. Included as numbers_self_count
printD
revK(i:INT) .. Included as revK
**** ori. reverse the string
revKCmp(i:INT) .. Included as revKCmp
**** ori. reverse the string
revKCmp_num(n,j0,j1:INT):INT .. Included as revKCmp_num
rotBack1(stp, enp:INT) .. Included as rotBack1
**** rotate back component of stp--enp by 1
rotComponent(stp, enp:INT, stp1:INT) .. Included as rotComponent
**** rotate back component of stp--enp move stp1 to head
rotOvCmp(stp:INT):INT .. Included as rotOvCmp
**** return moved length move start points until the first crossing of the specified component is over cross
rotateToOverCmp .. Included as rotateToOverCmp
**** Attach "rotOV" to each component. move start points until the first crossing of each component is overcross.
sCompoCmp(stp:INT) .. Included as sCompoCmp
**** move sepcified component to the top of TCodestp points a head of a component. move the component to the first
size:INT .. Included as size


Private

bad(message:BOOL,num:INT, i:INT) .. Included as bad

The Sather Home Page