A = (3.8666666666666667, 1)
C = Point(Circle[A, 8.0])
a = Segment(A, C)
B = Dilate(Rotate[C, 90.0*°, A], 0.75, A)
P, b, c, a_1 = Polygon(B, A, C)
G = Rotate(A, 90.0*°, C)
F = Rotate(C, 90.0*°, G)
Q, a_2, c_1, g, f = Polygon(A, C, G, F)
D = Rotate(B, 90.0*°, A)
E = Rotate(A, 90.0*°, D)
R, e, b_1, a_3, d = Polygon(E, B, A, D)
I = Rotate(C, 90.0*°, B)
H = Rotate(B, 90.0*°, I)
S, b_2, i, h, c_2 = Polygon(B, I, H, C)
M = Intersect(Line[I, B], Line[D, A])
N = Intersect(Line[H, C], Line[F, G])
k = Segment(C, N)
l = OrthogonalLine(N, k)
J = Intersect(f, l)
m = Segment(N, J)
T, e_1, b_3, m_1, d_1 = Polygon(E, B, M, D)
U, a_4, m_2, b_4 = Polygon(M, B, A)
V, n, j_1, f_1 = Polygon(J, F, N)
W, c_3, n_1, g_1 = Polygon(N, G, C)
Y, a_5, c_4, n_2, j_2 = Polygon(A, C, N, J)
o = 90 (slider from 0 to 90, step 1)
A' = Rotate(A, o°, B)
C' = Rotate(C, o°, B)
N' = Rotate(N, o°, B)
J' = Rotate(J, o°, B)
Y1, a', c', n', j' = Polygon(A', C', N', J')
p = 1 (slider from 0 to 1, step 0.02)
W1, q, r, s = Polygon(Translate[N, p * Vector[C, I]], Translate[G, p * Vector[C, I]], Translate[C, p * Vector[C, I]])
t = 180 (slider from 0 to 180, step 2)
K = Midpoint(C, B)
M' = Rotate(M, t°, K)
B' = Rotate(B, t°, K)
A'_1 = Rotate(A, t°, K)
U1, a'_1, m', b' = Polygon(M', B', A'_1)
u = 90 (slider from 0 to 90, step 1)
h_1 = LineBisector(a_1)
i_1 = Segment(E, A'_1)
k_1 = LineBisector(i_1)
L = Point(h_1)
E' = Rotate(E, -(u)°, L)
B'_1 = Rotate(B, -(u)°, L)
M'_1 = Rotate(M, -(u)°, L)
D' = Rotate(D, -(u)°, L)
T1, e', b'_1, m'_1, d' = Polygon(E', B'_1, M'_1, D')
l_1 = Segment(B, N)
p_1 = LineBisector(l_1)
q_1 = Segment(M'_1, J)
r_1 = LineBisector(q_1)
O = Intersect(r_1, p_1)
v = 180 (slider from 0 to 180, step 2)
J'_1 = Rotate(J, v°, O)
F' = Rotate(F, v°, O)
N'_1 = Rotate(N, v°, O)
V1, n'_1, j'_1, f' = Polygon(J'_1, F', N'_1)
s_1 = Segment(E, D)
t_1 = Segment(D, A)
d_2 = Segment(A, B)
j = Segment(A, C)
e_2 = Segment(C, G)
f_2 = Segment(G, F)
g_2 = Segment(F, A)
h_2 = Segment(E, B)
i_2 = Segment(B, I)
k_2 = Segment(I, H)
l_2 = Segment(H, C)
p_2 = Segment(C, B)
q_2 = Segment(C, N)
r_2 = Segment(N, J)
s_2 = Segment(B, M)