118 |
draw lnk[ind].e.p transformed lnk[ind].e.loc withpen pencircle scaled 4pt; |
draw lnk[ind].e.p transformed lnk[ind].e.loc withpen pencircle scaled 4pt; |
119 |
enddef; |
enddef; |
120 |
|
|
121 |
vardef plainlink(expr ind, offs) = |
vardef plainlink(expr ind, offsa, offsb, ta, tb) = |
122 |
locatelinkend(a, ind); |
locatelinkend(a, ind); |
123 |
locatelinkend(b, ind); |
locatelinkend(b, ind); |
124 |
plainlinkend(a, ind) |
plainlinkend(a, ind) |
127 |
pair la,lb; |
pair la,lb; |
128 |
la = (0,0) transformed lnk[ind].a.loc; |
la = (0,0) transformed lnk[ind].a.loc; |
129 |
lb = (0,0) transformed lnk[ind].b.loc; |
lb = (0,0) transformed lnk[ind].b.loc; |
130 |
draw la{right} .. tension .75 and .75 .. .5[la,lb] + offs {lb-la} |
draw la{right} .. tension ta and tb .. |
131 |
.. tension .75 and .75 .. lb{right} |
(.33333[la,lb] + offsa) .. tension tb .. |
132 |
|
(.66666[la,lb] + offsb) |
133 |
|
.. tension tb and ta .. lb{right} |
134 |
withpen pencircle scaled 6pt; |
withpen pencircle scaled 6pt; |
135 |
enddef; |
enddef; |
136 |
|
|
244 |
doclabel(d, "4"); |
doclabel(d, "4"); |
245 |
doclabel(e, "5"); |
doclabel(e, "5"); |
246 |
|
|
247 |
plainlink(0, (0,-30)); |
plainlink(0, (100,-60), (100, -60), .75, 1); |
248 |
plainlink(1, (0,60)); |
plainlink(1, (60, 100), (-60,-100), .8, 1.1); |
249 |
plainlink(2, (0,60)); |
plainlink(2, (-50,120),(0, 0), .8, .8); |
250 |
plainlink(3, (0, 120)); |
plainlink(3, (50, -160), (-50, -160), .8, .8); |
251 |
plainlink(4, (0, -60)); |
plainlink(4, (0, -60), (0, 0), .8, .8); |
252 |
|
|
253 |
% addto currentpicture also a.p; |
% addto currentpicture also a.p; |
254 |
% |
% |