lijnbl = 3 (slider from 0 to 5, step 0.1)
B = (13, -1)
A = (-3, -1.0199199753770394)
d = Circle(A, lijnbl)
f = Line(A, B)
D = Intersect(d, f, 2)
g = OrthogonalLine(A, f)
i = Line(D, g)
C = Intersect(d, g, 2)
h = Line(C, f)
E = Intersect(h, i)
lijnro = 2 (slider from 0 to 5, step 0.1)
e = Circle(E, lijnro)
G = Intersect(e, h, 2)
k = Line(G, i)
J = Intersect(f, k)
F = Intersect(e, i, 2)
j = Line(F, h)
H = Intersect(g, j)
I = Intersect(j, k)
veelhoek1, a_1, d_1, e_1, c_2 = Polygon(A, D, E, C)
veelhoek2, d_2, j_1, g_1, e_2 = Polygon(D, J, G, E)
veelhoek3, e_3, f_1, h_1, c_1 = Polygon(E, F, H, C)
veelhoek4, e_4, g_2, i_1, f_2 = Polygon(E, G, I, F)
m = Segment(A, I)
K = (4, -2)
L: (5.5, -2)
M = (7, -2)
N = (7, -3)
O: (5.5, -3)
P = (4, -3)
l = Segment(K, L)
n = Segment(P, O)
p = Segment(O, N)
q = Segment(M, L)