闲来无事,做一个视频转GIF的代码,整点花活,感觉自己做会很有意思。可以对原视频进行矩形截取。当然,实现的方式不唯一,此处的供借鉴使用。
话不多说,直接上代码。注释很详细,有问题可以评论留言~
%% ------------------------- 视频转GIF动图
% Made:在路上,正出发
% Date:2022 02 04
% Ref: MathWorks官网论坛
% -----------------------------
%% 准备
clc;
clearvars;
close all;
movieName='C:\Users\XYB\Desktop\TEST.mp4'; %视频ID 视频格式必须为 VideoReader 函数所支持的格式
GIFfilename='C:\Users\XYB\Desktop\output.gif'; %GIF文件保存ID 每个人不同,需更改
%% GIF图片保存设置配置
isCrop=true; %是否截取部分画面 ture(1)是,false(0)否
DelayTime=0; %GIF每两幅图之间的延时,设为0时为原视频的播放速度
rate=2; %视频保存为GIF的帧间隔,如设为3,则第1、4、7、10、……3*n+1 帧的图片被保存
Q=256; % 用于最小方差量化的量化颜色数
%% GIF生成
vidObj = VideoReader(movieName);%创建视频对象
% -1- 选择视频截取区域
if isCrop==1
frame = read(vidObj,1);%选择第一帧的图片作为截取的参考图,此处也可以改为第2、3帧等
figure;
imshow(frame);
title('请选择要保存的区域')
rect=getrect;%根据鼠标选择的矩形进行截取
close all; %清除图窗
vidObj = VideoReader(movieName);%重置视频对象
end
% -2-循环转换GIF(逐帧截取、逐帧保存)
idx=1;
while (idx<=vidObj.NumFrames)%判断是还有帧数据可读
if mod(idx,rate)==1%GIF的帧间隔控制
im = read(vidObj,idx);%读取一帧
if isCrop==1
im=imcrop(im,rect);%截取之前所选中矩形框内的部分
end
[A,map] = rgb2ind(im,Q);%转换为索引图象,A中的元素为颜色的索引号,map为量化的颜色(RGB三色)
% GIF保存 详见imwrite函数具体使用 ↓
% https://www.mathworks.com/help/matlab/ref/imwrite.html?searchHighlight=imwrite&s_tid=srchtitle_imwrite_1
if idx == 1
imwrite(A,map,GIFfilename,'gif','LoopCount',Inf,'DelayTime',DelayTime)%GIF循环播放
else
imwrite(A,map,GIFfilename,'gif','WriteMode','append','DelayTime',DelayTime);
end
end
idx=idx+1;
end
随意做的一个运行结果图:
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)