x

α

β

d

d = 40 (slider from 10 to 80, step 1)
β = 1.2217304763960306 rad (slider from 0 to 90°, step 0.1°)
A = Point(xAxis)
α = 0.7853981633974483 rad (slider from 0 to 90°, step 0.1°)
G = (7.88, 3.3)
H = Rotate(A + (1, 0), α, A)
k = Ray(A, H)
f = Ray(A, A + (1, 0))
B: A + (d / 10, 0)
I = Rotate(B + (1, 0), β, B)
l = Ray(B, I)
F = (6.7, 3.46)
B_1 = Intersect(k, l)
g = Segment(A, B_1)
h = Segment(B, B_1)
i = OrthogonalLine(B_1, f)
C = Intersect(i, f)
j = Segment(B_1, C)
γ = Angle(A + (1, 0), A, H)
δ = Angle(B + (1, 0), B, I)
m = Segment(A, B)