$\textsf{\LARGE r}$

$\textsf{\LARGE A}$

Locus

When P runs along the fixed line r, the 
intersection of the perpendicular bisector 
of PA with the perpendicular through P to r
create the locus of the
equidistant points of r and A.

$\textsf{\LARGE P}$

Point - Line

By simultaneously approaching with a parallel to the line r and to the circle, 
centered on A, with the trace activated, the color of the closest object 
(line or point) survives, so we obtain the corresponding parabola.

r: (-1.57 * x) + (0.22 * y) = 2.8433
A = (1, 0.75)
op2 = false
P = Point(r)
g = LineBisector(A, P)
i = OrthogonalLine(P, r)
B = Intersect(g, i)
lugar1 = Locus(B, P)
j = Segment(A, P)
m = Segment(P, B)
n = Segment(B, A)
h = 0 (slider from 0 to 5, step 0.02)
op1 = false
t = Parabola(A, r)
c:=XA - Xr = 0
h': 5 - h
s = Circle(A, h')
d' = Translate(r, Vector[(h' * UnitOrthogonalVector[r])])
d'' = Translate(r, Vector[((-h') * UnitOrthogonalVector[r])])