第基于Matlab制作偽3D第一視角迷宮小游戲draw3D(ROLEP,BLOCK,PLINE,lineNum)

%%========================================================================

%角色移動函數(shù)

set(fig,'KeyPressFcn',@key)

functionkey(~,event)

%按鍵函數(shù)

switchevent.Key

case'uparrow'

ROLEP.xpos=ROLEP.xpos+cos(ROLEP.theta).*.2;

ROLEP.ypos=ROLEP.ypos+sin(ROLEP.theta).*.2;

case'leftarrow'

ROLEP.theta=ROLEP.theta+pi/20;

case'rightarrow'

ROLEP.theta=ROLEP.theta-pi/20;

[tX,tY]=rotateData(ROLEP.triX,ROLEP.triY,ROLEP.theta);

ROLEP.pfill.XData=tX+ROLEP.xpos;

ROLEP.pfill.YData=tY+ROLEP.ypos;

ROLEP.pshape=polyshape(tX+ROLEP.xpos,tY+ROLEP.ypos);

draw3D(ROLEP,BLOCK,PLINE,lineNum)

%%========================================================================

%視角檢測及偽3D圖繪制

functiondraw3D(RP,BK,PLINE,LN)

%delete(findobj('Tag','blockLine'))

thetaListV=linspace(pi/3,-pi/3,LN);

thetaList=thetaListV+RP.theta;

%內(nèi)積法計算距離

cutoff=1e-5;

cosList=cos(thetaList);

sinList=sin(thetaList);

vecList=BK.pntSet-[RP.xpos,RP.ypos];

disMat=vecList*[cosList;sinList];

disMat(disMat0)=inf;

normList=vecnorm(vecList')';

diffMat=abs(disMat-repmat(normList,[1,size(disMat,2)]));

disMat(diffMatcutoff)=inf;

minList=min(abs(disMat));

%圖像重繪

fori=1:length(thetaList)

tLen=10/abs(minList(i))/abs(cos(thetaListV(i))).*0.6;tLen(tLen10)=10;

PLINE.plotLine3(i).Color=[1,1,1]./10.*tLen;

PLINE.plotLine3(i).YData=[5-tLen/2,5+tLen/2];

PLINE.plotLine2(i).XData=[RP.xpos,RP.xpos+cos(thetaList(i))*abs(minList(i))];

PLINE.plotLine2(i).YData=[RP.ypos,RP.ypos+sin(thetaList(i))*abs(minList(i))];

%%========================================================================

%數(shù)據(jù)旋轉(zhuǎn)角度

function[X,Y]=rotateData(X,Y,theta)

rotateMat=[cos(theta),-sin(theta);sin(theta),cos(theta)];

XY=rotateMat*[X;Y]