info/drawing-with-metapost/src/random-shapes.mp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

\documentclass[border=5mm]{standalone}
\usepackage{luamplib}
\begin{document}
\mplibtextextlabel{enable}
\begin{mplibcode}
beginfig(1);
  numeric desired_length, n, s;
  desired_length = 180; n = 30; s = 80;
  for r=0 upto 8:
    path shape;
    shape = for i=1 upto n: 
      (s + r * normaldeviate, 0) rotated (360/n*i) ..
    endfor cycle;  

    shape := shape scaled (desired_length/arclength shape);

    draw shape shifted (r*s, 0) withcolor (r/8)[black,red];
    label(decimal r, (r*s, 0));

  endfor
endfig;
\end{mplibcode}
\end{document}