gray_scale_original(s_raiz)

function gray_scale_original(s_raiz)

close all
set(0,'defaulttextinterpreter','none');

% se elije la imagen de la secuencia

n=input('Nmero = ','s');

dir_0='C:\software\';           % origen del programa
dir_1='C:\origen_imagenes\';    % origen de la imagenes

formato='.tif';
n_number=6;                     % nmero de dgitos para diferenciar imgenes

% se elije el nmero de ceros correspondiente

n_zeros=n_number-length(n);
cero='0';
while (length(cero)<n_zeros),
    cero=strcat(cero,'0');
end
s=strcat(s_raiz,cero,n,formato);

% se carga la imagen

A=imread(strcat(dir_1,s));
imshow(A);
hold on;

% mientras pulse con el boton izquierdo se obtienen los valores en escala
% de grises de el punto elegido

but=1;
disp('    x     y    gray');
while (but == 1)
    [x,y,but]=ginput(1);    % da los valores del punto donde hemos pinchado
    x=round(x);
    y=round(y);
    valor=double(A(y,x));
    disp([x y valor]);
    plot(x,y,'ro','MarkerSize',1);
end

cd(dir_0)