hoogte1 = 50 (slider from 0 to 60, step 1)
A = Point(xAxis)
B = Point(xAxis)
c = Semicircle(A, B)
C = Intersect(c, d, 1)
D = Intersect(c, e, 1)
k = Semicircle(C, D)
E = Intersect(k, f, 1)
F = Intersect(k, g, 1)
p = Semicircle(E, F)
G = Intersect(p, h, 1)
H = Intersect(p, i, 1)
q = Semicircle(G, H)
M2 = Midpoint(C, D)
M4 = Midpoint(G, H)
M1 = Midpoint(A, B)
M3 = Midpoint(E, F)
a = Surface(j, (25 * cos(i)), (25 * sin(i)), i, 0, 3.141592653589793, j, (-hoogte1), hoogte1)
hoogtestap = 10
I = Intersect(c, n, 1)
J = Intersect(k, n, 1)
K = Intersect(p, n, 1)
L = Intersect(q, n, 1)
rand1_2 = CircumcircleArc((hoogte1, x(A), y(A)), (hoogte1, x(I), y(I)), (hoogte1, x(B), y(B)))
rand1_1 = CircumcircleArc(((-hoogte1), x(A), y(A)), ((-hoogte1), x(I), y(I)), ((-hoogte1), x(B), y(B)))
hoogte2: hoogte1 - hoogtestap
hoogte3: hoogte1 - (2 * hoogtestap)
hoogte4: hoogte1 - (3 * hoogtestap)
j_1 = Surface(j, (20 * cos(i)), y(M2) + (20 * sin(i)), i, 0, 3.141592653589793, j, (-hoogte2), hoogte2)
l = Surface(j, (15 * cos(i)), y(M3) + (15 * sin(i)), i, 0, 3.141592653589793, j, (-hoogte3), hoogte3)
m = Surface(j, (10 * cos(i)), y(M4) + (10 * sin(i)), i, 0, 3.141592653589793, j, (-hoogte4), hoogte4)
rand2_1 = CircumcircleArc((hoogte2, x(C), y(C)), (hoogte2, x(J), y(J)), (hoogte2, x(D), y(D)))
rand2_2 = CircumcircleArc(((-hoogte2), x(C), y(C)), ((-hoogte2), x(J), y(J)), ((-hoogte2), x(D), y(D)))
rand3_2 = CircumcircleArc((hoogte3, x(E), y(E)), (hoogte3, x(K), y(K)), (hoogte3, x(F), y(F)))
rand3_1 = CircumcircleArc(((-hoogte3), x(E), y(E)), ((-hoogte3), x(K), y(K)), ((-hoogte3), x(F), y(F)))
rand4_1 = CircumcircleArc(((-hoogte4), x(G), y(G)), ((-hoogte4), x(L), y(L)), ((-hoogte4), x(H), y(H)))
rand4_2 = CircumcircleArc((hoogte4, x(G), y(G)), (hoogte4, x(L), y(L)), (hoogte4, x(H), y(H)))