使用MATLAB最新的videowriter函數(shù)制作了一個(gè)古詩句的小視頻，程序如下：

writerObj = VideoWriter('gushi.mp4','MPEG-4');

writerObj.FrameRate = 0.25;

gushi={'意境優(yōu)美，畫面感極強(qiáng)的千古佳句';...

? ? '醉后不知天在水，滿船清夢(mèng)壓星河';'疏影橫斜水清淺，暗香浮動(dòng)月黃昏';...

? ? '東邊日出西邊雨，道是無晴還有晴';'曾經(jīng)滄海難為水，除卻巫山不是云';...

? ? '此情可待成追憶，只是當(dāng)時(shí)已惘然';'忽如一夜春風(fēng)來，千樹萬樹梨花開';...

? ? '我是人間惆悵客，知君何事淚縱橫';'君埋泉下泥銷骨，我寄人間雪滿頭';...

? ? '世間安得雙全法，不負(fù)如來不負(fù)卿';'最是人間留不住，朱顏辭鏡花辭樹';...

? ? '正是江南好風(fēng)景，落花時(shí)節(jié)又逢君';'直道相思了無益，未妨惆悵是清狂';...

? ? '落霞與孤鶩齊飛，秋水共長(zhǎng)天一色';'山重水復(fù)疑無路，柳暗花明又一村';...

? ? '還君明珠雙淚垂，恨不相逢未嫁時(shí)';'天長(zhǎng)地久有時(shí)盡，此恨綿綿無絕期';...

? ? '人生若只如初見，何事秋風(fēng)悲畫扇';'小樓一夜聽春雨，深巷明朝賣杏花';...

? ? '勸君更盡一杯酒，西出陽關(guān)無故人';'醉臥沙場(chǎng)君莫笑，古來征戰(zhàn)幾人回';...

? ? '羌笛何須怨楊柳，春風(fēng)不度玉門關(guān)';'南朝四百八十寺，多少樓臺(tái)煙雨中';...

? ? '沾衣欲濕杏花雨，吹面不寒楊柳風(fēng)';'除卻君身三重雪，天下誰人配白衣'};

? ??

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);

視頻制作完成后又通過其他軟件添加了背景音樂，最后完整的視頻連接如下：

https://www.bilibili.com/video/BV1dA411T7ch