straalbl = 2 (slider from 0 to straalzw, step 0.1)
A = (-8, -11)
straalzw = 3 (slider from 0 to 5, step 0.1)
c = Circle(A, straalzw)
B = Point(c)
r = Circle(B, straalbl)
f = Line(A, B)
C, N = Intersect(r, f)
d = Circle(C, B)
D = PointIn(d)
E = PointIn(d)
g = Line(D, E)
F = Intersect(d, g, 1)
G = Intersect(c, g, 1)
H = Intersect(d, g, 2)
I = Intersect(c, g, 2)
h = Segment(G, F)
i = Segment(F, D)
k = Segment(E, H)
l = Segment(H, I)
J = (3, -8)
K = (4, -8)
p = Segment(J, K)
L = (5, -8)
q = Segment(K, L)
M = (6, -8)
s = Segment(L, M)
veelhoek1, b, d_1, e = Polygon(D, E, B)