[Gzz-commits] manuscripts/Paper buoyoing.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/gzz
Module name:    manuscripts
Changes by:     Tuomas J. Lukka <address@hidden>        03/03/19 08:11:03

Modified files:
        Paper          : buoyoing.mp 

Log message:
        colors,versions

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

Patches:
Index: manuscripts/Paper/buoyoing.mp
diff -u manuscripts/Paper/buoyoing.mp:1.10 manuscripts/Paper/buoyoing.mp:1.11
--- manuscripts/Paper/buoyoing.mp:1.10  Wed Mar 19 08:07:19 2003
+++ manuscripts/Paper/buoyoing.mp       Wed Mar 19 08:11:03 2003
@@ -1,7 +1,7 @@
 defaultfont := "phvr8r";
 
 boolean colors;
-colors = false;
+colors = true;
 
 verbatimtex
 \documentclass{article}
@@ -24,11 +24,13 @@
 \font\foofontii = cmcss12 scaled 1000 
 etex;
 
-
+boolean bgs;
+bgs = true;
 
 
 def doc(suffix s)(expr col, pict) =
     picture s.p;
+    picture s.psol;
     s.p = nullpicture;
     addto s.p contour bbox(pict) withcolor white;
     addto s.p also currentpicture 
@@ -42,16 +44,23 @@
     clip s.p to bbox(pict);
     addto s.p also pict;
     addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt;
+    
+    s.psol := nullpicture;
+    addto s.psol contour bbox(pict) withcolor (.95, .95, .95);
+    addto s.psol also pict;
+    addto s.psol doublepath bbox(s.p) withpen pencircle scaled 4pt;
+
     pair s.size;
     s.size = (urcorner pict) - (llcorner pict);
     pair s.loc;
     transform s.tr;
 enddef;
 
+
 vardef docpicraw(suffix s)(expr locp) =
     s.tr := locp;
     s.loc := (0,0) transformed locp;
-    (s.p transformed locp)
+    (if bgs: s.p else: s.psol fi transformed locp)
 enddef;
 
 def docpic(suffix s)(expr locp) =
@@ -416,7 +425,9 @@
 
 enddef;
 
+bgs := false;
 frames;
+bgs := true;
 frames;
 
 verbatimtex