tomwalters@0: % demonstration file for 'aim-mat'
tomwalters@0: %
tomwalters@0: % (c) 2006-2008, University of Cambridge, Medical Research Council 
tomwalters@0: % Written by Tom Walters (tcw24@cam.ac.uk)
tomwalters@0: % http://www.pdn.cam.ac.uk/cnbh/aim2006
tomwalters@0: % $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $
tomwalters@0: % $Revision: 585 $
tomwalters@0: 
tomwalters@0: function plot_bmm(input, options, current_scale,titlestr)
tomwalters@0: 
tomwalters@0: start_time=options.minimum_time;
tomwalters@0: stop_time=options.maximum_time;
tomwalters@0: 
tomwalters@0: current_frame=input.data.bmm;
tomwalters@0: str=get_graphics_options(input,input.info.current_bmm_module);
tomwalters@0: str.minimum_time_interval=start_time;
tomwalters@0: str.maximum_time_interval=stop_time;
tomwalters@0: nrchan=getnrchannels(input.data.bmm);
tomwalters@0: % if do_single_channel || nrchan==1
tomwalters@0: %     sig=getsinglechannel(current_frame,options.display_single_channel);
tomwalters@0: %     % 			sig=getpart(sig,start_time,stop_time);
tomwalters@0: %     ymin=min(current_frame)*1.1;ymax=max(current_frame)*1.1;
tomwalters@0: %     plot(sig,[start_time stop_time ymin ymax]);
tomwalters@0: %     set(gca,'Ylim',[ymin,ymax]);set(gca,'YAxisLocation','right');
tomwalters@0: %     xlabel('time (ms)');ylabel('amplitude');title('');
tomwalters@0: % else
tomwalters@0:     hand=plot(current_frame,str);
tomwalters@0:     zmin=min(current_frame)/current_scale;zmax=max(current_frame)/current_scale;
tomwalters@0: 
tomwalters@0:     %set(gca,'Zlim',[zmin,zmax]);
tomwalters@0: 
tomwalters@0: %     %TCW AIM 2006
tomwalters@0: %     if hand_scaling == 1
tomwalters@0:          set(gca,'Zlim',[0,1/current_scale]);
tomwalters@0: %     else
tomwalters@0: %         %TCW AIM 2006 to get this frequency axis correct, this lower
tomwalters@0: %         %limit of the z axis really needs to be zero
tomwalters@0: %         set(gca,'Zlim',[0,zmax]);
tomwalters@0: %     end
tomwalters@0: 
tomwalters@0:     xlabel('time (ms)');ylabel('Frequency (kHz)');title(titlestr);
tomwalters@0: %     if strcmp(handles.screen_modus,'paper')
tomwalters@0: %         par=get(hand,'parent');
tomwalters@0: %         set(par,'FontSize',12);xlab=get(par,'xlabel');set(xlab,'FontSize',12);ylab=get(par,'ylabel');set(ylab,'FontSize',12);
tomwalters@0: %     end
tomwalters@0: %end