lengte = 4 (slider from 0 to 5, step 0.05)
hoek = 1.2217304763960306 rad (slider from 0 to 179°, step 0.017453292519943295)
B_1: (15, 0)
A = (-1, 0)
s = Circle(A, (2 * lengte))
r = Line(A, B_1)
B = Intersect(s, r, 2)
C = Midpoint(B, A)
C' = Rotate(C, (-hoek), B)
g = Ray(B, C')
j = Line(C, g)
f = Segment(B, A)
h = OrthogonalLine(B, f)
hoogte = 3 (slider from 0 to 5, step 0.05)
c = Circle(B, hoogte)
K = Intersect(c, h, 2)
i = OrthogonalLine(K, h)
D = Intersect(i, j)
D_1 = Intersect(c, h, 1)
E = Intersect(g, i)
k = Line(A, j)
G = Intersect(i, k)
hoekplaats = 0.6 (slider from 0 to 1, step 0.05)
l = Segment(D, B)
d = Circle(B, (hoekplaats * l))
F = Intersect(d, l, 1)
m = Line(F, g)
n = Line(F, f)
H = Intersect(j, n)
I = Intersect(k, n)
J = Intersect(m, f)
veelhoek2, j_2, c_1, h_2, f_2 = Polygon(J, C, H, F)
veelhoek3, c_2, a, i_1, h_3 = Polygon(C, A, I, H)
p = Segment(D, G)
q = Segment(G, I)
M = Intersect(s, r, 1)
β = Angle(C, B, C')
L = Intersect(i, m)
N = Intersect(n, g)
veelhoek1, b, j_1, n_1, p_1 = Polygon(J, B, N, F)
veelhoek4, e, k_1, l_1, m_1 = Polygon(F, N, E, L)
veelhoek5, t, f_1, g_1, h_1 = Polygon(F, H, D, L)
O = (12, -3)
P = (13.5, -3)
Q = (15, -3)
q_1 = Segment(O, P)
r_1 = Segment(P, Q)
s_1 = Segment(O, Q)