A = (-4, 3)
D = Point(Segment[A, (x(A) + 7, y(A))])
R: (x(A), y(A) + Distance[A, D])
F = Point(Segment[D, (x(D) + 7, y(A))])
G: (x(F), y(R))
B = (15, 3)
C = Mirror(D, A)
l = Ray(R, D)
j = Ray(G, F)
H = Intersect(j, l)
n = Segment(D, H)
p = Segment(G, F)
q = Segment(F, H)
r = Segment(F, D)
s = Segment(D, A)
t = Segment(A, C)
e = Segment(C, H)
p_1 = Segment(R, G)
α = Angle(A, R, D)
β = Angle(A, R, C)
γ = Angle(A, C, R)
δ = Angle(A, D, R)
ε = Angle(D, R, G)
ζ = Angle(H, D, F)
η = Angle(D, H, F)
W = (-8.06261356823711, -1.419298245614035)
g_1 = Segment(R, A)
g = Segment(R, A)
f_1 = Segment(R, G)
f = Segment(C, R)
h_1 = Segment(R, C)
m = Segment(R, D)