lengte = 5 (slider from 0 to 5, step 0.1)
deel = 0.6 (slider from 0 to 1, step 0.01)
B = (13, -1)
N = (-5, -1)
f = Line(N, B)
J = Point(f)
p = Circle(J, lengte)
A, O = Intersect(p, f)
d = Circle(A, (deel * lengte))
D = Intersect(d, f, 2)
g = OrthogonalLine(A, f)
i = Line(D, g)
C = Intersect(d, g, 2)
h = Line(C, f)
k = OrthogonalLine(J, f)
I, K = Intersect(p, k)
j = Line(K, h)
E = Intersect(h, i)
G = Intersect(k, h)
H = Intersect(g, j)
l = Line(O, k)
veelhoek1, a_1, d_1, e_1, c = Polygon(A, D, E, C)
veelhoek2, d_2, j_1, g_1, e_2 = Polygon(D, J, G, E)
F = Intersect(i, j)
veelhoek3, e_3, f_1, h_1, c_1 = Polygon(E, F, H, C)
veelhoek4, t, i_1, k_1, l_1 = Polygon(E, G, K, F)
L = Intersect(h, l)
veelhoek5, n, q, r, s = Polygon(J, O, L, G)
M = Intersect(p, k, 1)
m = Segment(A, K)
P = Intersect(d, g, 1)
Q = Intersect(d, f, 1)