使用MATLAB制作视频
使用MATLAB最新的videowriter函数制作了一个古诗句的小视频,程序如下:
writerObj = VideoWriter('gushi.mp4','MPEG-4');
writerObj.FrameRate = 0.25;
gushi={'意境优美,画面感极强的千古佳句';...
'醉后不知天在水,满船清梦压星河';'疏影横斜水清浅,暗香浮动月黄昏';...
'东边日出西边雨,道是无晴还有晴';'曾经沧海难为水,除却巫山不是云';...
'此情可待成追忆,只是当时已惘然';'忽如一夜春风来,千树万树梨花开';...
'我是人间惆怅客,知君何事泪纵横';'君埋泉下泥销骨,我寄人间雪满头';...
'世间安得双全法,不负如来不负卿';'最是人间留不住,朱颜辞镜花辞树';...
'正是江南好风景,落花时节又逢君';'直道相思了无益,未妨惆怅是清狂';...
'落霞与孤鹜齐飞,秋水共长天一色';'山重水复疑无路,柳暗花明又一村';...
'还君明珠双泪垂,恨不相逢未嫁时';'天长地久有时尽,此恨绵绵无绝期';...
'人生若只如初见,何事秋风悲画扇';'小楼一夜听春雨,深巷明朝卖杏花';...
'劝君更尽一杯酒,西出阳关无故人';'醉卧沙场君莫笑,古来征战几人回';...
'羌笛何须怨杨柳,春风不度玉门关';'南朝四百八十寺,多少楼台烟雨中';...
'沾衣欲湿杏花雨,吹面不寒杨柳风';'除却君身三重雪,天下谁人配白衣'};
for i=1:25
imshow('醉后.JPEG')
text(180,130,gushi{i},'color','white','Fontsize',18)
open(writerObj);
frame = getframe;
writeVideo(writerObj,frame);
clf;
end
close(writerObj);
视频制作完成后又通过其他软件添加了背景音乐,最后完整的视频连接如下: