hoekblauw = 1.2915436464758039 rad (slider from 0 to α, step °)
hoogte = 4 (slider from 0 to 5, step 0.1)
N = (0, -1)
A = (-3, -1)
e = Circle(A, hoogte)
h = Line(N, A)
i = OrthogonalLine(A, h)
D, E = Intersect(e, i)
lengtebasis = 3 (slider from 0 to 5, step 0.1)
k = Circle(N, lengtebasis)
B, C = Intersect(k, h)
f = Segment(N, B)
g = Line(D, f)
afstand = 1 (slider from 0 to 3, step 0.1)
p = Circle(B, afstand)
F, G = Intersect(p, h)
c = Circle(F, f)
V, Z = Intersect(c, h)
Z' = Rotate(Z, hoekblauw, F)
q = Ray(F, Z')
hoekgeel = 2.0420352248333655 rad (slider from 0 to 180°, step °)
B' = Rotate(B, hoekgeel, N)
n = Ray(N, B')
P = Intersect(g, n)
s = Circle(P, f)
T, W = Intersect(s, g)
veelhoek2, j, l, m = Polygon(N, B, W)
veelhoek3, n_2, p_1, w_1 = Polygon(P, W, N)
U = Intersect(g, q)
d = Circle(U, f)
A_1, B_1 = Intersect(d, g)
veelhoek1, u, q_1, z_1 = Polygon(F, Z, U)
veelhoek4, b_1, u_1, z_2 = Polygon(U, Z, B_1)
α = Angle(Z, F, W)