端午节用MATLAB制作一款龙舟小游戏叭

效果图： 没找到合适的背景就自己画了个，大家如果有更好看的可以换一下。。。

步骤 1 创建Axes及图片导入

窗口创建：

Mainfig=figure('units','pixels','position',[50 100 760 400],...
                       'Numbertitle','off','menubar','none','resize','off',...
                       'name','dragonBoat');
axes('parent',Mainfig,'position',[0 0 1 1],...
   'XLim', [0 760],...
   'YLim', [0 400],...
   'NextPlot','add',...
   'layer','bottom',...
   'Visible','on',...
   'YDir','reverse',...
   'XTick',[], ...
   'YTick',[]);

图片导入：

[bkg_C,~,~]=imread('river.png');
[boat_C,~,boat_Alp]=imread('boat.png');
[stone_C,~,stone_Alp]=imread('stone.png');

图片素材可以从这里拿哟： 百度网盘链接：https://pan.baidu.com/s/1t1KxW0zCM3N9ovEe-5Mp2Q 提取码：czd8

2 创建timer函数移动背景

DrawBkgHdl=image([0 760],[0 400],bkg_C);

t=0;
tempBkg_C=[bkg_C,bkg_C];
fps = 20;
game = timer('ExecutionMode', 'FixedRate', 'Period',1/fps, 'TimerFcn', @dragongame);
start(game)

	function dragongame(~,~)
        t=t+6;
        modt=mod(t,720);
        
        newBkg_C=tempBkg_C(:,1+modt:684+modt,:);
        set(DrawBkgHdl,'CData',newBkg_C) 
    end

3 绘制石块并移动

其实是5个石块来回变位置，当一个石块位置减小到负数就把数值增加并重新绘制

stonePos=[600;870;1140;1410];
stonePos=[stonePos,randi([90,330],[4,1])];
for i=1:size(stonePos,1)
    drawStoneHdl(i)=image([stonePos(i,1)-39 stonePos(i,1)+39],[stonePos(i,2)-20 stonePos(i,2)+20],stone_C,'AlphaData',stone_Alp);
end

	function dragongame(~,~)

		%这里是之前写的背景部分代码
		%。。。。。。。。。。。
		%。。。。。。。。。。。
		
        stonePos(:,1)=stonePos(:,1)-20/3;
        stonePos(stonePos(:,1)