A = (9.79788135477366, 8.067604199128048)
B = (4.940183193946634, 1.680114164343554)
a = Segment(A, B)
b = OrthogonalLine(A, a)
C = Point(b)
d = Segment(C, B)
M = Point(d)
h = OrthogonalLine(M, a)
K = Intersect(a, h)
p = Segment(A, K)
c = Segment(C, A)
g = OrthogonalLine(M, c)
L = Intersect(c, g)
n = Segment(A, L)
k: If[n < p, n, p] / 7
D = Dilate(L, k / n, A)
e = Circle(A, D)
I = Intersect(e, a)
f = Segment(I, D)
F = Mirror(A, f)
P, a_1, d_1, f_1, e_1 = Polygon(A, D, F, I)
i = Segment(K, M)
j = Segment(M, L)
l = LineBisector(A, K)
A' = Mirror(A, l)
D' = Mirror(D, l)
F' = Mirror(F, l)
I' = Mirror(I, l)
P', a', d', f', i' = Polygon(A', D', F', I')
m = LineBisector(L, A)
A'_1 = Mirror(A, m)
D'_1 = Mirror(D, m)
F'_1 = Mirror(F, m)
I'_1 = Mirror(I, m)
P'_1, a'_1, d'_1, f'_1, i'_1 = Polygon(A'_1, D'_1, F'_1, I'_1)
q = Segment(K, L)
H = Rotate(L, 15*°, K)
J = Dilate(H, 0.1, K)
r = Segment(J, K)
J' = Mirror(J, q)
E' = Mirror(K, q)
s = Segment(J', E')
K_1 = Midpoint(K, L)
J'' = Mirror(J', K_1)
E'' = Mirror(E', K_1)
t = Segment(J'', E'')
J''' = Mirror(J'', q)
E''' = Mirror(E'', q)
b_1 = Segment(J''', E''')