B = (0, -1)
straalro = 3 (slider from 0 to 5, step 0.1)
d = Circle(B, straalro)
A = Point(d)
f = Segment(B, A)
straalzw = 2.001 (slider from 0 + 0.001 to straalro - 0.001, step 0.1)
e = Circle(A, straalzw)
C = Intersect(e, f)
c = Circle(C, A)
l = OrthogonalLine(C, f)
H = Intersect(c, l, 2)
I = Intersect(c, l, 1)
p = CircleSector(C, H, I)
E = Point(c)
D = PointIn(p)
g = Segment(D, E)
h = Segment(D, A)
k = Ray(A, B)
G = Intersect(d, k, 2)
i = Ray(D, E)
F = Intersect(d, i, 1)
j = Segment(E, F)