stomphoek = 2.2689280275926285 rad (slider from 90° to 180°, step °)
basis = 4 (slider from 0 to 5, step 0.1)
B = (1, 2)
c = Circle(B, basis)
A = (-4, 2)
h = Line(A, B)
C = Intersect(c, h, 1)
C' = Rotate(C, (-stomphoek), B)
lijnro = 5 (slider from 0 to 7, step 0.1)
f = Segment(C, B)
g = Ray(B, C')
d = Circle(B, lijnro)
D = Intersect(d, g, 1)
i = OrthogonalLine(D, h)
E = Intersect(h, i)
j = Segment(E, D)
k = Segment(D, B)
l = Segment(D, C)
m = Segment(B, E)