/[gzz]/manuscripts/Paper/visper.mp
ViewVC logotype

Diff of /manuscripts/Paper/visper.mp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by tjl, Sat Mar 29 11:42:16 2003 UTC revision 1.3 by tjl, Sat Mar 29 12:33:52 2003 UTC
# Line 20  vardef eye = Line 20  vardef eye =
20      p      p
21  enddef;  enddef;
22    
23    pair eyeright, eyeleft;
24    eyeright:= (10,0);
25    eyeleft := (-30, 0);
26    
27  def basic =  def basic =
28      addto currentpicture also eye scaled 20 shifted (-10,0);      addto currentpicture also eye scaled 20 shifted (-10,0);
     pair eyeright;  
     eyeright:= (10,0);  
29      yoffs := -80;      yoffs := -80;
30      ydist := -50;      ydist := -50;
31    
# Line 84  enddef; Line 86  enddef;
86    
87  beginfig(1);  beginfig(1);
88    
89        xo = 50;
90        
91        pair p[];
92        p[0] := (-130 + xo,20);
93        p[1] := (-140 + xo,10);
94        p[2] := (-135 + xo,-20);
95        p[3] = (-120 + xo,0);
96    
97        draw p[0] -- p[1] -- p[2] -- p[3] -- cycle
98            withpen pencircle scaled 1pt;
99    
100        for i = 0 upto 3:
101            draw p[i] -- eyeleft dashed evenly withpen pencircle scaled .3pt;
102        endfor
103    
104        label.bot("Texture", p[2]);
105    
106    basic;
107    
108    
109    endfig;
110    
111    beginfig(2);
112    
113  basic;  basic;
114    
115  endfig;  endfig;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26