reflect

Q = (-2, 1)
P = (-2, 2)
P' = Rotate(P, (-(108°)), Q)
l3 = Sequence(Rotate[P', ((9 * k))°, P], k, 1, 8)
n = 5 (slider from 3 to 12, step 1)
A = (6.681732488383056, 1.4632408612044912)
B = (6.681732488383056, 0.46324086120449115)
poly1, f, g, h, i, j, k, l, m, p, q, r, s, C, D, E, F, G, H, I, J, K, L = Polygon(A, B, n)
l1: {A, B, C, D, E, F, G, H, I, J, K, L}
l2 = Sequence(Segment[A, l1(k)], k, 1, Length[l1])
c = Circle(A, B)
t = Segment(A, C)
a = Segment(A, D)
M = Intersect(c, t, 1)
N = Intersect(c, a)
b = Segment(B, M)
d = Segment(M, N)
e = Line(C, b)
f_1 = Line(A, B)
O = Intersect(e, f_1)
g_1 = Segment(P, Q)
Q' = Rotate(Q, 108°, P)
α = Angle(Q, P, Q')
β = Angle(P', Q, P)
h_1 = Segment(P, P')
i_1 = Segment(Q, P')
c_1 = Circle(P, P')
P'_1 = Rotate(P, 108°, Q')
γ = Angle(P, Q', P'_1)
R = Point(l3)
P'_2 = Rotate(P, (-(36°)), R)
δ = Angle(P, R, P'_2)
j_1 = Segment(P, R)
d_1 = Circle(R, 1)
k_1 = Line(R, P'_2)
S = Intersect(d_1, k_1, 2)
l_1 = Segment(P, S)
poly2, q_1, p_1, s_1, r_1, p' = Polygon(Q, P, S, R, P')
m_1 = Segment(Q, S)
n_1 = Segment(P', S)
t_1 = Segment(R, Q)
ε = Angle(Q, P, P')
ζ = Angle(P', P, R)
o: ε / ζ
e_1 = Circle(P, Q, P')
u: 1 / o
text1: "" + (LaTeX[u]) + " : 1"
η = 4.39822971502571 rad (slider from 0 to 252°, step 1°)
t1, s_2, p_2, r_2 = Polygon(P, R, S)
P'_3 = Rotate(P, η, P)
R' = Rotate(R, η, P)
S' = Rotate(S, η, P)
t1', s', p'_3, r' = Polygon(P'_3, R', S')
a_1 = Segment(P', R)
slide1 = 0 (slider from 0 to 1, step 0.1)
T = Midpoint(R, P)
v = Vector(R, T)
U = Translate(P'_3, Vector[(slide1 * v)])
R'' = Translate(R', Vector[(slide1 * v)])
S'' = Translate(S', Vector[(slide1 * v)])
t1'', s'', u_1, r'' = Polygon(U, R'', S'')
P'_4 = Rotate(P, (-η), R)
R'_1 = Rotate(R, (-η), R)
S'_1 = Rotate(S, (-η), R)
t1'_1, s'_1, p'_4, r'_1 = Polygon(P'_4, R'_1, S'_1)
Q'_1 = Mirror(Q, i_1)
S'_2 = Mirror(S, i_1)
P'' = Mirror(P', i_1)
S'_3 = Mirror(S, i_1)
g_2 = Segment(Q, S)
h_2 = Segment(S, P')
c_2 = Circle(R', P)
d_2 = Circle(P'_4, R)
b_1 = Segment(Q, S'_2)
f_2 = Segment(P', S'_2)
w = true