lengte = 5 (slider from 0 to 8, step 0.1)
A = (-3, -1)
p = Circle(A, lengte)
B = (13, -1)
f = Line(A, B)
g = OrthogonalLine(A, f)
M, N = Intersect(p, g)
deel = 0.6 (slider from 0 to 1, step 0.01)
c = Circle(A, (deel * lengte))
D = Intersect(c, g, 2)
i = Line(D, f)
h = Line(N, i)
C = Intersect(c, f, 2)
j = Line(C, g)
K, L = Intersect(p, f)
k = Line(L, j)
E = Intersect(i, j)
H = Intersect(g, h)
I = Intersect(h, k)
J = Intersect(f, k)
veelhoek1, d_1, a_1, e = Polygon(A, E, D)
G = Intersect(j, h)
veelhoek2, g_1, e_1, i_1 = Polygon(E, I, G)
veelhoek3, d_2, e_2, g_2, h_1 = Polygon(D, E, G, H)
F = Intersect(i, k)
veelhoek4, c_1, j_1, f_1, e_3 = Polygon(C, J, F, E)
α = Angle(C, A, E)
β = Angle(E, I, F)
γ = Angle(F, E, I)
δ = Angle(C, E, A)
l = Segment(A, C)
m = Segment(F, I)