fly_zzy.m

来自「学matlab还有比这个更好的吗?我千兴万苦才找到的,这是一个学习matlab的」· M 代码 · 共 12 行

%fly_zzy.m		连续改变相机位置，产生贯穿地球的效果
earth_zzy(0)	% 调用函数文件，产生三维地球图形。							<2>
set(gca,'CameraViewAngleMode','manual')									%<3>
pos=get(gca,'CameraPosition');				%获取相机初始位置	
tar=get(gca,'CameraTarget');				%获取相机目标位置
kk=(0:2:40)/15;nk=length(kk);												%<6>
for i=1:nk-1
   newpos=pos-kk(i)*(pos-tar);				%计算新位置					<8>
   set(gca,'CameraPosition',newpos)		%设置相机新位置				<9>
   drawnow																		%<10>
end