huright 发表于 2006-6-4 15:41

[分享]让地球动起来！！

ap=0;
load topo       
figure('colormap',topomap1,'Color',[.8 .8 .8]);        %        <6>
= sphere(50);
azzy.DataAspectRatio = ;azzy.PlotBoxAspectRatioMode = 'auto';
fa = axes('Visible','off', azzy);       
szzy1.AmbientStrength = 0.1;szzy1.DiffuseStrength = 1;
szzy1.SpecularColorReflectance = .5; szzy1.SpecularExponent = 20;
szzy1.SpecularStrength = 1;
surface(x,y,z,szzy1,'FaceLighting','phong','FaceColor','texture',...
       'EdgeColor','none','Cdata',topo,'Parent',fa);%        <13>
if ap==1,set(fa,'CameraViewAngle',0.1*get(fa,'CameraViewAngle'));end   
light('position',[-1 0 1],'color',);
light('position',[-1.5 0.5 -0.5],'color',[.6 .2 .2]);
light('Position',);
light('Position',,'color',);
view([-17 26])
set(gca,'CameraViewAngleMode','manual')
ang=get(gca,'CameraViewAngle');       
kk=(1:50)/50;nk=length(kk);
for i=1:nk
   newang=ang+kk(i)*(180-ang);               
   set(gca,'CameraViewAngle',newang)       
   drawnow                                                                       
end

[ 本帖最后由 suffer 于 2006-10-9 19:14 编辑 ]

yyyllx 发表于 2007-8-25 16:48

我看是地球逃跑了阿？

caichengtao 发表于 2007-9-2 21:29

要是能保持地球在窗口中随这鼠标拖动就可以了！

gdayang 发表于 2008-1-22 10:38

没有动啊，我的
页: [1]
查看完整版本: [分享]让地球动起来！！