Q = (3.5, 1.5)
P = (3.5, 2.5)
O = (4.5, 2.5)
N = (4, 2)
M = (4.5, 1.5)
L = (4.5, 0.5)
K = (4, 1)
J = (3.5, 0.5)
I = (2.5, 0.5)
poly1, i_1, j_1, k_1, l_1, m_1, n_1, o, p_1, q = Polygon(I, J, K, L, M, N, O, P, Q)
rayon = 5 (slider from 4 to 10, step 0.05)
A = Intersect(xAxis, yAxis)
c = Circle(A, rayon)
B = Point(poly1)
f = Ray(A, B)
g = OrthogonalLine(A, f)
C = Intersect(c, f, 1)
D = Intersect(c, g, 2)
d = CircleArc(A, C, D)
echelle = 1.5 (slider from 1 to Min[(2 * rayon / h) - 1.0E-4, (2 * rayon / r) - 1.0E-4], step 0.05)
h = Segment(A, B)
e = Circle(A, (h * echelle))
E = Intersect(e, f, 1)
k = Circle(E, rayon)
F = Intersect(d, k, 1)
i = Segment(A, F)
j = Segment(F, E)
l = Line(B, j)
m = Line(B, i)
G = Intersect(m, j)
n = Segment(G, B)
H = Intersect(l, i)
p = Segment(H, B)
AE = Distance(A, E)
R = Intersect(n_1, o)
r = Segment(A, R)