Tangencia horizontal y vertical

a = 2 (slider from -2 to 2, step 0.1)
mod(x) = ((((3 * a) * sin(x)) * cos(x))) / ((sin(x))^(3) + (cos(x))^(3))
paramétricas = CurveCartesian((mod(t) * cos(t)), (mod(t) * sin(t)), t, (3 * π / 4), (7 * π / 4))
xx(x) = (mod(x) * cos(x))
yy(x) = (mod(x) * sin(x))
t = 3.141194490192345 (slider from (3 * π / 4) to (7 * π / 4), step 0.001)
P: (xx(t), yy(t))
T1: ((a * 2^(1 / 3)), (a * 4^(1 / 3)))
T2: ((a * 4^(1 / 3)), (a * 2^(1 / 3)))
T0: (0, 0)
c = false
f = OrthogonalLine(T1, yAxis)
h = OrthogonalLine(T0, xAxis)
i = OrthogonalLine(T0, h)
g = OrthogonalLine(T2, i)
vtg = Vector(P, P + UnitVector[paramétricas'(t)])
l = Line(P, vtg)
tt: tan(t)
texto2: "" + tt + ""
texto = If(tt > 1000, "∞", If[tt < -1000, "-∞", texto2])
texto1: "t=" + (LaTeX[texto]) + ""