blob: eac172d4f3e41dcaebb65893f038f4b64e07fd11 (
plain)
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
|
\documentclass{standalone}
\usepackage{luamplib}
\begin{document}
\begin{mplibcode}
beginfig(1);
numeric s; s = 13;
path atom;
atom = origin
-- (2s,0) rotated -30 -- (2s,0) rotated -30 + (0,s)
-- ( s,0) rotated 30 -- ( s,0) rotated 30 + (0,s)
-- (0,2s) -- cycle;
picture p[];
for i=0 upto 2:
p[i] = image(
fill atom rotated -120i withcolor (7/8 - 1/8i) ;
draw atom rotated -120i;
);
endfor
n = 13;
for i=-n upto n:
for j=-n upto n:
forsuffixes $=0,1,2:
draw p$ shifted ((3i*s,0) rotated -30
+ (0,floor(1/2i)*3s + 3j*s));
endfor
endfor
endfor
clip currentpicture to (unitsquare shifted -(1/2,1/2)
xscaled 55.425s yscaled 30s);
endfig;
\end{mplibcode}
\end{document}
|