B = (5, -2)
lengtezw = 4 (slider from 0 to 8, step 0.1)
A = (1, -2)
hoekbl = 0.9250245035569946 rad (slider from 0 to 179°, step °)
hoekro = 1.3264502315156905 rad (slider from 0 to 179° - hoekbl, step °)
D = Point(Circle[A, lengtezw])
i = Segment(A, D)
j = Ray(A, D)
c = Circle(D, 2)
E, F = Intersect(c, j)
b = Segment(B, F)
D' = Rotate(D, hoekbl, A)
ε = Angle(D, A, D')
f = Ray(A, D')
A' = Rotate(A, (-hoekro), D)
ζ = Angle(A', D, A)
k = Ray(D, A')
G = Intersect(f, k)
g = Segment(A, G)
h = Segment(D, G)
δ = Angle(A, G, D)
β = Angle(G, D, F)