blob: c0bbc2ec1ab3983ddb4d14177c574edec87a6fa5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
\documentclass[border=5mm]{standalone}
\usepackage{luamplib}
\begin{document}
\mplibtextextlabel{enable}
\begin{mplibcode}
vardef make_gasket(expr t, s, limit) =
if length (point 1 of t - point 0 of t) < limit:
fill t;
else:
save little_t; path little_t; little_t = t scaled s;
for i=1 upto length t:
make_gasket(little_t shifted (point i of t - point i of little_t), s, limit);
endfor
fi
enddef;
beginfig(1);
path T; T = for i = 1 upto 3: 220 up rotated (120i) -- endfor cycle;
make_gasket(T, 1/2, 20);
endfig;
\end{mplibcode}
\end{document}
|