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); |
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 |
|
|