hoekge = 0.5934119456780721 rad (slider from 0 to 179° - hoekli, step °)
hoekli = 0.7853981633974483 rad (slider from 0 to 179°, step °)
A = (-3, -2)
lengte = 5 (slider from 0 to 8, step 0.1)
D = Point(Circle[A, lengte])
A' = Rotate(A, (-hoekge), D)
k = Ray(D, A')
D' = Rotate(D, hoekli, A)
j = Ray(A, D')
E = Intersect(j, k)
d = Circle(E, D)
F = Intersect(d, j, 1)
i = Segment(A, D)
δ = Angle(D, A, D')
ε = Angle(A', D, A)
l = Segment(E, A)
h = Segment(F, D)
g = Segment(F, E)
α = Angle(E, D, F)
γ = Angle(D, F, E)
a = Segment(D, E)