hoogte = 4 (slider from y(D) to 5, step 0.1)
N = (0, -1)
A = (15, -1)
h = Line(N, A)
E = Point(h)
f = OrthogonalLine(E, h)
e = Circle(E, hoogte)
G, H = Intersect(e, f)
g = Line(H, h)
lengtebasis = 3 (slider from 0 to 5, step 0.1)
c = Circle(N, lengtebasis)
B, C = Intersect(c, h)
hoekblauw = 2.0245819323134224 rad (slider from 0 to 180°, step °)
N' = Rotate(N, -180° + hoekblauw, C)
t = Ray(C, N')
W = Intersect(t, g)
veelhoek2, i, j, k = Polygon(N, C, W)
d_1 = Circle(W, i)
K, L = Intersect(d_1, g)
hoekrood = 0.9075712110370514 rad (slider from 0 to α, step °)
C'_1 = Rotate(C, hoekrood, N)
r = Ray(N, C'_1)
Q = Intersect(g, r)
a = Segment(N, Q)
c_1 = Circle(Q, lengtebasis)
U, A_1 = Intersect(c_1, g)
veelhoek3, b, f_1, g_1 = Polygon(K, W, N)
veelhoek1, l, m, n = Polygon(C, Q, A_1)
D = Intersect(t, r)
veelhoek4, q, c_2, d = Polygon(C, D, Q)
F, I = Intersect(e, g)
α = Angle(C, N, W)
J = Intersect(j, a)