lijnbl = 3 (slider from 0 to 5, step 0.1)
B = (13, -1)
A = (-3, -1)
c_1 = Circle(A, lijnbl)
f = Line(A, B)
g = OrthogonalLine(A, f)
E, I = Intersect(c_1, g)
i = Line(I, f)
C = Intersect(c_1, f, 2)
j = Line(C, g)
G = Intersect(i, j)
lijnro = 2 (slider from 0 to 5, step 0.1)
d_1 = Circle(C, lijnro)
D = Intersect(d_1, f, 2)
k = Line(D, g)
veelhoek1, l, m, n, p = Polygon(A, C, G, I)
H = Intersect(i, k)
veelhoek2, c_3, d_2, h_1, g_2 = Polygon(C, D, H, G)