[Gzz-commits] gzz/Documentation/Manuscripts/Paper pipe.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/gzz
Module name:    gzz
Changes by:     Tuomas J. Lukka <address@hidden>        02/12/01 13:02:40

Modified files:
        Documentation/Manuscripts/Paper: pipe.mp 

Log message:
        diagramming...

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gzz/gzz/Documentation/Manuscripts/Paper/pipe.mp.diff?tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: gzz/Documentation/Manuscripts/Paper/pipe.mp
diff -u gzz/Documentation/Manuscripts/Paper/pipe.mp:1.1 
gzz/Documentation/Manuscripts/Paper/pipe.mp:1.2
--- gzz/Documentation/Manuscripts/Paper/pipe.mp:1.1     Sun Dec  1 12:42:18 2002
+++ gzz/Documentation/Manuscripts/Paper/pipe.mp Sun Dec  1 13:02:39 2002
@@ -1,11 +1,11 @@
 beginfig(1);
 
-defaultfont := "ptmr7t";
+% defaultfont := "ptmr7t";
 
-y1 = 300; % globals
-y2 = 400;
-y3 = 500; % perpaper
-y4 = 600;
+y1 = 600; % globals
+y2 = 500;
+y3 = 400; % perpaper
+y4 = 300;
 
 x1 = 40;
 x2 = 100; % repunit
@@ -16,7 +16,21 @@
 draw (x1,y2)--(xl,y2);
 draw (x1,y4)--(xl,y4);
 
-label.top("Combiner\nprograms",(x4,y1));
+vardef drawgrid(expr c, v, nv, w, nw) =
+    for i = 0 upto nv:
+       draw (c + v * i / nv) -- (c + w + v * i / nv);
+    endfor;
+    for i = 0 upto nw:
+       draw (c + w * i / nw) -- (c + v + w * i / nw);
+    endfor;
+enddef;
+
+label.urt("Combiner programs",(x4,y1));
+drawgrid((x4, y1), (0,-60), 5, (60,0), 1);
+
+
+label.urt("Basis textures", (x3, y1));
+drawgrid((x3, y1), (0,-60), 4, (60,0), 4);