💾 Archived View for heavysquare.com › visuals › 0136.mp.txt captured on 2021-12-03 at 14:04:38.
-=-=-=-=-=-=-
% $ mpost -v
% MetaPost 1.802 (TeX Live 2013)
primarydef dev perturbed pt =
pt+(dev-(uniformdeviate 2dev),
dev-(uniformdeviate 2dev))
enddef;
primarydef dev pperturbed pat =
dev perturbed (point 0 of pat) ..
controls (postcontrol 0 of pat) and
for i=1 upto (length pat) - 1:
hide (pair offset; offset := dev perturbed (0,0);)
(offset + (precontrol i of pat)) ..
offset + (point i of pat) ..
controls (offset + (postcontrol i of pat)) and
endfor
(precontrol (length pat) of pat) ..
dev perturbed (point (length pat) of pat)
enddef;
u=13mm;
randomseed:=42;
beginfig(1)
draw unitsquare scaled 17u shifted (-8.5u,-8.5u) withcolor white;
for j=0 upto 0:
for i=5 upto 15:
draw (.03u*i) pperturbed (fullcircle scaled (u*i) rotated ((uniformdeviate 360)) shifted (j*10u,0)) ;
endfor
endfor
endfig;
end