A = (0.68, -2.2800000000000047)
B = (3.3200000000000003, -2.4)
c1 = Circle(A, B)
A'_1 = Mirror(A, B)
r1 = LineBisector(A, A'_1)
d = Circle(B, A)
C = Intersect(c1, d, 1.0)
r2 = Line(A, C)
D = Intersect(r1, r2)
E: (A + A'_1 + D) / 3.0
A'_2 = Mirror(A, E)
e = Ray(E, A'_2)
G = Point(e)
A'_3 = Rotate(A, 119.99999999999999°, G)
A' = Rotate(A, 240.00000000000003°, G)
r = Segment(A, B)
c2 = Circle(A', r)
c3 = Circle(A'_3, r)
d1: c1
d2: c2
d3: c3
lista0: {c1, c2, c3}
reflejos = 0 (slider from 0 to 5, step 1)
lista11 = Sequence(InvierteCircunferencia[Element[lista0, s], c1], s, 2.0, 3.0)
lista12 = Sequence(InvierteCircunferencia[Element[lista0, s], c2], s, 1.0, 3.0, 2.0)
lista13 = Sequence(InvierteCircunferencia[Element[lista0, s], c3], s, 1.0, 2.0)
lista21 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista1" + (s)], t], c1], t, 1.0, 2.0], s, 2.0, 3.0])
lista22 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista1" + (s)], t], c2], t, 1.0, 2.0], s, 1.0, 3.0, 2.0])
lista23 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista1" + (s)], t], c3], t, 1.0, 2.0], s, 1.0, 2.0])
lista31 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista2" + (s)], t], c1], t, 1.0, 4.0], s, 2.0, 3.0])
lista32 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista2" + (s)], t], c2], t, 1.0, 4.0], s, 1.0, 3.0, 2.0])
lista33 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista2" + (s)], t], c3], t, 1.0, 4.0], s, 1.0, 2.0])
lista41 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista3" + (s)], t], c1], t, 1.0, 8.0], s, 2.0, 3.0])
lista42 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista3" + (s)], t], c2], t, 1.0, 8.0], s, 1.0, 3.0, 2.0])
lista43 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista3" + (s)], t], c3], t, 1.0, 8.0], s, 1.0, 2.0])
lista51 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista4" + (s)], t], c1], t, 1.0, 16.0], s, 2.0, 3.0])
lista52 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista4" + (s)], t], c2], t, 1.0, 16.0], s, 1.0, 3.0, 2.0])
lista53 = Join(Sequence[Sequence[InvierteCircunferencia[Element[Object["lista4" + (s)], t], c3], t, 1.0, 16.0], s, 1.0, 2.0])

Tool: Invierte Circunferencia (command InvierteCircunferencia)
Circunferencia, Circunferencia espejo
Input: c, d
Output: e

C = Point(c)
D = Center(c)
C'_1 = Rotate(C, 119.99999999999999°, D)
C'_2 = Rotate(C, 240.00000000000003°, D)
C' = Mirror(C, d)
G = Mirror(C'_1, d)
H = Mirror(C'_2, d)
e = Circle(C', G, H)