function i_bar=dessin(n)
% Placer les points et la barre; placer le réflexe

% Les points, la barre et le texte affiché
val=rand(n,1);   % valeurs pseudo-aléatoires
plot(val,zeros(n,1),'+')
hold on
% La barre en rouge, à l'abscisse 0.9
xb=0.9; lg=0.5;
i_bar=plot([xb,xb],0.5*[-lg lg],'Color','r','LineWidth',2);
% proportion  de valeurs supérieures à xb
pc = sum(val>xb)/length(val);
txt = ['% valeurs à droite: ' num2str(pc)];
text(0,-lg/2,txt,'Tag','pourcentage');
axis([-0.1 1.1 -lg lg])     % bornes sur les axes
hold off                    % fin des tracés

% Animation de la  barre et mémorisation nécessaire
a.val = val;
% Le réflexe: générer: 'deplace(3);' (si la fenêtre est 3)
i_gr = get(i_bar,'Parent'); i_fen=get(i_gr,'Parent');
rfx = ['deplace(' int2str(i_fen) ');'];

set(i_bar,'UserData',a, 'ButtonDownFcn',rfx);