a = 1 (slider from 0 to 1, step 1)
i: 2 * 3.14 random() + 0 a
A = (0.6623886350438511, -1.5916433875431788)
B = (8.229554206633845, -1.6420911580204454)
poly1, b, c, d, C = Polygon(A, B, 3)
f = LineBisector(d)
g = LineBisector(c)
D = Intersect(f, g)
h = Distance(A, D)
e = Circle(C, A, B)
TexteAD: "\overline{" + (Name[A]) + (Name[D]) + "} \, = \, " + h
M: (x(D) + h cos(i), y(D) + h sin(i))
j: 2 * 3.14 random() + 0 a
N: (x(D) + h cos(j), y(D) + h sin(j))
k = Segment(N, M)
l = If(k > b, Segment[N, M])
m = If(k < b, Segment[N, M])