hoekzwart = 0.9773843811168246 rad (slider from 0 to 179° - hoekgeel, step °)
A = (-3, -3)
hoekgeel = 0.7853981633974483 rad (slider from 0 to 178°, step 0.017453292519943295)
lengterood = 5 (slider from 0 to 7, step 0.05)
B = Point(Circle[A, lengterood])
A' = Rotate(A, (-hoekzwart), B)
m = Ray(B, A')
B' = Rotate(B, hoekgeel, A)
g = Ray(A, B')
e = Circle(A, 8.5)
f = Segment(A, B)
C = Intersect(g, m)
d = Circle(C, 4)
h = Line(C, f)
α = Angle(B, A, B')
i = Segment(A, C)
j = Segment(C, B)
D, F = Intersect(d, h)
β = Angle(A, C, B)
ε = Angle(C, B, A)
k = Segment(C, F)
G = Intersect(e, g)
l = Segment(C, G)
δ = Angle(G, C, F)
γ = Angle(B, C, F)