close all
f=figure;
set(f,'Position',[0 0 1024 680],'Color',[1 1 1], 'MenuBar', 'none')
tierra(.5,.5,-sqrt(.5)-.33,.3);
%axis([0 1 0 1 -1 0]);
colormap('jet');
hold on
%pause
%for j=1:10
%camzoom(.98)
%pause(.01)
%end

%axis equal
axis off
hold on
[X,Y,Z]=sphere(30);
h1=surf(.1*X,.1*Y,.1*Z);
h2=surf(.1*X+1,.1*Y,.1*Z);
h3=surf(.1*X,.1*Y+1,.1*Z);
h4=surf(X,Y,Z,Z);
h5=surf(X+1,Y,Z,Z.^3);
h6=surf(X,Y+1,Z,Z.^6);
view(3)
axis image
axis off
set(h3, 'FaceAlpha',0);
set(h4, 'FaceAlpha',0);
set(h5, 'FaceAlpha',0);
set(h6, 'FaceAlpha',0);
set(h3, 'EdgeAlpha',0);
set(h4, 'EdgeAlpha',0);
set(h5, 'EdgeAlpha',0);
set(h6, 'EdgeAlpha',0);

pause

%colormap('jet');
%shading faceted;

for j=1:10
set(h4, 'FaceAlpha',j*.01);
set(h4, 'EdgeAlpha',j*.01);
pause(.3)
end

pause

for j=1:10
set(h5, 'FaceAlpha',j*.01);
set(h5, 'EdgeAlpha',j*.01);
pause(.3)
end

pause


t=0:.01:2.1*pi;
equis=.5*ones(1,length(t));
plot3(equis,(sqrt(3/4))*cos(t),(sqrt(3/4))*sin(t),'r','LineWidth',2);

pause

for j=1:120
    camzoom(1.01)
    pause(.01)
end

pause

for j=1:120
    camzoom(.99)
    pause(.01)
end

pause

set(h3, 'FaceAlpha',1);
set(h3, 'EdgeAlpha',1);


for j=1:10
set(h6, 'FaceAlpha',j*.01);
set(h6, 'EdgeAlpha',j*.01);
pause(.3)
end

pause

plot3((sqrt(3/4))*cos(t),equis,(sqrt(3/4))*sin(t),'r','LineWidth',2);

for j=1:50
    camorbit(1,0)
    pause(.1)
end

plot3(.5,.5,sqrt(.5),'y+','MarkerSize',20, 'LineWidth',6);
plot3(.5,.5,-sqrt(.5),'y+','MarkerSize',20, 'LineWidth',6);

for j=1:200
    camorbit(1,0)
    pause(.1)
end

pause

for j=1:120
    camzoom(1.01)
    pause(.01)
end