1

2

H

A = (3.52, -0.96)
B = (13.633377279623263, -0.96)
a = Segment(A, B)
C = Midpoint(a)
c = Circle(C, B)
b = OrthogonalLine(C, a)
d = Circle(B, C)
D = Intersect(c, d, 1)
E = Intersect(c, d, 2)
e = Segment(D, E)
F = Intersect(a, e)
G = Intersect(c, b, 2)
H_1 = (4.88, -2.08)
f = CircleArc(F, G, H_1)
I = Intersect(f, a, 1)
g = Circle(G, I)
L = Point(g)
A_1 = Point(g)
q_1 = CircleArc(G, L, A_1)
J = Intersect(c, g, 1)
K = Intersect(c, g, 2)
h = Circle(J, Segment[J, G])
k = Circle(K, Radius[h])
R_2 = Intersect(c, h, 1)
M = Intersect(c, k, 2)
i = Segment(G, J)
j = Segment(J, R_2)
l = Segment(R_2, M)
m = Segment(M, K)
n = Segment(K, G)
N = (4.14, 3.96)
p = Circle(G, Segment[G, N])
q = Circle(J, Radius[p])
O = Intersect(p, q, 2)
P = Point(q)
Q = (2.32, 4.5)
r = CircleArc(J, P, Q)
R_1 = Point(p)
S = Point(p)
s = CircleArc(G, R_1, S)
J'_1 = Mirror(J, b)
P'_1 = Mirror(P, b)
Q'_1 = Mirror(Q, b)
r' = Arc(Mirror[Circle[J, P], b], P'_1, Q'_1)
G'_1 = Mirror(G, b)
R'_1 = Mirror(R_1, b)
S'_1 = Mirror(S, b)
s' = Arc(Mirror[Circle[G, R_1], b], R'_1, S'_1)
O' = Mirror(O, b)
t = Segment(C, K)
R'' = Mirror(R'_1, t)
S'' = Mirror(S'_1, t)
s'' = Arc(Mirror[Mirror[Circle[G, R_1], b], t], R'', S'')
P'' = Mirror(P'_1, t)
Q'' = Mirror(Q'_1, t)
r'' = Arc(Mirror[Mirror[Circle[J, P], b], t], P'', Q'')
a_1 = Segment(C, J)
J' = Mirror(J, a_1)
P' = Mirror(P, a_1)
Q' = Mirror(Q, a_1)
r'_1 = Arc(Mirror[Circle[J, P], a_1], P', Q')
R = Mirror(G, a_1)
R' = Mirror(R_1, a_1)
S' = Mirror(S, a_1)
s'_1 = Arc(Mirror[Circle[G, R_1], a_1], R', S')
O'_1 = Mirror(O, a_1)
b_1 = Segment(C, O)
c_1 = Segment(C, O')
T = Intersect(s'', r'', 1)
U = Intersect(c, b, 1)
d_1 = Segment(C, T)
e_1 = Segment(C, O'_1)
V = Intersect(c, b_1, 1)
W_1 = Intersect(c, e_1, 1)
Z = Intersect(c, d_1, 1)
W = Intersect(c, c_1, 1)
f_1 = Segment(G, W)
g_1 = Segment(W, K)
h_1 = Segment(K, Z)
i_1 = Segment(Z, M)
j_1 = Segment(M, U)
k_1 = Segment(U, R_2)
l_1 = Segment(R_2, W_1)
m_1 = Segment(W_1, J)
n_1 = Segment(J, V)
p_1 = Segment(V, G)