hoogte = 4 (slider from 0 to 5, step 0.1)
N = (2, -2)
U = (-2, -2)
f = Line(U, N)
T = Point(f)
e = Circle(T, hoogte)
l = OrthogonalLine(T, f)
B, C = Intersect(e, l)
hoekblauw = 1.1693705988362009 rad (slider from 0° to γ, step °)
lengtebasis = 4 (slider from 0 to 7, step 0.1)
c = Circle(N, lengtebasis / 2)
Q = Intersect(c, f, 2)
T' = Rotate(T, (-hoekblauw), U)
α = Angle(T, U, T')
Q' = Rotate(Q, (-α), N)
h = Ray(N, Q')
g = Line(C, f)
W = Intersect(g, h)
xpuntP = 0.002100735161581463 (slider from (-k_1) to 5, step 0.1)
P: (3 + xpuntP, y(C))
m = Segment(Q, P)
q = Segment(W, N)
E = Intersect(m, q)
veelhoek2, g_1, h_1, i_1 = Polygon(N, Q, E)
f_1 = Segment(Q, N)
d = Circle(W, f_1)
Z = Intersect(d, g, 2)
A = Intersect(c, f, 1)
stap = 7 (slider from 0 to 7, step 1)
veelhoek1, i, j, k = Polygon(N, A, P)
veelhoek3, s, t, a, b = Polygon(Q, E, W, Z)
β = Angle(Q, N, Q')
r = Segment(P, Z)
D = Intersect(d, g, 1)
n = Segment(N, E)
p = Segment(E, W)
veelhoek4, p_1, n_1, e_1 = Polygon(N, E, P)
j_1 = Segment(Q, A)
F: (x(N) + 1, y(C))
k_1 = Segment(W, F)
γ = Angle(Q, N, P)