A = (1, -2)
C: (x(A) + 100, y(A))
k = Ray(A, C)
H: (3.02, 1.96)
D = Point(k)
N = Midpoint(D, H)
p = Segment(A, N)
c = Circle(N, A)
q = Ray(A, N)
F = Intersect(c, q, 2)
r = Segment(F, N)
j = Segment(A, D)
c_1 = Circle(D, 2)
E, G = Intersect(c_1, k)
g = Segment(A, H)
h = Segment(N, H)
i = Segment(D, N)
β = Angle(A, H, N)
γ = Angle(N, D, F)
l = Line(D, H)
I, J = Intersect(c_1, l)
ε = Angle(A, D, I)
s = Segment(F, D)
α = Angle(F, D, G)
η = Angle(F, D, G)
B = (0.026708456906675962, -3.7028517865636843)
b = Segment(D, If[x(E) > x(G), E, G])
e = Segment(If[y(I) < y(J), I, J], D)