lemn.m

function lemn(n)
  if (n <= 0), n = 24; end;
  colors = 'mcrgb';
  for k = 0:n-1
    plot_one(k * pi / n, colors(mod(k, length(colors)) + 1));
    pause(0.05);
  end
end

function plot_one(dfi, color)
  fi = -pi/4:pi/200:pi/4;
  ro = sqrt(2*cos(2*fi));
  polar(fi+dfi,ro,color);
  hold on;
  polar(fi+dfi,-ro,color);
  grid on;
end