$\textsf{\LARGE r}$

$\textsf{\LARGE A}$

Lugar geométrico

Cuando P recorre la recta fija r,
la intersección de la mediatriz de PA 
con la perpendicular por P a r 
crea el lugar geométrico de los 
puntos equidistantes de r y A

$\textsf{\LARGE P}$

Punto - Recta

Al acercar al mismo tiempo una paralela a la recta y a la circunferencia centrada en A, 
con el rastro activado, sobrevive el color del objeto más cercano (la recta o el punto), 
por lo que obtenemos la correspondiente parábola.

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])])