corda: ((π * 2)) / 3
δ: π / 12
β = 0 (slider from 0 to (23 * δ), step δ)
A = Point(yAxis)
c = Circle(A, 6)
B: (0, 6)
B' = Rotate(B, β, A)
CordaB = Rotate(B, corda, A)
CordaA = Rotate(B, (-corda), A)
f = Segment(CordaA, CordaB)
h = Segment(CordaA, B')
i = Segment(CordaB, B')
j = Line(A, i)
C, D = Intersect(c, j)
k = Segment(D, C)
B'' = Mirror(B', A)
g = Segment(B'', B')