[Gzz-commits] manuscripts/Paper visper.mp

[Tuomas J. Lukka]

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

Modified files:
        Paper          : visper.mp 

Log message:
        More fig

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

Patches:
Index: manuscripts/Paper/visper.mp
diff -u manuscripts/Paper/visper.mp:1.2 manuscripts/Paper/visper.mp:1.3
--- manuscripts/Paper/visper.mp:1.2     Sat Mar 29 06:42:16 2003
+++ manuscripts/Paper/visper.mp Sat Mar 29 07:33:52 2003
@@ -20,10 +20,12 @@
     p
 enddef;
 
+pair eyeright, eyeleft;
+eyeright:= (10,0);
+eyeleft := (-30, 0);
+
 def basic =
     addto currentpicture also eye scaled 20 shifted (-10,0);
-    pair eyeright;
-    eyeright:= (10,0);
     yoffs := -80;
     ydist := -50;
 
@@ -83,6 +85,30 @@
 enddef;
 
 beginfig(1);
+
+    xo = 50;
+    
+    pair p[];
+    p[0] := (-130 + xo,20);
+    p[1] := (-140 + xo,10);
+    p[2] := (-135 + xo,-20);
+    p[3] = (-120 + xo,0);
+
+    draw p[0] -- p[1] -- p[2] -- p[3] -- cycle
+       withpen pencircle scaled 1pt;
+
+    for i = 0 upto 3: 
+       draw p[i] -- eyeleft dashed evenly withpen pencircle scaled .3pt;
+    endfor
+
+    label.bot("Texture", p[2]);
+
+basic;
+
+
+endfig;
+
+beginfig(2);
 
 basic;