A_1 = (2, 0.5)
B_1 = (3, 0.5)
C = (3.5, 1)
D = (4, 0.5)
E = (4, 1.5)
F = (3.5, 2)
G = (4, 2.5)
H = (3, 2.5)
I = (3, 1.5)
poly1, a, b, c, d, e, f, g, h, i = Polygon(A_1, B_1, C, D, E, F, G, H, I)
B = Point(poly1)
A = Intersect(xAxis, yAxis)
j = Line(B, A)
k = Ray(B, A)
l = Segment(A, B)
echelle = 1.5 (slider from 0 to Min[(2 * rayon / l) - 1.0001, (2 * rayon / k_1) - 1.0001], step 0.1)
rayon = 7 (slider from 4 to 10, step 0.1)
m = OrthogonalLine(A, l)
p = Circle(A, (l * echelle))
L = Intersect(p, m, 2)
M_1 = Intersect(p, m, 1)
q = CircleArc(A, L, M_1)
M = Intersect(q, k, 1)
r = Circle(B, rayon)
s = Circle(M, rayon)
O = Intersect(s, j, 1)
P = Intersect(s, j, 2)
t = CircleArc(M, O, P)
Q = Intersect(r, t, 1)
n = Segment(M, Q)
f_1 = Segment(Q, B)
g_1 = Line(A, f_1)
h_1 = Line(A, n)
R = Intersect(g_1, n)
i_1 = Segment(R, A)
S = Intersect(h_1, f_1)
j_1 = Segment(A, S)
k_1 = Segment(A, G)