C = (-2.3448220167715217, 3.540154696268087)
B = Point(xAxis)
bc = Line(C, B)
A = Point(xAxis)
ci = AngularBisector(A, C, B)
cj = OrthogonalLine(C, ci)
ai = AngularBisector(B, A, C)
aj = OrthogonalLine(A, ai)
Jb = Intersect(aj, cj)
U'_B = Midpoint(B, Midpoint[Jb, Mirror[Jb, bc]])
V'_B = Mirror(U'_B, AngularBisector[A, B, C])
ts_B = Line(U'_B, V'_B)
F_B = Intersect(Circle[U'_B, B, V'_B], AngularBisector[A, B, C], 2)
S_B = Midpoint(U'_B, V'_B)
p_B = Parabola(F_B, Line[Mirror[F_B, S_B], ts_B])
Jc = Intersect(ci, aj)
ab = Line(A, B)
Yc = Midpoint(Jc, Mirror[Jc, ab])
AYc = Segment(A, Yc)
P_B = Point(AYc)
M_B = Mirror(V'_B, OrthogonalLine[Midpoint[F_B, P_B], ts_B])
Q_B = Intersect(Line[P_B, M_B], bc)
ac = Line(C, A)
Ja = Intersect(ai, cj)
xc_C = Circle(Jc, Yc)
CY = Segment(C, Yc)
Ya = Midpoint(Ja, Mirror[Ja, bc])
xc_A = Circle(Ja, Ya)
AY = Segment(A, Ya)
N = Intersect(CY, AY)
U = Midpoint(Ja, Mirror[Ja, ab])
V = Mirror(U, ai)
U' = Midpoint(U, A)
V' = Midpoint(V, A)
S = Midpoint(V', U')
Yb = Intersect(Line[B, N], ac)
BY = Segment(Yb, B)
e = Circle(A, U', V')
F = Mirror(A, Center[e])
dir = OrthogonalLine(Mirror[F, S], ai)
p_A = Parabola(F, dir)
BYc = Segment(Yc, B)
CYb = Segment(Yb, C)
AYb = Segment(A, Yb)
ts = Line(V', U')
D = Intersect(p_A, CY)
E = Intersect(p_A, BY)
P = Point(BYc)
hc_{PF} = Semicircle(P, F)
M = Mirror(U', OrthogonalLine[Midpoint[F, P], ts])
Q = Intersect(Line[P, M], ac)
PQ = Segment(Q, P)
CYa = Segment(C, Ya)
BYa = Segment(Ya, B)
xc_B = Circle(Jb, Yb)
hc_B = Semicircle(F_B, P_B)
T = Intersect(p_A, Line[P, Q])
lieuA = Locus(T, P)
T_B = Intersect(p_B, Line[P_B, Q_B])
lieuB = Locus(T_B, P_B)
PQ_B = Segment(P_B, Q_B)
D' = Intersect(p_B, CY)
E' = Intersect(p_B, AY)
U'_C = Midpoint(C, Midpoint[Jc, Mirror[Jc, ac]])
V'_C = Mirror(U'_C, AngularBisector[A, C, B])
S_C = Midpoint(U'_C, V'_C)
F_C = Intersect(Circle[U'_C, C, V'_C], AngularBisector[A, C, B], 2)
ts_C = Line(U'_C, V'_C)
p_C = Parabola(F_C, Line[Mirror[F_C, S_C], ts_C])
P_C = Point(AYb)
M_C = Mirror(U'_C, OrthogonalLine[Midpoint[F_C, P_C], ts_C])
T_C = Intersect(p_C, Line[P_C, M_C])
lieuC = Locus(T_C, P_C)
D'' = Intersect(p_C, AY)
E'' = Intersect(p_C, BY)