class NDATA2KNOT
****
-----------NData[]
_
-->
_
Knot[]
_
---------------------
Public
Readonly Shareds
shared dir0:INT;
****
current dir= -1/ 1
shared dir1:INT;
****
shared ofs:INT;
****
slope
shared v0,v1,v2,p0,scale:VERTEXK;
shared pos0: INT;
****
current pos.
shared v0,v1,v2,p0,scale:VERTEXK;
shared str0:CARD;
****
current str.
shared str1: CARD;
****
shared v0,v1,v2,p0,scale:VERTEXK;
shared v0,v1,v2,p0,scale:VERTEXK;
shared v0,v1,v2,p0,scale:VERTEXK;
Writable Shareds
shared dir0:INT;
****
current dir= -1/ 1
shared dir1:INT;
****
shared ofs:INT;
****
slope
shared v0,v1,v2,p0,scale:VERTEXK;
shared pos0: INT;
****
current pos.
shared v0,v1,v2,p0,scale:VERTEXK;
shared str0:CARD;
****
current str.
shared str1: CARD;
****
shared v0,v1,v2,p0,scale:VERTEXK;
shared v0,v1,v2,p0,scale:VERTEXK;
shared v0,v1,v2,p0,scale:VERTEXK;
Features
NData2Knot(ndata:NDATA, inout Knot:KNOT):BOOL
PointInCr(inout Knot:KNOT,inout tp:CARD, OverSw:BOOL)
PointInPt2(NData:NDATA,inout Knot:KNOT,wi1:CARD,dir0:INT,str1:CARD,pos0,ofs:INT,v:VERTEXK, inout pt:CARD,inout needPt0:BOOL)
****
check the condition of the next code,
then set (x1,y1) to Knot[] if needed
and set "needPt0" be true if (x0,y0) of the next code is needed.
__
-->
_
needPt0.
errMsg(n:CARD)
findStart(NData:NDATA, KTbl:ARRAY{BOOL}, out wi:CARD):BOOL
****
search start point of a component -->wi
searchNext(NData:NDATA, inout wi:CARD, dir0:INT, str0:CARD):BOOL
****
search next code
setPts(NData:NDATA,wi:INT)
****
__
x0:=px0+(pos0*2+1-dir0)*xscale;
__
y0:=py0+(str0*2
_
-index
_
)*yscale;
_
__
x1:=px0+(pos0*2+1+dir0)*xscale;
__
y1:=py0+((str0+ofs)*2
_
-index
_
)*yscale;
_
__
x2:=(x0+x1)
_
DIV
_
2;
__
y2:=(y0+y1)
_
DIV
_
2;
_
setStr1(NData:NDATA, wi:CARD, dir0:INT, inout str0:CARD, inout dir1:INT, inout str1:CARD, inout ofs:INT)
****
wi,dir0,str0 ---> str0,dir1,str1,ofs
The Sather Home Page