[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 10:20:42

Modified files:
        Paper          : buoyoing.mp 

Log message:
        Fix  bbox edges

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

Patches:
Index: manuscripts/Paper/buoyoing.mp
diff -u manuscripts/Paper/buoyoing.mp:1.11 manuscripts/Paper/buoyoing.mp:1.12
--- manuscripts/Paper/buoyoing.mp:1.11  Wed Mar 19 08:11:03 2003
+++ manuscripts/Paper/buoyoing.mp       Wed Mar 19 10:20:42 2003
@@ -28,7 +28,8 @@
 bgs = true;
 
 
-def doc(suffix s)(expr col, pict) =
+vardef doc(suffix s)(expr col, pict) =
+    interim bboxmargin := 10pt;
     picture s.p;
     picture s.psol;
     s.p = nullpicture;
@@ -43,12 +44,12 @@
     currentpicture := nullpicture;
     clip s.p to bbox(pict);
     addto s.p also pict;
-    addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt;
+    addto s.p doublepath bbox(pict) 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;
+    addto s.psol doublepath bbox(pict) withpen pencircle scaled 4pt;
 
     pair s.size;
     s.size = (urcorner pict) - (llcorner pict);
@@ -147,7 +148,7 @@
 
 
 for i = -100 step 30 until 800 :
-    p := (i,0);
+    p := (i,-50);
     fill p -- p+(100,800) -- p+(125,800) -- p+(15,0) -- cycle;
 endfor;