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

Flower\; of\; Life\;/\;Blume\:\; des\; Lebens

Davidstern

A = (-0.8438330742443994, -1.5762849029354178)
Zoom = 3.5 (slider from 0 to 25, step 0.1)
f0 = Circle(A, 3 * Zoom)
n = 5 (slider from 1 to 25, step 1)
l2 = Sequence(A + (Zoom; π / 3 * (0.5 + i)), i, 0, 6)
l22 = Sequence({CircleArc[Element[l2, k1], Element[l2, k1 + 1], A], CircleArc[Element[l2, k1 + 2], A, Element[l2, k1 + 1]]}, k1, 0, 6)
ll7c = Sequence(Sequence[Sequence[Translate[Translate[Element[l22, k1 + 1], (Element[l2, k1 + 1] - A) * j], (Element[l2, k1] - A) * i], j, -3 + If[i > 0, 0, -i], 2 + If[i ≤ 0, 0, -i]], i, -3, 3], k1, 1, 3)
B = Point(f0)
C = Point(f0)
D = Point(ll7c)
Vieleck1, d, b, c_1 = Polygon(B, C, D)
ll095 = Sequence(Sequence[Sequence[Element[Element[Element[ll7c, k], l], m], m, If[l ≟ 4, 1, 2], If[l < 4, l + 1, If[l ≟ 4, 6, If[l ≟ 5, 4, 3]]]], l, 2, 6], k, 1, 3)
F = Point(f0)
G = Point(f0)
E = Point(f0)
Vieleck2, e, f_1, g = Polygon(F, G, E)
ll8c = Sequence(Sequence[Sequence[Translate[Translate[Element[l22, k1 + 1], (Element[l2, k1 + 1] - A) * j], (Element[l2, k1] - A) * i], j, -n + If[i > 0, 0, -i], n - 1 + If[i ≤ 0, 0, -i]], i, -n, n], k1, 1, 3)
f1 = Circle(A, n * Zoom)
a: ((x - x(A))^(2) + (y - y(A))^(2) < (n * Zoom)^(2)) ∧ ((x - x(A))^(2) + (y - y(A))^(2) > 9 * Zoom^(2))
c = true