A_1 = (-3, 6)
B_1 = (-1, 6)
C = (-3, 5)
D = (1, 5)
a = Segment(A_1, B_1)
b = Segment(C, D)
E = (-3, 4)
O = (-2, 2)
c = Segment(E, O)
G = (1, 2)
d = Segment(G, O)
α = Angle(G, O, E)
H = (-2, -4)
I = (7, -4)
e = Line(H, I)
A = Point(e)
f = Circle(A, Segment[C, D])
J, B = Intersect(f, e)
K = (-2.98, 1.72)
g = Circle(O, K)
L = Intersect(g, c)
M = Intersect(g, d, 1.0)
h = Circle(A, Segment[O, L])
F, A' = Intersect(h, e)
k = Circle(A', Segment[L, M])
N, P = Intersect(k, h)
r = Ray(A, P)
p = Circle(A, Segment[A_1, B_1])
Q = Intersect(p, r)
j = Line(Q, e)
l = Line(B, r)
S = Intersect(l, j)
m = Segment(Q, S)
n = Segment(B, S)
q = Segment(B, A)
r_1 = Segment(A, Q)
α' = Angle(B, A, Q)