C = (0.6116765810682531, 0.7875525534517406)
D = (3.134895211983233, 0.7620654965738115)
A = Rotate(D, 60°, C)
D' = Rotate(D, 120°, C)
f = Segment(A, C)
g = Segment(A, D)
D'_{1} = Rotate(D, 60°, A)
F = Rotate(D'_{1}, 60°, A)
F' = Rotate(F, 60°, A)
h = Segment(D, D'_{1})
i = Segment(D'_{1}, F)
j = Segment(F, F')
k = Segment(F', D')
l = Segment(D', C)
G: (A + C + D) / 3
c = CircleArc(G, D, A)
G' = Mirror(G, f)
p = CircleArc(G', A, D')
q1, d', a_1, d_1, c_2 = Polygon(D', A, D, C)
l1 = Sequence(Rotate[D, (k * 6°), G], k, 0, 19)
l2 = Sequence(Rotate[A, (k * 6°), G'], k, 0, 20)
poly1 = Polygon(Append[Join[{l1, l2}], C])
B = PointIn(poly1)
E = Rotate(B, 60°, A)
poly2, a, b, c_1, d, e = Polygon(A, B, C, D, E)
q = CircleArc(G', A, D')
r = CircleArc(G, D, A)
E' = Rotate(E, 60°, A)
E'' = Rotate(E', 60°, A)
E''' = Rotate(E'', 60°, A)
H = Rotate(E''', 60°, A)
m = Segment(D', H)
n = Segment(H, A)
s = Segment(A, E''')
t = Segment(E''', F')
f_1 = Segment(A, E'')
g_1 = Segment(E'', F)
h_1 = Segment(A, E')
i_1 = Segment(E', D'_{1})