f: y = sin(x)
A = Point(f)
c = CurvatureVector(A, f)
A' = Translate(A, c)
d = Circle(A', A)
g = Tangent(A, f)