hoekblauw = 2.0420352248333655 rad (slider from 0 to 180°, step °)
lengtebasis = 3 (slider from 0 to 5, step 0.1)
N = (0, -1)
p = Circle(N, lengtebasis)
A = (-3, -1)
i = Line(A, N)
D, E = Intersect(p, i)
E' = Rotate(E, hoekblauw, N)
f = Ray(N, E')
j = OrthogonalLine(A, i)
hoogte = 4 (slider from 0 to 5, step 0.1)
k = Circle(A, hoogte)
B, C = Intersect(k, j)
g = Line(C, i)
P = Intersect(g, f)
veelhoek3, h, r, b = Polygon(P, E, N)
afstand = 3 (slider from 0 to 5, step 0.1)
s = Circle(P, r)
T, W = Intersect(s, g)
q = Circle(W, afstand)
F, G = Intersect(q, g)
veelhoek1, l, m, n = Polygon(N, E, G)
veelhoek2, a, c, d = Polygon(P, E, W)
f_1 = Segment(P, G)