class SET_TCODE_ALG
****
2001/02 merge codes on knot and theta curve
1989/8 Kouji Kodama
___
make
_
TCODE
_
for
_
Theta
_
curve.
Public
Readonly Shareds
shared Knot:KNOT;
shared TCode:TCODE;
shared cod:VERTEXC;
shared stp,gen,compo,i:INT;
shared stp,gen,compo,i:INT;
shared stp,gen,compo,i:INT;
shared stp,gen,compo,i:INT;
Writable Shareds
shared Knot:KNOT;
shared TCode:TCODE;
shared cod:VERTEXC;
shared stp,gen,compo,i:INT;
shared stp,gen,compo,i:INT;
shared stp,gen,compo,i:INT;
shared stp,gen,compo,i:INT;
Features
DelBandUCross:BOOL
****
delete crossings under band
SetTCode(knot:KNOT,out tcode:TCODE):BOOL
SetTCode0:BOOL
SetTCodeBandSgn(i1,i2,j1,j2:INT):BOOL
****
__
set
_
sign
_
at
_
the
_
band-end
SetTCodeC:BOOL
****
__
set
_
companion
_
and
_
sign
_
at
_
crossings
_
and
_
bands
SetTCodeC_Theta_vert:BOOL
****
sign of vertex rotation
SetTCodeCmp(i1,inout i2, inout j1, inout j2:INT):BOOL
SetTCodeCrossSgn(i1,i2,j1,j2:INT):BOOL
****
set sign at the crossing
SetTCode_Theta(knot:KNOT,out tcode:TCODE):BOOL
delG:BOOL
****
adjust generator number
setupK:BOOL
****
change Knot near ts/te.
setupK_Theta:BOOL
****
separate theta graph to 3-strings.
tgIdent1(inout g1,inout g2:INT)
tgIdent_band:BOOL
****
__
Gen
_
trimming.
adjust generator number on band
tgIdent_end:BOOL
****
__
Gen
_
trimming.
"identify gen at the beginning and ending of knot code\n".
Don't use for Theta curve
tgIdent_trivial:BOOL
****
__
Gen
_
trimming.
identify generators along trivial relation: a b a~ a~ or a a a~ b~
The Sather Home Page