R = (5, 2)
Q = (5, 3)
P = (6, 3)
O = (5.5, 2.5)
N = (6, 2)
M = (6, 1)
L = (5.5, 1.5)
K = (5, 1)
J = (4, 1)
poly1, j_1, k_1, l_1, m, n, o, p_1, q_1, r_1 = Polygon(J, K, L, M, N, O, P, Q, R)
A = Intersect(xAxis, yAxis)
B = Point(poly1)
c = Circle(B, 4)
f = Segment(A, B)
g = OrthogonalLine(A, f)
d = Circle(A, 4)
C = Intersect(d, f, 1)
D = Intersect(d, g, 2)
e = CircleArc(A, C, D)
E = Intersect(c, e, 1)
h = Segment(A, E)
i = Segment(E, B)
echelle = 0.61 (slider from 0 to 1, step 0.05)
k = Circle(A, (h * echelle))
F = Intersect(h, i)
p = Circle(F, Radius[k])
G = Intersect(k, h, 1)
q = Circle(G, Radius[p])
H = Intersect(p, i, 1)
r = Circle(H, Segment[F, G])
I = Intersect(q, r, 2)
j = Segment(G, I)
l = Segment(H, I)