lengte = 6 (slider from 0 to 10, step 0.1)
stap = 4 (slider from 0 to 4, 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 = Segment(D, B)
l = Segment(A, C)
E = Intersect(k, l)
veelhoek2, e, a, b = Polygon(A, B, E)
veelhoek3, t, c, d = Polygon(B, E, C)
veelhoek4, q, r, s = Polygon(E, C, D)
veelhoek5, m, n, p = Polygon(E, A, D)
c_1 = Circle(E, B)
α = Angle(B, A, E)
γ = Angle(A, D, E)
δ = Angle(E, D, C)
β = Angle(E, A, D)