D: (-1, -3)
straal = 2 (slider from 0 to 5, step 0.1)
c = Circle(D, straal)
F = Point(c)
A = (5, 0)
hoekwi = 1.2217304763960306 rad (slider from 0° to 179° - hoekro, step °)
hoekro = 0.8726646259971648 rad (slider from 0 to 178°, step °)
lengte = 3 (slider from 0 to 5, step 0.1)
B = Point(Circle[A, lengte])
p = Line(A, B)
G = Point(p)
A' = Rotate(A, (-hoekwi), B)
g = Ray(B, A')
B' = Rotate(B, hoekro, A)
h = Ray(A, B')
C = Intersect(g, h)
η = Angle(G, B, C)
stap = 13 (slider from 0 to 13, step 1)
f = Segment(A, B)
γ = Angle(B, A, B')
δ = Angle(A', B, A)
ε = Angle(B, C, A)
j = Segment(C, A)
i = Segment(C, B)
E = Point(c)
k = Segment(D, E)
l = Segment(D, F)
m = OrthogonalLine(F, l)
F' = Rotate(F, η, D)
ζ = Angle(F, D, F')
H = Point(p)
n = Segment(D, F')
θ = Angle(C, A, H)
F'_1 = Rotate(F, (-θ), D)
r = Segment(D, F'_1)
s = OrthogonalLine(F', n)
t = OrthogonalLine(F'_1, r)
J = Intersect(m, s)
K = Intersect(s, t)
L = Intersect(m, t)
κ = Angle(F, J, F')
λ = Angle(F, L, F'_1)
a = Segment(L, J)
b = Segment(J, K)
d = Segment(K, L)
J' = Rotate(J, (-(ε / 3)), K)
μ = Angle(J', K, J)
L' = Rotate(L, ε / 3, K)
ν = Angle(L, K, L')
ρ = Angle(L', K, J')
M' = Rotate(B, (-(ε / 3)), C)
M'' = Rotate(M', (-(ε / 3)), C)
τ = Angle(M'', C, M')
σ = Angle(M', C, B)
ι = Angle(F'_1, D, F)
ο = Angle(D, F'_1, L)
ξ = Angle(D, F, L)
q = Segment(H, A)
e = Segment(B, G)