A_1 = (-4, 6)
B_1 = (-1, 5.96)
a = Segment(A_1, B_1)
C = (-4, 5)
D = (1.22, 4.96)
b = Segment(C, D)
E = (-4, 4)
F = (-3, 4)
u = Segment(E, F)
G = (0, -6.3)
H = (16, 0)
I = (0, 6)
c = Ray(G, I)
J = Point(c)
d = Circle(J, Segment[E, F])
K, A = Intersect(d, c)
e = Circle(A, Segment[C, D])
M, N = Intersect(e, c)
f = Semicircle(N, J)
g = OrthogonalLine(A, c)
B = Intersect(f, g)
h = OrthogonalLine(B, g)
k = Circle(B, Segment[A_1 / 2.0, B_1 / 2.0])
O, O_1 = Intersect(k, h)
p = Circle(O, Segment[A_1 / 2.0, B_1 / 2.0])
i = Ray(A, O)
P, Q = Intersect(p, i)
j = Segment(P, A)