A = (-1.16, 4)
B = (-3.4766508401033343, 0.1350927912268144)
f = Line(A, B)
C = (2.2392608171949435, -2.0291844382356414)
h = Line(A, C)
g = Line(B, C)
D = Point(g)
c = Circle(B, D)
E = Intersect(c, f, 1)
H = Intersect(c, f, 2)
d = Circle(C, D)
I = Intersect(d, h, 2)
F = Intersect(d, h, 1)
a = AffineRatio(B, D, C)
K = If(0 < a < 1, I, F)
J = If(a < 0, H, E)
AF = Distance(A, F)
AE = Distance(A, E)
G: ((Distance[A, J] * J) + (Distance[A, K] * K)) / (Distance[A, J] + Distance[A, K])
i = Line(J, K)
e = Circle(B, A)
L = Intersect(e, g, 2)
k = Circle(C, L)
M = Intersect(k, h, 1)
p = Circle(C, A)
N = Intersect(p, g, 1)
q = Circle(B, N)
O = Intersect(q, f, 2)
j = Line(O, M)
b = AreCollinear(G, O, M)
U = If(¬b, G)
loc1 = Locus(U, D)
l = LineBisector(O, M)
U' = Mirror(U, l)
P = Intersect(j, l)
Q = Midpoint(A, P)
r = Conic(O, U', Q, U, M)