1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
\documentclass{standalone}
\usepackage{luamplib}
\begin{document}
\begin{mplibcode}
path h[], snake;
h0 = for i = 1 upto 6: dir 60i -- endfor cycle;
for i = 1 upto 6:
h[i] = h0 shifted (point 0 of h0 - point 2 of h0) rotated 60i;
endfor
snake = point 0 of h3 -- point 1 of h2 -- point 2 of h1
-- point 1 of h6 -- point 2 of h5 -- point 3 of h0
-- point 1 of h4 -- point 0 of h5;
snake := snake shifted - point 0 of h3;
snake := snake rotated - angle (point 0 of h5 - point 0 of h3);
snake := snake scaled (1 / length (point 0 of h5 - point 0 of h3));
vardef hexon(expr a, b) =
pair c, m;
c = b rotatedaround(a, 60);
m = 2/3[c, 1/2[a, b]];
a -- a rotatedaround(m, 60) --
b -- b rotatedaround(m, 60) --
c -- c rotatedaround(m, 60) -- cycle
enddef;
path w;
w = origin -- right;
w := w -- point 0 of w rotatedabout(point 1 of w, 120);
w := w -- point 1 of w rotatedabout(point 2 of w, -120);
w := w rotated - angle (point 3 of w - point 0 of w);
w := w scaled (1/abs (point 3 of w - point 0 of w));
pair a, b;
a = 144 down rotated -60;
b = 144 down rotated +60;
numeric n; n = 4;
path boundary;
boundary = hexon(a, b);
for i = 1 upto n:
boundary := for t = 1 upto length boundary:
subpath (0, 2) of w
zscaled (point t of boundary - point t-1 of boundary)
shifted point t-1 of boundary -- endfor cycle;
endfor
vardef rattle(expr level, a, b) =
if level > 0:
save s; path s; s = snake zscaled (b-a) shifted a;
reverse rattle(level - 1, point 1 of s, a) &
rattle(level - 1, point 1 of s, point 2 of s) &
rattle(level - 1, point 2 of s, point 3 of s) &
rattle(level - 1, point 3 of s, point 4 of s) &
reverse rattle(level - 1, point 5 of s, point 4 of s) &
reverse rattle(level - 1, point 6 of s, point 5 of s) &
rattle(level - 1, point 6 of s, b)
else:
a -- b
fi
enddef;
beginfig(1);
path s; s = rattle(n, a, b);
fill a + (-40, 0) -- s -- b + (40, 0) --
b + (40, 224) -- a + (-40, 224) -- cycle withcolor 3/4[1/4 blue, white];
endfig;
\end{mplibcode}
\end{document}
|