KR / KR

clc;
clear all;
close all;

% Открываем исходный видеофайл
input_file_name = 'input_video.mp4';
video_in = VideoReader(input_file_name);

% Создаем объект для записи видео
output_file_name = 'output_video.mp4';
video_out = VideoWriter(output_file_name, 'MPEG-4');
open(video_out);

% Читаем свойства видео
width = video_in.Width;
height = video_in.Height;
frameRate = video_in.FrameRate;
numOfFrames = round(video_in.Duration * frameRate);

% Подготовка структуры для обработанного видео
mov = struct('cdata', [], 'colormap', []);

% Цикл по кадрам видео
for k = 1 : numOfFrames
    % Чтение одного кадра
    frame = readFrame(video_in);
    
    % Разделение кадра на R, G, B компоненты
    R = frame(:,:,1);
    G = frame(:,:,2);
    B = frame(:,:,3);
    
    % Расчет сдвига для текущего кадра (плавное изменение)
    shiftR = round(sin(pi * (k-1) / (2*numOfFrames)) * 10);  % сдвиг влево для R
    shiftB = round(cos(pi * (k-1) / (2*numOfFrames)) * 10);  % сдвиг вправо для B
    
    % Сдвигаем компоненты R и B
    R_shifted = circshift(R, [0 -shiftR]);
    B_shifted = circshift(B, [0 shiftB]);
    
    % Собираем обратно в кадр
    frame_shifted = cat(3, R_shifted, G, B_shifted);
    
    % Записываем кадр в выходной файл видео
    writeVideo(video_out, frame_shifted);
    
    % Сохраняем кадр для возможного воспроизведения в MATLAB
    mov(k).cdata = frame_shifted;
end

% Закрываем файл выходного видео
close(video_out);

% Воспроизведение видео в MATLAB
hf = figure;
set(hf, 'position', [150 150 width height]);
movie(hf, mov, 1, frameRate);