comparison toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirenvelope/mirplay.m @ 0:e9a9cd732c1e tip

first hg version after svn

+function mirplay(e,varargin)
+
+% mirplay method for mirenvelope objects. Help displayed in ../mirplay.m
+
+        ch.key = 'Channel';
+        ch.type = 'Integer';
+        ch.default = 0;
+    option.ch = ch;
+        
+        sg.key = 'Segment';
+        sg.type = 'Integer';
+        sg.default = 0;
+    option.sg = sg;
+        
+        se.key = 'Sequence';
+        se.type = 'Integer';
+        se.default = 0;
+    option.se = se;
+
+        inc.key = 'Increasing';
+        inc.type = 'MIRtb';
+    option.inc = inc;
+
+        dec.key = 'Decreasing';
+        dec.type = 'MIRtb';
+    option.dec = dec;
+
+        every.key = 'Every';
+        every.type = 'Integer';
+    option.every = every;
+    
+        burst.key = 'Burst';
+        burst.type = 'Boolean';
+        burst.default = 1;
+    option.burst = burst;
+
+specif.option = option;
+
+specif.eachchunk = 'Normal';
+
+varargout = mirfunction(@mirplay,e,varargin,nargout,specif,@init,@main);
+if nargout == 0
+    varargout = {};
+end
+
+
+function [x type] = init(x,option)
+type = '';
+
+
+function noargout = main(a,option,postoption)
+if iscell(a)
+    a = a{1};
+end
+d = get(a,'Data');
+f = get(a,'Sampling');
+n = get(a,'Name');
+c = get(a,'Channels');
+fp = get(a,'FramePos');
+if not(option.se)
+    if length(d)>1
+        if isfield(option,'inc')
+            [unused order] = sort(mirgetdata(option.inc));
+        elseif isfield(option,'dec')
+            [unused order] = sort(mirgetdata(option.dec),'descend');
+        else
+            order = 1:length(d);
+        end
+        if isfield(option,'every')
+            order = order(1:option.every:end);
+        end
+    else
+        order = 1;
+    end
+else
+    order = option.se;
+end
+if not(isempty(order))
+    for k = order(:)'
+        display(['Playing envelope of file: ' n{k}])   
+        dk = d{k};
+        if not(iscell(dk))
+            dk = {dk};
+        end
+        if option.ch
+            if isempty(c{k})
+                chk = option.ch;
+            else
+                [unused unused chk] = intersect(option.ch,c{k});
+            end
+        else
+            chk = 1:size(dk{1},3);
+        end
+        if isempty(chk)
+            display('No channel to play.');
+        end
+        for l = chk
+            if chk(end)>1
+                display(['  Playing channel #' num2str(l)]);
+            end
+            if option.sg
+                sgk = option.sg(find(option.sg<=length(dk)));
+            else
+                sgk = 1:length(dk);
+            end
+            for i = sgk
+                if sgk(end)>1
+                    display(['      Playing segment #' num2str(i)])
+                end
+                di = dk{i};
+                for j = 1:size(di,2)
+                    djl = resample(di(:,j,l),11025,round(f{k}));
+                    djl = djl/max(djl);
+                    djl = rand(length(djl),1).*djl;
+                    sound(djl,11025);
+                    idealtime = length(djl)/11025;
+                    practime = toc;
+                    if practime < idealtime
+                        pause(idealtime-practime)
+                    end
+                end
+                if option.burst && sgk(end)>1
+                    sound(rand(1,10))
+                end
+            end
+        end
+    end
+end
+noargout = {};