B = (-2, 4)
D = (2, 4)
c = Semicircle(B, D)
E = (5, 2)
a = Segment(D, E)
polígono1, b, d, e, F = Polygon(E, D, 3)
A = (-4, 0)
f = Segment(B, A)
g = OrthogonalLine(A, f)
h = Circle(A, 4)
C = Intersect(h, g, 2)
polígono2, d_1, b_1, f_1 = Polygon(D, C, F)
distanciaEF = Distance(A, C)
Midpoint(A, C)
TextoEF: "\overline{" + (Name[A]) + "" + (Name[C]) + "} \, = \, " + (LaTeX[distanciaEF]) + ""