parametric plot [[0,1],[1,0]]*[[cos(t),-sin(t)],[sin(t),cos(t)]]*[[4,0],[0,1]]*[[cos(t),sin(t)],[-sin(t),cos(t)]]*[cos(4*t),sin(-4*t)]