function lect_courb(nb_chif)
% lit les coordonnées des points d'une courbe
%
% variables d'entrée et fonctionnement
% Tant que l'utilisateur clique gauche,
% le système affiche les coordonnées du point
% choisi à la souris.
% nb_chif désigne le nombre de décimales demandées,
% afin de ne pas encombrer l'écran en cas de lectures
% multiples. On impose 0<=nb_chif<=3, aisément modifiable.
% On sort en cliquant droit.
%
% variables de sortie
% affichage des coordonnées du point cliqué.
% 
% 
% ************ Fonctions connexes utilisées ***************
% 
% *********************************************************

% Contrôles d'entrée
% nombre d'arguments
if nargin~=1
    error('Nombre d''argument incorrect. Revoir le source.');
end


% autres tests éventuels  
if (nb_chif<0)|(nb_chif>3)
    error('Champ incorrect.Modifier le source si besoin');
end

   
% Corps d'algorithme

% traitement proprement dit
bout=1;
while bout==1
    [x,y,bout]=ginput(1);
    % réglage des sorties
    entx=length(num2str(floor(x)));
    enty=length(num2str(floor(y)));
    fx=['%' num2str(entx) '.' num2str(nb_chif) 'f'];
    fy=['%' num2str(enty) '.' num2str(nb_chif) 'f'];
    text(x,y,['x=' num2str(x,fx) ' y=' num2str(y,fy)]);
end


% variante pour la sortie des résultats
% L'utilisateur pourra afficher seulement le numéro des points
% saisis sur la courbe; il remplira en meme temps une table
% des coordonnées qu'il peut ajouter comme paramètre de sortie
% de cette nouvelle fonction.


% fin de fonction()



