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