A = (0, 0)
straal = 3 (slider from 0 to 5, step 0.1)
e = Circle(A, straal)
M = Point(e)
i = Ray(M, A)
C = Point(Circle[A, straal])
g = Segment(A, C)
D = Point(i)
h = Segment(A, D)
F = Point(Circle[A, straal])
k = Segment(A, F)
G = Point(Circle[A, straal])
l = Segment(A, G)
H = (-2, -6)
I = (1, -6)
J = (-0.5, -6)
m = Segment(H, J)
n = Segment(J, I)
j = Segment(D, M)
B = (-2, -7)
E = (-1, -7)
p = Segment(B, E)
K = (0, -7)
q = Segment(E, K)
N = (1, -7)
s = Segment(K, N)
L = Intersect(e, i, 2)
f = Segment(A, L)