hoekzwwi = 1.239183768915974 rad (slider from 0° to 179° - hoekblge, step °)
hoekblge = 0.9424777960769379 rad (slider from 0 to 178°, step °)
lengte = 8 (slider from 2 to 10, step 0.1)
stap = 8 (slider from 0 to 8, step 1)
A = (-4, -3)
B = Point(Circle[A, lengte])
f = Segment(A, B)
B' = Rotate(B, hoekblge, A)
γ = Angle(B, A, B')
g = Ray(A, B')
A' = Rotate(A, (-hoekzwwi), B)
δ = Angle(A', B, A)
h = Ray(B, A')
C = Intersect(g, h)
i = Segment(B, C)
j = Segment(C, A)
k = AngularBisector(A, B, C)
l = AngularBisector(C, A, B)
D = Intersect(k, l)
m = OrthogonalLine(D, f)
G = Intersect(m, f)
n = Segment(B, D)
q = Segment(A, D)
p = Segment(D, G)
r = OrthogonalLine(D, j)
s = OrthogonalLine(D, i)
E = Intersect(r, j)
F = Intersect(s, i)
ε = Angle(D, E, A)
ζ = Angle(D, G, A)
η = Angle(D, A, G)
θ = Angle(D, A, E)
ι = Angle(D, B, G)
κ = Angle(F, B, D)
t = Segment(D, F)
a = Segment(D, E)
λ = Angle(G, D, E)
c = Circle(D, E)