/[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.10 by tjl, Wed Mar 19 13:07:19 2003 UTC revision 1.11 by tjl, Wed Mar 19 13:11:03 2003 UTC
# Line 1  Line 1 
1  defaultfont := "phvr8r";  defaultfont := "phvr8r";
2    
3  boolean colors;  boolean colors;
4  colors = false;  colors = true;
5    
6  verbatimtex  verbatimtex
7  \documentclass{article}  \documentclass{article}
# Line 24  Excepteur sint occaecat cupidatat non pr Line 24  Excepteur sint occaecat cupidatat non pr
24  \font\foofontii = cmcss12 scaled 1000  \font\foofontii = cmcss12 scaled 1000
25  etex;  etex;
26    
27    boolean bgs;
28    bgs = true;
29    
30    
31  def doc(suffix s)(expr col, pict) =  def doc(suffix s)(expr col, pict) =
32      picture s.p;      picture s.p;
33        picture s.psol;
34      s.p = nullpicture;      s.p = nullpicture;
35      addto s.p contour bbox(pict) withcolor white;      addto s.p contour bbox(pict) withcolor white;
36      addto s.p also currentpicture      addto s.p also currentpicture
# Line 42  def doc(suffix s)(expr col, pict) = Line 44  def doc(suffix s)(expr col, pict) =
44      clip s.p to bbox(pict);      clip s.p to bbox(pict);
45      addto s.p also pict;      addto s.p also pict;
46      addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt;      addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt;
47        
48        s.psol := nullpicture;
49        addto s.psol contour bbox(pict) withcolor (.95, .95, .95);
50        addto s.psol also pict;
51        addto s.psol doublepath bbox(s.p) withpen pencircle scaled 4pt;
52    
53      pair s.size;      pair s.size;
54      s.size = (urcorner pict) - (llcorner pict);      s.size = (urcorner pict) - (llcorner pict);
55      pair s.loc;      pair s.loc;
56      transform s.tr;      transform s.tr;
57  enddef;  enddef;
58    
59    
60  vardef docpicraw(suffix s)(expr locp) =  vardef docpicraw(suffix s)(expr locp) =
61      s.tr := locp;      s.tr := locp;
62      s.loc := (0,0) transformed locp;      s.loc := (0,0) transformed locp;
63      (s.p transformed locp)      (if bgs: s.p else: s.psol fi transformed locp)
64  enddef;  enddef;
65    
66  def docpic(suffix s)(expr locp) =  def docpic(suffix s)(expr locp) =
# Line 416  def frames = Line 425  def frames =
425    
426  enddef;  enddef;
427    
428    bgs := false;
429  frames;  frames;
430    bgs := true;
431  frames;  frames;
432    
433  verbatimtex  verbatimtex

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

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