p = 8 (slider from -5 to 10, step 0.1)
c: y^(2) = ((2 * p) * x)
O = (0, 0)
A = Point(c)
a = Tangent(A, c)
b = OrthogonalLine(O, a)
B = Intersect(b, a)
Ortslinie1 = Locus(B, A)
d: x = ((-p)) / 2
e = OrthogonalLine(A, d)
F: (p / 2, 0)
f = Segment(A, F)