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

huright

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

复制代码

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

yyyllx

我看是地球逃跑了阿？

caichengtao

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

gdayang

没有动啊，我的