[Gzz-commits] navidoc/navidoc/mp uml.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/navidoc
Module name:    navidoc
Changes by:     Tuomas J. Lukka <address@hidden>        03/05/21 07:39:36

Modified files:
        navidoc/mp     : uml.mp 

Log message:
        usescale

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/navidoc/navidoc/navidoc/mp/uml.mp.diff?tr1=1.6&tr2=1.7&r1=text&r2=text

Patches:
Index: navidoc/navidoc/mp/uml.mp
diff -u navidoc/navidoc/mp/uml.mp:1.6 navidoc/navidoc/mp/uml.mp:1.7
--- navidoc/navidoc/mp/uml.mp:1.6       Wed May 21 07:35:56 2003
+++ navidoc/navidoc/mp/uml.mp   Wed May 21 07:39:36 2003
@@ -19,7 +19,7 @@
 % MA  02111-1307  USA
 % 
 
-% $Id: uml.mp,v 1.6 2003/05/21 11:35:56 humppake Exp $
+% $Id: uml.mp,v 1.7 2003/05/21 11:39:36 tjl Exp $
 
 %
 % Written by Tuomas Lukka
@@ -471,10 +471,10 @@
     np := np xscaled(hor) yscaled(ver)  shifted(c);
 
     j = .15 * abs(hor);
-    np := jitterpath(np, round(10+uniformdeviate(10)), .25 * j);
-    np := jitterpath(np, round(40+uniformdeviate(30)), .05 * j);
+    np := jitterpath(np, round(10+uniformdeviate(10)), .125 / scale * j);
+    np := jitterpath(np, round(40+uniformdeviate(30)), .025 / scale * j);
 
-    draw np withpen pencircle scaled 8pt xscaled .4 rotated -37;
+    draw np withpen pencircle scaled (4pt/scale) xscaled .4 rotated -37;
     clip currentpicture to q;;
     
 enddef;