E: (-3, -2)
N = (-1, -2)
afstand = 1 (slider from 0 to 3, step 0.1)
hoogte = 4 (slider from 0 to 5, step 0.1)
g = Line(N, E)
l = OrthogonalLine(E, g)
d = Circle(E, hoogte)
F, G = Intersect(d, l)
lengtebasis = 3 (slider from 0 to 5, step 0.1)
e = Circle(N, lengtebasis)
H, I = Intersect(e, g)
p = Circle(I, afstand)
J, K = Intersect(p, g)
xTopGeel = 0 (slider from -3 to 3, step 0.1)
P: (1 + xTopGeel, y(G))
veelhoek1, f, a, b = Polygon(N, I, P)
V: (x(K), y(G))
c = Circle(K, f)
T, U = Intersect(c, g)
veelhoek2, m, n, q = Polygon(K, U, V)
s = Segment(P, V)
r = Ray(K, V)
W: (x(K), y(G) + 1)
veelhoek3, v_1, w, u_1 = Polygon(W, U, V)
t = Segment(P, W)
A = (10, 3)
B = (11, 3)
i = Segment(A, B)
C = (12, 3)
j = Segment(C, B)
D = (13, 3)
k = Segment(D, C)
h = Segment(I, K)