map(lambda([t],
plot2d([parametric,if abs(y)>1 then -y*sin(t/y^2) else -y*sin(t),
if abs(y) >1 then y*cos(t/y^2) else y*cos(t),[y,-3,3],[nticks,10000]],
[gnuplot_preamble, "set size ratio -1"],[x,-3,3],[y,-3,3])),
makelist(0.5*i,i,0,100))$