Referencia

R = (3.96, 4.24)
S = (7.7, -3.38)
r = Line(R, S)
f(x) = cos(x) + sin(x)
g(x) = sin(2 * x) - cos(x)
c = CurveCartesian(f(t), g(t), t, 0, 12.566370614359172)
t = 0 (slider from 0 to 6.28318531, step 0.0010)
t0 = 0.75
O: c(t0)
v0 = Vector(O, O + (f'(t0), g'(t0)))
n0 = CurvatureVector(O, c)
p0: v0 ⊗ n0
referencia = false
A: c(t)
v = Vector(A, A + (f'(t), g'(t)))
n = CurvatureVector(A, c)
a = Tangent(A, c)
B = Intersect(r, a)
d = Circle(B, A)
b = OrthogonalLine(A, a)
s = If(sgn(v ⊗ n) ≟ sgn(p0), -1, 1)
C: A + s * n
e = Line(C, v)
D = Intersect(r, e)
E = Intersect(d, Ray[B, D])
h = LineBisector(A, E)
F = Intersect(h, b)
i = Circle(F, A)