wolffd@0: function mov = display(k,filename)
wolffd@0: % KEYSOM/DISPLAY display of key som
wolffd@0: 
wolffd@0: mov = [];
wolffd@0: load keysomaudiodata; 
wolffd@0: w = get(k,'Weight');
wolffd@0: n = get(k,'Name');
wolffd@0: if nargin>1
wolffd@0:     mov = avifile(filename);
wolffd@0: %elseif and(nargout>0,size(w)>0)
wolffd@0: %    mov = moviein(size(w{1}{1},2)); %no longer needed as of MATLAB Release 11 (5.3).
wolffd@0: end
wolffd@0: for i = 1:length(w)
wolffd@0:     wi = w{i};
wolffd@0:     fig = figure;
wolffd@0:     for j = 1:length(wi)
wolffd@0:         wj = wi{j};
wolffd@0:         for k = 1:size(wj,2)
wolffd@0:             for l = 1:size(wj,3)
wolffd@0:                 h = pcolor(squeeze(wj(:,k,l,:)));
wolffd@0:                 shading interp
wolffd@0:                 axis([1,36,1,24]), view(2) , caxis([-1 1])
wolffd@0:                 axis off;
wolffd@0:                 hold on
wolffd@0:                 for m=1:24 
wolffd@0:                     text(0.99*keyx(m)-1, 0.98*keyy(m)+1, keyN(m,:),...
wolffd@0:                                             'FontSize',16,'FontName','Arial'); 
wolffd@0:                 end
wolffd@0:                 hold off
wolffd@0:                 set(gca,'PlotBoxAspectRatio',[1.5 1 1])
wolffd@0:                 colormap('jet')
wolffd@0:                 title('Self-organizing map projection of chromagram') 
wolffd@0:                 drawnow
wolffd@0:                 if nargin>1
wolffd@0:                     mov = addframe(mov,gca);
wolffd@0:                 elseif nargout>0
wolffd@0:                     colormap('jet')
wolffd@0:                     if k == 1
wolffd@0:                         mov = getframe;
wolffd@0:                     else
wolffd@0:                         mov(k) = getframe; 
wolffd@0:                     end
wolffd@0:                 end
wolffd@0:             end
wolffd@0:         end
wolffd@0:     end
wolffd@0:     disp(['The key som related to file ',n{i},...
wolffd@0:                 ' is displayed in Figure ',num2str(fig),'.']);
wolffd@0: end
wolffd@0: if nargin>1
wolffd@0:     mov = close(mov);
wolffd@0:     disp(['Data exported to file ',filename,'.']);
wolffd@0: end
wolffd@0: disp(' ');