clc
clear
[x,y,z]=sphere(50);
r=7;
t=0:0.08:10;
bb1='D:\';
for i=1:70
x1=x+r*cos(t(i));
y1=y+r*sin(t(i));
z1=z;
h=surf(x1,y1,z1);
hold on
x2=x*2;
y2=y*2;
z2=z*2;
surf(x2,y2,z2);
colormap([0 0.8 0.7])
axis([-10 10 -10 10 -10 10])
axis square
grid on
set(h,'facelighting','flat','facecolor','interp')
light('position',[100 1 10],'color',[1 1 1],'style','local')
shading interp
hold off
m(i)=getframe(gcf);
[xx,mm] = frame2im(m(i));
hh1=int2str(i);
mm1=[bb1,hh1,'.bmp'];
imwrite(xx,mm1);
end
hold off
以前做的玩的,在D盘生成电影图片的每一钲,下个软件就可以做成视频了
|