Zoom = 6 (slider from 1 to 10, step 0.1)
A = (5.4, 0.5199999999999995)
c = Circle(A, Zoom)
b = Line(A, yAxis)
d = Line(A, xAxis)
B, C = Intersect(c, b)
D, E = Intersect(c, d)
F = Rotate(E, 29.999999999999996°, A)
G = Midpoint(F, E)
H = Rotate(E, 35°, A)
I = Rotate(E, 355°, A)
e = Semicircle(H, I)
f = Semicircle(F, E)
H' = Mirror(H, b)
I' = Mirror(I, b)
g = Semicircle(I', H')
F' = Mirror(F, b)
E' = Mirror(E, b)
h = Semicircle(E', F')
J = Midpoint(B, A)
K = Midpoint(J, A)
L = Midpoint(K, A)
k = Circle(C, L)
M, N = Intersect(k, c)
O = Midpoint(J, K)
P = Midpoint(O, K)
i = Line(P, d)
Q, R = Intersect(c, i)
S = Midpoint(Q, P)
U = Midpoint(B, J)
T = Midpoint(U, C)
p = Semicircle(C, U)
C' = Mirror(C, b)
U' = Mirror(U, b)
q = Semicircle(U', C')
r = Semicircle(P, E)
P' = Mirror(P, b)
E'_1 = Mirror(E, b)
s = Semicircle(E'_1, P')
t = Circle(T, Zoom / 7)
j = Line(N, M)
c1 = Circle(A, U)
V, W = Intersect(c1, j)
d1 = CircleArc(A, W, V)
Z = Mirror(S, b)
l = Segment(F', V)
A1, B1 = Intersect(t, l)
C1 = Midpoint(B, H)
m = Line(C1, B1)
D1, E1 = Intersect(t, m)
n = Segment(B1, E1)
F1 = Intersect(k, p)
G1 = Intersect(k, q)
e1 = CircleArc(C, G1, F1)
H1 = Intersect(s, p)
I1 = Intersect(r, q)
f1 = CircleArc(T, H1, C)
g1 = CircleArc(T, C, I1)
J1 = Midpoint(P, E)
h1 = CircleArc(J1, I1, P)
J1' = Mirror(J1, b)
I1' = Mirror(I1, b)
P'_1 = Mirror(P, b)
k1 = Arc(Mirror[Circle[J1, I1], b], I1', P'_1)
B1' = Mirror(B1, b)
E1' = Mirror(E1, b)
a1 = Segment(B1', E1')
p1 = Circle(Z, Zoom / 15)
q1 = Mirror(p1, b)