parametriche cardioide

x=k *(2 cos(t)- cos(2t))
y=k*(2 sin(t)- sin(2t))

inserire slider per t, k
inserire parametriche x, y : rette
intersezione rette A
luogo (A, t)
modificare k

t = 4.7 (slider from -5 to 7, step 0.1)
k = -1 (slider from -1 to 2, step 0.1)
a: x = k * (2 * cos(t) - cos(2 * t))
b: y = k * (2 * sin(t) - sin(2 * t))
A = Intersect(a, b)
luogo1 = Locus(A, t)