[Gzz-commits] manuscripts/Paper buoyoing.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/gzz
Module name:    manuscripts
Changes by:     Tuomas J. Lukka <address@hidden>        03/03/19 08:07:19

Modified files:
        Paper          : buoyoing.mp 

Log message:
        Textures

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

Patches:
Index: manuscripts/Paper/buoyoing.mp
diff -u manuscripts/Paper/buoyoing.mp:1.9 manuscripts/Paper/buoyoing.mp:1.10
--- manuscripts/Paper/buoyoing.mp:1.9   Wed Mar 19 05:25:58 2003
+++ manuscripts/Paper/buoyoing.mp       Wed Mar 19 08:07:19 2003
@@ -1,7 +1,7 @@
 defaultfont := "phvr8r";
 
 boolean colors;
-colors = true;
+colors = false;
 
 verbatimtex
 \documentclass{article}
@@ -26,16 +26,20 @@
 
 
 
+
 def doc(suffix s)(expr col, pict) =
     picture s.p;
     s.p = nullpicture;
-    addto s.p contour bbox(pict) 
+    addto s.p contour bbox(pict) withcolor white;
+    addto s.p also currentpicture 
        if colors:
            withcolor col
        else:
-           withcolor (.95, .95, .95)
+           withcolor (.90, .90, .90)
        fi
        ;
+    currentpicture := nullpicture;
+    clip s.p to bbox(pict);
     addto s.p also pict;
     addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt;
     pair s.size;
@@ -130,7 +134,13 @@
 
 
 
-picture p;
+pair p;
+
+
+for i = -100 step 30 until 800 :
+    p := (i,0);
+    fill p -- p+(100,800) -- p+(125,800) -- p+(15,0) -- cycle;
+endfor;
 
 doc(a, (1,.90,.80), btex \hv\vbox{\hsize=3cm\tolerance=10000
 \columnseprule=.4pt
@@ -139,14 +149,50 @@
 \linewidth=18cm\begin{multicols}{5}\loremiii
 \end{multicols}}etex);
 
+for i = -100 step 40 until 800 :
+for j = -100 step 40 until 800 :
+    p := (i-.1*j,j+.05*i);
+    fill p .. p+(20,5) .. p+(5,20) .. cycle;
+endfor;
+endfor;
+
 doc(b, (.75,1,.75), btex \rm\vbox{\hsize=4.5cm\tolerance=10000\loremii}etex);
 
+draw (0,0) 
+    for i = 0 upto 200:
+       .. (uniformdeviate(600), uniformdeviate(600))
+    endfor
+       withpen pencircle scaled 1.5 xscaled 2;
+       
+
+
 doc(c, (.90,.80,1), btex 
 \foofonti\vbox{\linewidth=15cm\tolerance=10000
 \begin{multicols}{3}\loremiii\end{multicols}}
 etex);
+
+
+for i = -100 step 20 until 800 :
+    p := (i,0);
+    draw p 
+       for j = 1 step 10 until 600:
+           .. p + (15*sind(j*5), j)
+       endfor
+           withpen pencircle scaled 20 xscaled .2;
+endfor;
+
 doc(d, (.80,1,1), btex 
 \foofontii\vbox{\hsize=10.5cm\tolerance=10000\loremii}etex);
+
+for i = -100 step 30 until 800 :
+    p := (i,0);
+    fill p -- p+(-100,800) -- p+(-125,800) -- p+(-15,0) -- cycle;
+endfor;
+
+for i = -100 step 30 until 800 :
+    p := (0,i);
+    fill p -- p+(800,-50) -- p+(800,-60) -- p+(0,-10) -- cycle;
+endfor;
 
 doc(e, (1,.80,1), btex 
 \sc\vbox{