% Estereograma en color (ejemplo básico)

% Parámetros
width = 600;    % ancho de la imagen
height = 400;   % alto de la imagen
shift = 25;     % desplazamiento para el efecto 3D   10

% Crear patrón base en color (ruido aleatorio RGB)
pattern = randi([0 255], height, width, 3, 'uint8');

% Definir una figura oculta (ejemplo: círculo)
[x, y] = meshgrid(1:width, 1:height);
circle = (x - width/2).^2 + (y - height/2).^2 < (80^2);  %%% tenia (80^2)

% Crear el estereograma aplicando desplazamiento
stereogram = pattern;
for row = 1:height
    for col = (shift+1):width
        if circle(row, col)
            stereogram(row, col, :) = pattern(row, col-shift, :);
        end
    end
end

% Mostrar resultado
imshow(stereogram);
title('Estereograma en color');
