A = (1.6, 1.36)
B = Point(Circle[A, 12])
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
d = Circle(A, 5)
C = Intersect(d, b, 1)
e = OrthogonalLine(C, b)
D = Intersect(c, e)
l = 2.1 (slider from 0 to 5, step 0.1)
f = Circle(A, l)
E = Intersect(f, b, 2)
g = OrthogonalLine(E, b)
h = Circle(E, A)
F = Intersect(h, g, 2)
i = OrthogonalLine(F, g)
k = Circle(C, l)
G = Intersect(k, b, 1)
j = OrthogonalLine(G, b)
H = Intersect(i, j)
I = Intersect(c, g)
p = Circle(I, B)
J = Intersect(p, g, 1)
m = OrthogonalLine(J, g)
K = Intersect(j, m)
poly1, f_1, j_1, k_1, h_1 = Polygon(F, J, K, H)
poly2, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)
L = Point(f_1)
q = Circle(L, 1)
M = Intersect(q, f_1, 2)
n = Segment(L, M)
r = OrthogonalLine(L, f_1)
N = Intersect(q, r, 2)
s = CircleArc(L, M, N)
O = Point(s)
t = Segment(L, O)
e_1 = Segment(L, M)