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

Diff of /manuscripts/Paper/buoyoing.mp

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

revision 1.12 by tjl, Wed Mar 19 15:20:42 2003 UTC revision 1.13 by tjl, Thu Mar 20 13:35:26 2003 UTC
# Line 136  def cir(expr x, y, r) = Line 136  def cir(expr x, y, r) =
136      (x-2*r,y)...(x,y-r)...(x+2*r,y)...(x,y+r)...cycle      (x-2*r,y)...(x,y-r)...(x+2*r,y)...(x,y+r)...cycle
137  enddef;  enddef;
138    
139    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
140    %%%%% THE LINKS
141    
142  link("a", cir(50,30,25), "c", cir(70,160,37));  link("a", cir(50,30,25), "c", cir(70,160,37));
143  link("b", cir(50,230,30), "a", cir(350,290,30));  link("b", cir(50,230,30), "a", cir(350,290,30));
144  link("b", cir(60,170,35), "d", cir(150,60,50));  link("b", cir(60,170,35), "d", cir(150,60,50));
# Line 146  link("a", cir(48,100,26), "e", cir(220,1 Line 149  link("a", cir(48,100,26), "e", cir(220,1
149    
150  pair p;  pair p;
151    
152    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
153    %%%% THE DOCUMENTS
154    
155  for i = -100 step 30 until 800 :  for i = -100 step 30 until 800 :
156      p := (i,-50);      p := (i,-50);
# Line 159  doc(a, (1,.90,.80), btex \hv\vbox{\hsize Line 164  doc(a, (1,.90,.80), btex \hv\vbox{\hsize
164  \linewidth=18cm\begin{multicols}{5}\loremiii  \linewidth=18cm\begin{multicols}{5}\loremiii
165  \end{multicols}}etex);  \end{multicols}}etex);
166    
167  for i = -100 step 40 until 800 :  for i = -100 step 40 until 200 :
168  for j = -100 step 40 until 800 :  for j = -100 step 40 until 800 :
169      p := (i-.1*j,j+.05*i);      p := (i-.1*j,j+.05*i);
170      fill p .. p+(20,5) .. p+(5,20) .. cycle;      fill p .. p+(20,5) .. p+(5,20) .. cycle;

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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