wi:=0;




Public


Readonly Shareds
****shared x0, x1, x2, y0, y1, y2:INT; shared xscale, yscale, px0, py0:INT;
****shared xscale, yscale, px0, py0:INT;
shared v0,v1,v2,p0,scale:VERTEXK;
**** shared x0, x1, x2, y0, y1, y2:INT; shared xscale, yscale, px0, py0:INT;
**** pos0,dir0, str0,ofs --> x0,x1,x2,y0,y1,y2
**** pos0,dir0, str0,ofs --> x0,x1,x2,y0,y1,y2
:INT;
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
**** pos0,dir0, str0,ofs --> x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
**** pos0,dir0, str0,ofs --> x0,x1,x2,y0,y1,y2

Writable Shareds
****shared x0, x1, x2, y0, y1, y2:INT; shared xscale, yscale, px0, py0:INT;
****shared xscale, yscale, px0, py0:INT;
shared v0,v1,v2,p0,scale:VERTEXK;
**** shared x0, x1, x2, y0, y1, y2:INT; shared xscale, yscale, px0, py0:INT;
**** pos0,dir0, str0,ofs --> x0,x1,x2,y0,y1,y2
**** pos0,dir0, str0,ofs --> x0,x1,x2,y0,y1,y2
:INT;
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
**** pos0,dir0, str0,ofs --> x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
setPts(NData:NDATA,wi:INT)
****
__pos0,dir0,_str0,ofs_-->_x0,x1,x2,y0,y1,y2
**** pos0,dir0, str0,ofs --> x0,x1,x2,y0,y1,y2

Features
NData:NDATA:=ndata.clone;
tp:=tp+1;
**** and set "needPt0" be true if (x0,y0) of the next code is needed.
__-->_needPt0.
wi, tp:INT;
**** wi, dir0/1, str0/1, pos0, ofs ,x , y, tp
if (NCODE::tn=NData[wi].typ )and(~KTbl[wi]) then return true; end;
case NData[wi].typ
**** 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;_
when NCODE::tn then

The Sather Home Page