Figuur I

afstand = 1 (slider from If[3 - (2 * straalbl) ≤ 0, 0, 3 - (2 * straalbl)] to 3, step 0.1)
A = (-8, -11)
p = Circle(A, afstand)
I = Point(Segment[A, (x(A) + 10, y(A))])
c = Circle(A, I)
B = Point(c)
f = Line(A, B)
d = Circle(B, 0.1)
C, D = Intersect(d, f)
E = Point(Segment[A, C])
g = Circle(E, C)
G = Point(g)
k = CircleArc(E, C, G)
B' = Point(k)
α = Angle(B, A, B')
B'_1 = Rotate(C, (-α), A)
l = Line(A, B'_1)
J, K = Intersect(p, l)
straalbl = 2 (slider from 0 to 5, step 0.1)
e = Circle(C, straalbl)
F = Intersect(p, l, 1)
q = Circle(B', 0.1)
β = Angle(B'_1, A, B)
h = Segment(B', A)
H = (-13.010011771212916, -14.646161895968133)
j = Segment(K, B')
m = Segment(A, K)
L = Intersect(l, m)
M = Intersect(l, m)
N = Intersect(m, l)
n = Segment(B'_1, K)
O = Intersect(l, n)
P = Intersect(p, n)