A = (0, 0.38)
B = (-1.94, 0.8200000000000001)
C = (2.46, 4.54)
a = Ray(B, A)
b = Ray(B, C)
c = Circle(B, Segment[A, B])
D = Intersect(c, b)
d = Circle(D, Segment[B, A])
e = Circle(A, Segment[A, B])
P, F = Intersect(d, e)
f = Ray(B, P)