/[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.11 by tjl, Wed Mar 19 13:11:03 2003 UTC revision 1.12 by tjl, Wed Mar 19 15:20:42 2003 UTC
# Line 28  boolean bgs; Line 28  boolean bgs;
28  bgs = true;  bgs = true;
29    
30    
31  def doc(suffix s)(expr col, pict) =  vardef doc(suffix s)(expr col, pict) =
32        interim bboxmargin := 10pt;
33      picture s.p;      picture s.p;
34      picture s.psol;      picture s.psol;
35      s.p = nullpicture;      s.p = nullpicture;
# Line 43  def doc(suffix s)(expr col, pict) = Line 44  def doc(suffix s)(expr col, pict) =
44      currentpicture := nullpicture;      currentpicture := nullpicture;
45      clip s.p to bbox(pict);      clip s.p to bbox(pict);
46      addto s.p also pict;      addto s.p also pict;
47      addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt;      addto s.p doublepath bbox(pict) withpen pencircle scaled 4pt;
48            
49      s.psol := nullpicture;      s.psol := nullpicture;
50      addto s.psol contour bbox(pict) withcolor (.95, .95, .95);      addto s.psol contour bbox(pict) withcolor (.95, .95, .95);
51      addto s.psol also pict;      addto s.psol also pict;
52      addto s.psol doublepath bbox(s.p) withpen pencircle scaled 4pt;      addto s.psol doublepath bbox(pict) withpen pencircle scaled 4pt;
53    
54      pair s.size;      pair s.size;
55      s.size = (urcorner pict) - (llcorner pict);      s.size = (urcorner pict) - (llcorner pict);
# Line 147  pair p; Line 148  pair p;
148    
149    
150  for i = -100 step 30 until 800 :  for i = -100 step 30 until 800 :
151      p := (i,0);      p := (i,-50);
152      fill p -- p+(100,800) -- p+(125,800) -- p+(15,0) -- cycle;      fill p -- p+(100,800) -- p+(125,800) -- p+(15,0) -- cycle;
153  endfor;  endfor;
154    

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

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