/[gzz]/manuscripts/Paper/buoyoing.mp
ViewVC logotype

Diff of /manuscripts/Paper/buoyoing.mp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by tjl, Mon Mar 31 15:08:53 2003 UTC revision 1.15 by tjl, Sat May 3 08:27:11 2003 UTC
# Line 118  def plainlinkend(suffix e)(expr ind) = Line 118  def plainlinkend(suffix e)(expr ind) =
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)
# Line 127  vardef plainlink(expr ind, offs) = Line 127  vardef plainlink(expr ind, offs) =
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    
# Line 242  doclabel(c, "3"); Line 244  doclabel(c, "3");
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  %  %

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26