Tangent to Curve

r = CurveCartesian(((t * cos(t)), t, (t * sin(t))), t, -7, 7)
a = CurveCartesian(r'(x), x, -10, 10)
P: r(pi)