/[navidoc]/navidoc/navidoc/mp/uml.mp
ViewVC logotype

Diff of /navidoc/navidoc/mp/uml.mp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by humppake, Wed May 21 11:35:56 2003 UTC revision 1.7 by tjl, Wed May 21 11:39:36 2003 UTC
# Line 471  vardef drawRoughEdge(expr p, q, scale) = Line 471  vardef drawRoughEdge(expr p, q, scale) =
471      np := np xscaled(hor) yscaled(ver)  shifted(c);      np := np xscaled(hor) yscaled(ver)  shifted(c);
472    
473      j = .15 * abs(hor);      j = .15 * abs(hor);
474      np := jitterpath(np, round(10+uniformdeviate(10)), .25 * j);      np := jitterpath(np, round(10+uniformdeviate(10)), .125 / scale * j);
475      np := jitterpath(np, round(40+uniformdeviate(30)), .05 * j);      np := jitterpath(np, round(40+uniformdeviate(30)), .025 / scale * j);
476    
477      draw np withpen pencircle scaled 8pt xscaled .4 rotated -37;      draw np withpen pencircle scaled (4pt/scale) xscaled .4 rotated -37;
478      clip currentpicture to q;;      clip currentpicture to q;;
479            
480  enddef;  enddef;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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