445 |
jitterpt(point length(p) of p, pta) |
jitterpt(point length(p) of p, pta) |
446 |
enddef; |
enddef; |
447 |
|
|
448 |
vardef drawRoughEdge(expr p, q, scale) = |
vardef drawRoughEdge(expr p, 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); |
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;; |
|
clip currentpicture to q;; |
|
478 |
|
|
479 |
enddef; |
enddef; |
480 |
|
|