rmeddis@33: function plotProfile(fgName, bgName)
rmeddis@33: 
rmeddis@33: addpath (['..' filesep 'profiles'])
rmeddis@28: 
rmeddis@28: %% plot profile
rmeddis@28: if nargin<1
rmeddis@38:     fgName = 'profile_JSAN_R';
rmeddis@33:     bgName = '';
rmeddis@28: end
rmeddis@28: 
rmeddis@33: cmd=['foreground = ' fgName ';'];
rmeddis@33: eval(cmd)
rmeddis@28: 
rmeddis@33: if nargin==2
rmeddis@33:     cmd=['background = ' bgName ';'];
rmeddis@33:     eval(cmd)
rmeddis@33: else
rmeddis@33:     bgName='';
rmeddis@33: end
rmeddis@28: 
rmeddis@28: % absolute thresholds
rmeddis@28: figure(90), clf
rmeddis@35: set(gcf, 'name', 'Profile')
rmeddis@28: subplot(2,1,2)
rmeddis@33: semilogx(foreground.BFs,foreground.LongTone,'ko-','lineWidth',2); hold on
rmeddis@33: semilogx(foreground.BFs,foreground.ShortTone,'bo-','lineWidth',2); hold on
rmeddis@33: if ~isempty(bgName)
rmeddis@33:     semilogx(background.BFs,background.LongTone,'ko:'); hold on
rmeddis@33:     semilogx(background.BFs,background.ShortTone,'bo:'); hold on
rmeddis@33: end
rmeddis@28: ylim([0 100])
rmeddis@28: 
rmeddis@28: % TMC
rmeddis@33: for BFno=1:length(foreground.TMCFreq)
rmeddis@28:     subplot(2,6,BFno)
rmeddis@34:     % SL
rmeddis@34: % plot(foreground.Gaps,foreground.TMC(BFno,:)-foreground.LongTone(BFno),'r','lineWidth',3), hold on
rmeddis@33:     plot(foreground.Gaps,foreground.TMC(BFno,:),'b','lineWidth',3), hold on
rmeddis@29:     ylim([-10 110])
rmeddis@28:     xlim([0.01 0.1])
rmeddis@36: %     grid on
rmeddis@28:     if BFno==1
rmeddis@28:         ylabel('masker dB SL')
rmeddis@36:         xlabel('    gap (s)')
rmeddis@28:     end
rmeddis@33:     title([num2str(foreground.TMCFreq(BFno)) ' Hz'])
rmeddis@36:     set(gca,'XTick',[ 0.02:0.02:0.1],'xTickLabel', { '', '0.04', '', '',  '0.1'})
rmeddis@28: end
rmeddis@28: 
rmeddis@33: if ~isempty(bgName)
rmeddis@33:     for BFno=1:length(background.TMCFreq)
rmeddis@33:         BF = background.TMCFreq(BFno);
rmeddis@33:         idx = find(BF == foreground.TMCFreq);
rmeddis@33:         if ~isempty(idx);
rmeddis@33:             
rmeddis@33:             subplot(2,6,idx)
rmeddis@34:             % SL
rmeddis@34: % plot(background.Gaps,background.TMC(BFno,:)-background.LongTone(BFno),'k:')
rmeddis@33:             plot(background.Gaps,background.TMC(BFno,:),'k:')
rmeddis@33:             ylim([-10 110])
rmeddis@33:             xlim([0.01 0.1])
rmeddis@33:         end
rmeddis@33:     end
rmeddis@33: end
rmeddis@33: 
rmeddis@28: % IFMCs
rmeddis@33: for BFno=1:length(foreground.IFMCFreq)
rmeddis@33:     freq=foreground.MaskerRatio'*foreground.IFMCFreq(BFno);
rmeddis@28:     subplot(2,1,2)
rmeddis@33:     semilogx(freq,foreground.IFMCs(BFno,:),'r','lineWidth',3), hold on
rmeddis@38:     ylim([-20 100])
rmeddis@28:     xlim([100 12000])
rmeddis@36: %     grid on
rmeddis@28: end
rmeddis@28: xlabel('frequency (Hz)')
rmeddis@28: ylabel('masker dB / probe dB')
rmeddis@33: set(gca,'XTick',foreground.IFMCFreq)
rmeddis@38: set(gca,'Ytick', [-20 0 50 100])
rmeddis@29: 
rmeddis@33: if ~isempty(bgName)
rmeddis@33:     for BFno=1:length(background.IFMCFreq)
rmeddis@33:         freq=background.MaskerRatio'*background.IFMCFreq(BFno);
rmeddis@33:         subplot(2,1,2)
rmeddis@33:         semilogx(freq,background.IFMCs(BFno,:),'k:')
rmeddis@33:         ylim([0 100])
rmeddis@33:         xlim([100 12000])
rmeddis@29:     end
rmeddis@29: end
rmeddis@36: set(get(gca,'title'),'interpreter','None')
rmeddis@36: 
rmeddis@34: title([fgName ' / ' bgName])
rmeddis@34: % mydate=datestr(now); idx=findstr(':',mydate); mydate(idx)='_';
rmeddis@32: 
rmeddis@34: % fileName= ['savedData/' mydate ];
rmeddis@34: % 
rmeddis@34: % save (fileName)
rmeddis@34: % set(gcf,'name', mydate)
rmeddis@34: % disp(fileName)