binnenre = 0.767944870877505 rad (slider from 0 to hoekre, step °)
binnenli = 0.5934119456780721 rad (slider from 0 to hoekli, step °)
lengtebasis = 5.1 (slider from 0 to 8, step 0.1)
A = (-3, -2)
E = Point(Circle[A, lengtebasis])
A'_1 = Rotate(A, (-binnenre), E)
r = Ray(E, A'_1)
E'_1 = Rotate(E, binnenli, A)
q = Ray(A, E'_1)
hoekre = 1.1868238913561442 rad (slider from 0 to 179° - hoekli, step °)
hoekli = 1.0297442586766545 rad (slider from 0 to 179°, step °)
A' = Rotate(A, (-hoekre), E)
s = Ray(E, A')
E' = Rotate(E, hoekli, A)
l = Ray(A, E')
B = Intersect(l, s)
k = Segment(B, E)
F = Intersect(r, q)
f = Segment(A, F)
j = Segment(A, B)
D = Intersect(q, k)
m = Segment(F, D)
n = Segment(B, D)
h = Segment(A, E)
g = Segment(F, E)
γ = Angle(E, F, A)
p = Segment(D, E)
α = Angle(A, D, E)
β = Angle(E, B, A)