afstand = 2 (slider from 0 to straal, step 0.1)
straal = 3.2 (slider from 0 to 5, step 0.1)
A = (-8, -13)
c = Circle(A, straal)
B = (-8, -17)
f = Line(A, B)
d = Circle(A, afstand)
e = Circle(B, straal)
g = Circle(B, afstand)
C, D = Intersect(d, f)
E, F = Intersect(g, f)
h = OrthogonalLine(C, f)
i = OrthogonalLine(E, f)
G, H = Intersect(c, h)
I, J = Intersect(e, i)
k = CircleArc(B, J, I)
p = CircleArc(B, J, I)
q = CircleArc(A, H, G)
r = CircleArc(A, H, G)
j = Segment(G, H)
l = Segment(I, J)