summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/ifs-heigh.mp
blob: 6ff5b94df05a8af94858ed01e47e730d1fd84bbe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
\documentclass{standalone}
\usepackage{luamplib}
\begin{document}
\begin{mplibcode}
beginfig(1);
path p; p = origin -- right rotated 30;
numeric n;
for i=1 upto 12:
    n := length p;
    p := p rotated 45;
    p := p & reverse p rotatedabout(point n of p, 90);
endfor
draw p scaled (384 / xpart (urcorner p - llcorner p))
    withcolor (.2, .2, .7);
endfig;
\end{mplibcode}
\end{document}