annotate util/classes/@audio/plot.m @ 160:e3035d45d014 danieleb

Added support classes

function plot(obj)

%% Plot the time domain signal
s = obj.s;
fs = obj.fs;
figure, plot((1:length(s))/fs,s);
title('Audio signal')
xlabel('time (s)');
axis tight

player = audioplayer(s,fs);
set(player,'StartFcn',@plotTransportBar);
set(player,'TimerFcn',@updateTransportBar);
set(player,'StopFcn',@deleteTransportBar);

%% Add playbaack controls
playButtonH = uicontrol(gcf,'Style','pushbutton','String','play','Units',...
    'Normalized','Position',[0.02 + 0.39 0 0.1 0.05]);
stopButtonH = uicontrol(gcf,'Style','pushbutton','String','stop','Units',...
    'Normalized','Position',[0.12 + 0.39 0 0.1 0.05]);

set(playButtonH,'Callback',@play_callback);
set(stopButtonH,'Callback',@stop_callback);

    function play_callback(~,~)
        if strcmpi(get(playButtonH,'String'),'play')
            play(player,player.CurrentSample);
            set(playButtonH,'String','pause');
        else
            pause(player)
            set(playButtonH,'String','play');
        end
    end

    function stop_callback(~,~)
        stop(player);
    end

%% Transport Bar functions
    function plotTransportBar(~,~)
        global tbH
        xLim = get(gca,'Xlim');
        yLim = get(gca,'YLim');
        tbH = line([xLim(1) xLim(1)],yLim,'Color','k');
    end
        
    function updateTransportBar(hObject,~)
        global tbH
        currentSample = hObject.CurrentSample;
        pos = currentSample/fs;
        set(tbH,'XData',[pos pos]);
    end

    function deleteTransportBar(~,~)
        global tbH
        delete(tbH);
    end
end