C = (0, -3)
rolengte = 6 (slider from 0 to 10, step 0.1)
hoek = 0.9773843811168246 rad (slider from 0 to 79°, step °)
A = Point(Circle[C, rolengte])
k = Segment(C, A)
A' = Rotate(A, hoek, C)
γ = Angle(A, C, A')
C' = Rotate(C, (-hoek), A)
δ = Angle(C', A, C)
h = Ray(A, C')
l = Ray(C, A')
G = Intersect(h, l)
p = Circle(G, 1.5)
H, I = Intersect(p, l)
g = Segment(H, C)
f = Segment(H, G)
j = Segment(H, A)
i = Segment(G, A)