class DRAWKNOT_ALG |
---|
**** |
-------------------------_Draw_Knot_-------------------- |
const arrowLen:FLT:=10.0; |
---|
const arrowLenS:FLT:=arrowLen/arrowRatio; |
---|
const arrowRatio:FLT:=1.0/3.0; |
---|
Bezier(x0, y0, x1, y1, x2, y2, col:INT) |
---|
ChangeScreen(Knot:KNOT, latticeFlg:BOOL) |
---|
**** | writePage:=WPCh-writePage; Screen(Mode, 0, writePage, dispPage); |
DrawKnot(Knot:KNOT) |
---|
ResetPage(Knot:KNOT) |
---|
arrow(inout gx0,inout gy0,inout gx1,inout gy1,inout gx2,inout gy2:INT) |
---|
**** | Draw arrow at the center of pt0 and pt1 return line pt0-pt1-pt2 |
arrowS(gx0, gy0, gx1, gy1, col:INT) |
---|
**** | Draw arrow at the center of pt.0 and pt.1 |
flush(inout Bridge:KNOT,col:INT) |
---|
**** | display bridge |
next(Bridge:KNOT, |
---|