[Gzz-commits] manuscripts/Paper buoyoing.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/gzz
Module name:    manuscripts
Changes by:     Tuomas J. Lukka <address@hidden>        03/05/03 04:27:11

Modified files:
        Paper          : buoyoing.mp 

Log message:
        Buoyoing image

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gzz/manuscripts/Paper/buoyoing.mp.diff?tr1=1.14&tr2=1.15&r1=text&r2=text

Patches:
Index: manuscripts/Paper/buoyoing.mp
diff -u manuscripts/Paper/buoyoing.mp:1.14 manuscripts/Paper/buoyoing.mp:1.15
--- manuscripts/Paper/buoyoing.mp:1.14  Mon Mar 31 10:08:53 2003
+++ manuscripts/Paper/buoyoing.mp       Sat May  3 04:27:11 2003
@@ -118,7 +118,7 @@
     draw lnk[ind].e.p transformed lnk[ind].e.loc withpen pencircle scaled 4pt;
 enddef;
 
-vardef plainlink(expr ind, offs) =
+vardef plainlink(expr ind, offsa, offsb, ta, tb) =
     locatelinkend(a, ind);
     locatelinkend(b, ind);
     plainlinkend(a, ind)
@@ -127,8 +127,10 @@
     pair la,lb;
     la = (0,0) transformed lnk[ind].a.loc; 
     lb = (0,0) transformed lnk[ind].b.loc; 
-    draw la{right} .. tension .75 and .75 .. .5[la,lb] + offs {lb-la}  
-                   .. tension .75 and .75 ..  lb{right}
+    draw la{right} .. tension ta and tb .. 
+           (.33333[la,lb] + offsa) .. tension tb ..
+           (.66666[la,lb] + offsb) 
+                   .. tension tb and ta ..  lb{right}
         withpen pencircle scaled 6pt;
 enddef;
 
@@ -242,11 +244,11 @@
 doclabel(d, "4");
 doclabel(e, "5");
 
-plainlink(0, (0,-30));
-plainlink(1, (0,60));
-plainlink(2, (0,60));
-plainlink(3, (0, 120));
-plainlink(4, (0, -60));
+plainlink(0, (100,-60), (100, -60), .75, 1);
+plainlink(1, (60, 100), (-60,-100), .8, 1.1);
+plainlink(2, (-50,120),(0, 0), .8, .8);
+plainlink(3, (50, -160), (-50, -160), .8, .8);
+plainlink(4, (0, -60), (0, 0), .8, .8);
 
 % addto currentpicture also a.p;
 %