/[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.4 by humppake, Wed May 21 09:32:56 2003 UTC revision 1.5 by humppake, Wed May 21 10:27:52 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) =  vardef drawRoughEdge(expr p, q) =
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 475  vardef drawRoughEdge(expr p) = Line 475  vardef drawRoughEdge(expr p) =
475      np := jitterpath(np, round(40+uniformdeviate(30)), .05 * j);      np := jitterpath(np, round(40+uniformdeviate(30)), .05 * j);
476    
477      draw np withpen pencircle scaled 8pt xscaled .4 rotated -37;      draw np withpen pencircle scaled 8pt xscaled .4 rotated -37;
478        clip currentpicture to q;;
479            
480  enddef;  enddef;
481    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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