F = (4.16, 1.24)
A = (1, 5.12)
B = (1, -1.7)
d = Line(A, B)
o = OrthogonalLine(F, d)
D = Intersect(d, o)
V = Midpoint(D, F)
c = Parabola(F, d)
C = Point(o)
a = OrthogonalLine(C, o)
b = Distance(d, a)
vzdalenostCD = Distance(C, D)
Midpoint(C, D)
TextCD: Name[C] + (Name[D]) + " = " + vzdalenostCD
e = Circle(F, Distance[C, D])
E, G = Intersect(e, a)
f = OrthogonalLine(F, o)
vzdalenostFD = Distance(F, D)
Midpoint(F, D)
TextFD: Name[F] + (Name[D]) + " = " + vzdalenostFD
g = Circle(F, Distance[F, D])
H, I = Intersect(g, f)