function M = RD_a2movie(a)
%

[num_a,dummy] = size(a);

w = waitbar(0,'Make Movie');
for t = 1:num_a
    waitbar(t/num_a);
    clf
    hold on
    plot(0,0,'k.');
    plot(61,10,'k.');
    plot(a(t,:));
    M(t) = getframe;
end
close(w);
