% tiffany.m  Anwendung der Farbdefinition mit
%   einem zus\"atzlichen  
%  Durchsichtigkeits-Koeffizienten   'FaceAlpha'
%   auf einen Rotationk\"orper, dessen Oberfl\'ache mit
%   einer Patchstruktur bedeckt ist.
w = 0:pi/6:2*pi;
r = 0:0.075:0.9;
x = r'*cos(w);
y = r'*sin(w);
colar = r'*ones(1,length(w));
rr = r.^4;
z = 1-1.2*rr'*ones(1,length(w));
%
verx = reshape(x,length(r)*length(w),1);
very = reshape(y,length(r)*length(w),1);
verz = reshape(z,length(r)*length(w),1);
vert = [verx very verz];
cols =  reshape(colar,length(r)*length(w),1);
%
fcol = ( 1:length(w)*(length(r)-1)  )' ;
fccond = mod(fcol,13) == 0 ;
fcol(fccond) = [];
%
facmat = [fcol fcol+1 fcol+14 fcol+13];
coltabe = (1:4:4*169)';
%
tifhdl = patch('vertices',vert,'faces',facmat, ...
   'FaceVertexCdata',coltabe,...
    'FaceColor','flat','FaceAlpha',0.4);
axis equal;  view(28,16);
disp('Bitte return  druecken fuer Abschluss')
pause
delete(tifhdl); delete(gca);

