mediatriz de FD

xGoma = -3.5 (slider from -3.9 to -3.4, step 0.01)
yGoma = 5.55 (slider from 5.3 to 5.55, step 0.01)
F_1: (xGoma, yGoma)
F = (1.8800000000000001, 1.4000000000000001)
B = (5.28, -1.98)
C = (0.66, -2.82)
directriz = Line(C, B)
D = Point(directriz)
mediatriz = LineBisector(F, D)
perpendicular = OrthogonalLine(D, directriz)
P = Intersect(mediatriz, perpendicular)
lugar1 = Locus(P, D)
a = Segment(P, F)
b = Segment(P, D)