wi:=0; |
---|
**** | 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 |
**** | 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 |
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 |
---|