💾 Archived View for heavysquare.com › visuals › 0136.mp.txt captured on 2022-01-08 at 14:11:57.

View Raw

More Information

⬅️ Previous capture (2021-12-03)

-=-=-=-=-=-=-

% $ 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