[Gzz-commits] manuscripts/Paper buoyoing.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/gzz
Module name:    manuscripts
Changes by:     Tuomas J. Lukka <address@hidden>        03/03/14 00:44:33

Modified files:
        Paper          : buoyoing.mp 

Log message:
        twids

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

Patches:
Index: manuscripts/Paper/buoyoing.mp
diff -u manuscripts/Paper/buoyoing.mp:1.4 manuscripts/Paper/buoyoing.mp:1.5
--- manuscripts/Paper/buoyoing.mp:1.4   Thu Mar  6 12:55:14 2003
+++ manuscripts/Paper/buoyoing.mp       Fri Mar 14 00:44:28 2003
@@ -2,7 +2,7 @@
 \documentclass{article}
 \usepackage{multicol}
 \begin{document}
-\def\lorem{Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do 
eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim 
veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo 
consequat. 
+\def\lorem{ Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do 
eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim 
veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo 
consequat. 
 
 Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore 
eu fugiat nulla pariatur. 
 
@@ -25,8 +25,45 @@
     addto s.p doublepath bbox(s.p);
     pair s.size;
     s.size = (urcorner pict) - (llcorner pict);
+    pair s.loc;
 enddef;
 
+def docpic(suffix s)(expr locp) =
+    addto currentpicture also s.p shifted locp;
+    s.loc := locp;
+enddef;
+
+def ploc(suffix s) = 
+    show s.loc;
+enddef;
+
+string lnk[].a;
+string lnk[].b;
+pair lnk[].a.l;
+pair lnk[].b.l;
+path lnk[].a.p;
+path lnk[].b.p;
+
+nlinks = 0;
+
+def linkend(suffix e)(expr n, ed, ep) =
+    lnk[n].e := ed;
+    lnk[n].e.p := ep;
+    lnk[n].e.l := center(ep);
+enddef;
+
+def link(sd, sp, ed, ep) =
+    linkend(a, nlinks, sd, sp);
+    linkend(b, nlinks, ed, ep);
+    nlinks := nlinks+1;
+enddef;
+
+def cir(expr x, y, r) =
+    (x-r,y)...(x,y-r)...(x+r,y)...(x,y+r)...cycle
+enddef;
+
+link("a", cir(50,50,40), "c", cir(100,100,30));
+
 picture p;
 
 doc(a, btex \hv\vbox{\hsize=3cm\tolerance=10000
@@ -55,15 +92,22 @@
 
 beginfig(1);
 
-addto currentpicture also a.p;
-addto currentpicture also b.p shifted(xpart(a.size)+50,0);
-
-y2=-400;
-
-addto currentpicture also c.p shifted(0,y2);
-addto currentpicture also d.p shifted(xpart(c.size)+50,y2);
-addto currentpicture also e.p shifted(0,-800);
+docpic(a, (0,0));
+docpic(c, a.loc + (0, -400));
+docpic(d, c.loc + (xpart(c.size)+50, 0));
+docpic(e, c.loc + (0, -400));
+docpic(b, e.loc + (xpart(e.size)+50, 0));
+
+% addto currentpicture also a.p;
+% 
+% y2=-400;
+% 
+% addto currentpicture also c.p shifted(0,y2);
+% addto currentpicture also d.p shifted(xpart(c.size)+50,y2);
+% addto currentpicture also e.p shifted(0,-800);
+% addto currentpicture also b.p shifted(xpart(e.size)+50,-800);
 
+scantokens("ploc(b)");
 
 endfig;