O = (-20, 0)
OM = 15 (slider from 15 to 20, step 1)
c = Circle(O, OM)
A_1 = (90, 0)
a = Ray(O, A_1)
M = Intersect(c, a)
b = OrthogonalLine(M, a)
F = Point(b)
d = Circle(F, OM)
E = Intersect(d, b, 2)
e = OrthogonalLine(O, a)
D = Point(e)
f = OrthogonalLine(D, e)
g = Ray(O, F)
A = Intersect(f, g)
h = OrthogonalLine(A, f)
i = Ray(O, E)
C = Intersect(h, i)
B = Intersect(h, a)
j = Segment(O, M)
k = Segment(E, F)
m = Segment(O, C)
n = Segment(O, A)
p = Segment(O, B)
q = Segment(C, A)
r = Segment(O, D)
distanceAD = Distance(A, D)
distanceAC = Distance(A, C)
distanceME = Distance(M, E)
TexteAC: "" + (LaTeX[Name[A] + (Name[C])]) + " \, = \, " + (LaTeX[distanceAC]) + " cm"
TexteAD: "" + (LaTeX[Name[A] + (Name[D])]) + " \, = \, " + (LaTeX[distanceAD]) + "cm"
distanceOD = Distance(O, D)
l = Distance(O, D)
TexteOD: "" + (LaTeX[Name[O] + (Name[D])]) + " \, = \, " + (LaTeX[l]) + "cm"