Daniel@0: function x = exportation(s)
Daniel@0: 
Daniel@0: % SCALAR/EXPORTATION exports the values of a scalar object
Daniel@0: % Filterbank not taken into consideration yet.
Daniel@0: 
Daniel@0: v = get(s,'Data');
Daniel@0: t = get(s,'Title');
Daniel@0: n = get(s,'Name');
Daniel@0: pt = get(s,'PeakPosUnit');
Daniel@0: pp = get(s,'PeakPos');
Daniel@0: frames = 0;
Daniel@0: for i = 1:length(v)
Daniel@0:     if iscell(v{i})
Daniel@0:         v{i} = v{i}{1}; %% Segmented audio cannot be exported properly now.
Daniel@0:     end
Daniel@0:     if iscell(v{i})
Daniel@0:         v{i} = v{i}{1};
Daniel@0:     end
Daniel@0:     if size(v{i},2) > 1 || size(v{i},3) > 1
Daniel@0:         frames = 1;
Daniel@0:     end
Daniel@0: end
Daniel@0: for i = 1:length(v)
Daniel@0:     vi = v{i};
Daniel@0:     pti = pt{i};
Daniel@0:     ppi = pp{i};
Daniel@0:     for j = 1:size(vi,1)
Daniel@0:         me = mean(vi(j,:,1),2);
Daniel@0:         if frames
Daniel@0:             st = std(vi(j,:,1),0,2);
Daniel@0:             if not(isempty(pti{1}))
Daniel@0:                 if i == 1
Daniel@0:                     if size(vi,1) > 1
Daniel@0:                         x{1,j*4-3} = ['mean',t,num2str(j)];
Daniel@0:                         x{1,j*4-2} = ['std',t,num2str(j)];
Daniel@0:                         x{1,j*4-1} = ['peakpos',t,num2str(j)];
Daniel@0:                         x{1,j*4} = ['peakval',t,num2str(j)];
Daniel@0:                     else
Daniel@0:                         x{1,j*4-3} = ['mean',t];
Daniel@0:                         x{1,j*4-2} = ['std',t];
Daniel@0:                         x{1,j*4-1} = ['peakpos',t];
Daniel@0:                         x{1,j*4} = ['peakval',t];
Daniel@0:                    end
Daniel@0:                 end
Daniel@0:                 pep = ppi{1,j,1}{1}; %% only first peak is taken
Daniel@0:                 pet = pti{1,j,1}{1}; %% only first peak is taken
Daniel@0:                 pev = vi(j,pep,1);
Daniel@0:                 x{i+1,j*4-3} = me;
Daniel@0:                 x{i+1,j*4-2} = st;
Daniel@0:                 x{i+1,j*4-1} = pet; 
Daniel@0:                 x{i+1,j*4} = pev;
Daniel@0:             else
Daniel@0:                 if i == 1
Daniel@0:                     if size(vi,1) > 1
Daniel@0:                         x{1,j*2-1} = ['mean',t,num2str(j)];
Daniel@0:                         x{1,j*2} = ['std',t,num2str(j)];
Daniel@0:                     else
Daniel@0:                         x{1,j*2-1} = ['mean',t];
Daniel@0:                         x{1,j*2} = ['std',t];
Daniel@0:                     end
Daniel@0:                 end
Daniel@0:                 x{i+1,j*2-1} = me;
Daniel@0:                 x{i+1,j*2} = st;
Daniel@0:             end
Daniel@0:         else
Daniel@0:             if i == 1
Daniel@0:                 x{1,j} = t;
Daniel@0:             end
Daniel@0:             x{i+1,j} = me;
Daniel@0:         end
Daniel@0:     end
Daniel@0: end