lengte = 6 (slider from 0 to 10, step 0.1)
stap = 6 (slider from 0 to 6, step 1)
A = (-2, -5)
B = Point(Circle[A, lengte])
f = Segment(A, B)
veelhoek1, g, h, i, j, C, D = Polygon(A, B, 4)
k = LineBisector(D, C)
l = LineBisector(C, B)
E = Intersect(l, h)
F = Intersect(k, i)
G = Point(g)
H = Point(j)
I = Intersect(k, l)
veelhoek2, i_1, e, b, g_1 = Polygon(I, E, B, G)
veelhoek3, i_2, h_1, a, g_2 = Polygon(I, H, A, G)
veelhoek4, i_3, e_1, c, f_1 = Polygon(I, E, C, F)
m = Segment(F, D)
n = Segment(D, H)
d = Circle(I, G)
p = Segment(D, C)
J = Point(p)
q = Segment(J, B)
K = Point(q)
r = Segment(A, K)