%% Propagation d'une onde (fausse)
%   d un emetteur vers son recepteur



figure(1);clf;whitebg('w');


Rinit=-2:0.2:0;
cpt=0;
for t=(0:0.5:40)/10;
    clf;hold on
    axis([-3 1 -2 2]);axis off;

    pe=plot(0,0,'.r');set(pe,'markersize',40)
    pr=plot(-2,0,'.k');set(pr,'markersize',40)

    R=Rinit+t;
    Rs=R.*(R>0);
    tht=2*pi/3:0.01:4*pi/3;

    for R=Rs
        Ondex=R*cos(tht);
        Ondey=R*sin(tht);

        po=plot(Ondex,Ondey,'-b');
        set(po,'linewidth',5)
    end
    cpt=cpt+1;;
    M(cpt)=getframe;
    %pause(0.05)
end