α

K

A'

O = Intersect(xAxis, yAxis)
c = Circle(O, 1)
B = Intersect(c, xAxis, 2)
a = 5.655 (slider from 0 to (6 * π), step 0.005)
B' = Rotate(B, a, O)
α = Angle(B, O, B')
f = Line(O, B)
d = Circle(O, a)
C = Intersect(d, f, 2)
g = OrthogonalLine(C, f)
u = Vector(O, B')
i = Tangent(B, c)
h = Line(B', O)
A = Intersect(i, h)
j = OrthogonalLine(A, g)
D = Intersect(g, j)