Inspirationsquelle war das Muster aus einem Applet von Noemi354 /
A source of inspiration was the pattern in an applet by Noemi354 
http://www.geogebratube.org/material/show/id/18515

\copyright\; Roman\; Chijner\;,\;Heidelberg\;2013

Zoom = 2.5 (slider from 0 to 15, step 0.1)
A = (0, 0)
C = Point(Circle[A, Zoom])
l1 = Sequence(Rotate[C, π / 3 * i, A], i, 0, 6)
V00 = Polygon(l1)
l2 = Sequence(Polygon[Element[l1, i + 1], Element[l1, i], 4], i, 1, 6)
C1: C + (Zoom; Angle[C] + 30°)
l11 = Sequence(Rotate[C1, π / 6 * i, A], i, 0, 12)
l26 = Sequence(Polygon[Element[l11, i + 1], Element[l11, i], 6], i, 1, 12, 2)
l23 = Sequence(Polygon[Element[l11, i + 1], Element[l11, i + 2], 3], i, 1, 12, 2)
l234 = Sequence(Polygon[Element[l11, i + 2], Element[l11, i + 1], 4], i, 1, 12, 2)
C2: C1 + (Zoom; Angle[C])
l111 = Sequence(Rotate[C2, π / 3 * i, A], i, 0, 5)
A1: (Zoom * (sqrt(3) + 1); Angle[C] + 30°)
l112 = Sequence(Rotate[A1, π / 3 * i, A], i, 0, 5)
l23' = Sequence(Translate[l23, Element[l112, i]], i, 1, 6)
l26' = Sequence(Translate[l26, Element[l112, i]], i, 1, 6)
l234' = Sequence(Translate[l234, Element[l112, i]], i, 1, 6)
A2: (Zoom * 2 * (sqrt(3) + 1); Angle[C] + 30°)
l113 = Sequence(Rotate[A2, π / 3 * i, A], i, 0, 5)
l21' = Sequence(Translate[l2, Element[l113, i]], i, 1, 6)
l231' = Sequence(Translate[l23, Element[l113, i]], i, 1, 6)
l2341' = Sequence(Translate[l234, Element[l113, i]], i, 1, 6)
l261' = Sequence(Translate[l26, Element[l113, i]], i, 1, 6)
ZZ: {Element[Element[l21', 1], 3], Element[Element[l21', 1], 5], Element[Element[l21', 2], 4], Element[Element[l21', 2], 6], Element[Element[l21', 3], 1], Element[Element[l21', 3], 5], Element[Element[l21', 4], 2], Element[Element[l21', 4], 6], Element[Element[l21', 5], 1], Element[Element[l21', 5], 3], Element[Element[l21', 6], 2], Element[Element[l21', 6], 4]}
C2' = Mirror(C2, Line[A2, Element[l113, 6]])
C2'' = Mirror(C2', Line[A, C])
Liste1 = Sequence(Rotate[Polygon[C2'', C2', 3], π / 3 * i, A], i, 0, 5)
A1' = Mirror(A1, Line[A2, Element[l113, 6]])
Liste2 = Sequence(Rotate[{Element[Element[l2341', 1], 6], Element[Element[l2341', 1], 1], Polygon[C2', C2'', 4]}, π / 3 * i, A], i, 0, 5)