hoekre = 1.2217304763960306 rad (slider from 0° to 179° - hoekli, step °)
hoekli = 0.8726646259971648 rad (slider from 0 to 178°, step °)
basis = 6 (slider from 2 to 10, step 0.1)
stap = 7 (slider from 0 to 7, step 1)
A = (-4, -3)
B = Point(Circle[A, basis])
f = Segment(A, B)
B' = Rotate(B, hoekli, A)
γ = Angle(B, A, B')
A' = Rotate(A, (-hoekre), B)
δ = Angle(A', B, A)
g = Ray(A, B')
h = Ray(B, A')
C = Intersect(g, h)
i = LineBisector(B, C)
j = LineBisector(C, A)
D = Intersect(i, j)
E = Intersect(i, h)
F = Intersect(j, g)
k = Segment(E, D)
l = Segment(D, F)
m = Segment(B, D)
n = Segment(D, A)
p = Segment(D, C)
q = Segment(B, E)
r = Segment(E, C)
s = Segment(C, F)
t = Segment(F, A)
c = Circle(D, A)
ε = Angle(D, F, A)
ζ = Angle(D, F, C)
a = Segment(A, C)
b = Segment(C, B)