/[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.8 by humppake, Fri May 23 08:35:54 2003 UTC revision 1.9 by humppake, Fri May 23 13:41:40 2003 UTC
# Line 445  vardef jitterpath(expr p, npt, pta) = Line 445  vardef jitterpath(expr p, npt, pta) =
445      jitterpt(point length(p) of p, pta)      jitterpt(point length(p) of p, pta)
446  enddef;  enddef;
447    
448  vardef drawRoughEdge(expr p, scale) =  vardef drawRoughEdge(expr p, q, scale) =
449      save c, hor, ver, np, j, astart, athrough, aend, na;      save c, hor, ver, np, j, astart, athrough, aend, na;
450      pair c;      pair c;
451      c = center(p);      c = center(p);
# Line 474  vardef drawRoughEdge(expr p, scale) = Line 474  vardef drawRoughEdge(expr p, scale) =
474      np := jitterpath(np, round(10+uniformdeviate(10)), .125 / scale * j);      np := jitterpath(np, round(10+uniformdeviate(10)), .125 / scale * j);
475      np := jitterpath(np, round(40+uniformdeviate(30)), .025 / scale * j);      np := jitterpath(np, round(40+uniformdeviate(30)), .025 / scale * j);
476    
477      draw np withpen pencircle scaled (4pt/scale) xscaled .4 rotated -37;;      draw np withpen pencircle scaled (4pt/scale) xscaled .4 rotated -37;
478        clip currentpicture to q;;
479            
480  enddef;  enddef;
481    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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