tomwalters@0: % procedure for 'aim-mat'
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % load the signal file and all files, that are in this directory
tomwalters@0: % set the project variables accordingly.
tomwalters@0: %
bleeck@3: % 
bleeck@3: % (c) 2011, University of Southampton
bleeck@3: % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3: % download of current version is on the soundsoftware site: 
bleeck@3: % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3: % documentation and everything is on http://www.acousticscale.org
bleeck@3: 
bleeck@3: 
tomwalters@0: 
tomwalters@0: function [myaxes1,myaxes2,myaxes3,myaxes4]=aim_define_plot_areas(handles,relative_axis,options)
tomwalters@0: 
tomwalters@0: withtime=options.withtime;
tomwalters@0: withfre=options.withfre;
tomwalters@0: withsignal=options.withsignal;
tomwalters@0: 
tomwalters@0: current_plot=handles.info.current_plot;	
tomwalters@0: 
tomwalters@0: % calculate the position of the axes according to the tick-settings
tomwalters@0: % find out, which graphic we want:
tomwalters@0: if ~withtime && ~withfre && ~withsignal
tomwalters@0: 	graphiccase=1;
tomwalters@0: else if ~withtime && ~withfre && withsignal
tomwalters@0: 		if  current_plot==1
tomwalters@0: 			graphiccase=8;
tomwalters@0: 		else			
tomwalters@0: 			graphiccase=2;
tomwalters@0: 		end
tomwalters@0: 	else if withtime && ~withfre && withsignal
tomwalters@0: 			graphiccase=3;
tomwalters@0: 		else if withtime && withfre && withsignal
tomwalters@0: 				graphiccase=4;
tomwalters@0: 			else if ~withtime && withfre && ~withsignal
tomwalters@0: 					graphiccase=5;
tomwalters@0: 				else if ~withtime && withfre && withsignal
tomwalters@0: 						graphiccase=6;
tomwalters@0: 					else if withtime && withfre && ~withsignal
tomwalters@0: 							graphiccase=7;
tomwalters@0: 						else if withtime && ~withfre && ~withsignal
tomwalters@0: 								graphiccase=9;
tomwalters@0: 							end
tomwalters@0: 						end
tomwalters@0: 					end
tomwalters@0: 				end
tomwalters@0: 			end
tomwalters@0: 		end
tomwalters@0: 	end
tomwalters@0: end
tomwalters@0: 
tomwalters@0: 
tomwalters@0: off=0.002; % between graphics
tomwalters@0: % width without frequency profile:
tomwalters@0: b11=0.96;
tomwalters@0: % width left and right with frequency profile:
tomwalters@0: b21=0.87-off;
tomwalters@0: b22=0.12; boff22=0.87-off;
tomwalters@0: 
tomwalters@0: % height signal without main or temp profile
tomwalters@0: h11=1;
tomwalters@0: % height signal with main window
tomwalters@0: h21=0.2;	hoff21=0.8+off;
tomwalters@0: h22=0.8;
tomwalters@0: % height temp profile with main window
tomwalters@0: h21a=0.8;	hoff21a=0.2+off;
tomwalters@0: h22a=0.2;
tomwalters@0: 
tomwalters@0: % height signal with main window and temporal profile
tomwalters@0: h31=0.15; 	hoff31=0.85+off+off+off;
tomwalters@0: h32=0.7;	hoff32=0.15+off;
tomwalters@0: h33=0.15;
tomwalters@0: 
tomwalters@0: if strcmp(handles.screen_modus,'paper')
tomwalters@0: 	off=0.001; % between graphics
tomwalters@0: 	% width without frequency profile:
tomwalters@0: 	b11=0.95;
tomwalters@0: 	% width left and right with frequency profile:
tomwalters@0: 	b21=0.83-off;
tomwalters@0: 	b22=0.12; boff22=0.83-off;
tomwalters@0: 	
tomwalters@0: 	% height signal without main or temp profile
tomwalters@0: 	h11=1;
tomwalters@0: 	% height signal with main window
tomwalters@0: 	h21=0.2;	hoff21=0.75+off;
tomwalters@0: 	h22=0.75;
tomwalters@0: 	% height temp profile with main window
tomwalters@0: 	h21a=0.8;	hoff21a=0.2+off;
tomwalters@0: 	h22a=0.2;
tomwalters@0: 	
tomwalters@0: 	% height signal with main window and temporal profile
tomwalters@0: 	h31=0.15; 	hoff31=0.83+off+off+off;
tomwalters@0: 	h32=0.68;	hoff32=0.15+off;
tomwalters@0: 	h33=0.15;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: 
tomwalters@0: switch graphiccase
tomwalters@0: 	case 1
tomwalters@0: 		axpos2=[0,0,b11,h11];
tomwalters@0: 	case 2
tomwalters@0: 		axpos1=[0,hoff21,b11,h21];
tomwalters@0: 		axpos2=[0,0,b11,h22];
tomwalters@0: 	case 3
tomwalters@0: 		axpos1=[0,hoff31,b11,h31];
tomwalters@0: 		axpos2=[0,hoff32,b11,h32];
tomwalters@0: 		axpos3=[0,0,b11,h33];
tomwalters@0: 	case 4
tomwalters@0: 		axpos1=[0,hoff31,b21,h31];
tomwalters@0: 		axpos2=[0,hoff32,b21,h32];
tomwalters@0: 		axpos3=[0,0,b21,h33];
tomwalters@0: 		axpos4=[boff22,hoff32+off,b22,h32];
tomwalters@0: 	case 5
tomwalters@0: 		axpos2=[0,0,b21,h11];
tomwalters@0: 		axpos4=[boff22,0,b22,h11];
tomwalters@0: 	case 6
tomwalters@0: 		axpos1=[0,hoff21,b21,h21];
tomwalters@0: 		axpos2=[0,0,b21,h22];
tomwalters@0: 		axpos4=[boff22,0 ,b22,h22];
tomwalters@0: 	case 7
tomwalters@0: 		axpos2=[0,hoff21a,b21,h21a];
tomwalters@0: 		axpos3=[0,0,b21,h22a];
tomwalters@0: 		axpos4=[boff22,hoff21a,b22,h21a];
tomwalters@0: 	case 9
tomwalters@0: 		axpos2=[0,hoff21a,b11,h21a];
tomwalters@0: 		axpos3=[0,0,b11,h22a];
tomwalters@0: 	otherwise
tomwalters@0: 		axpos1=[0,hoff21,b11,h21];
tomwalters@0: end
tomwalters@0: 		
tomwalters@0: ra=relative_axis;
tomwalters@0: % put a little space to the left side:
tomwalters@0: ra(1)=ra(1)+0.015;
tomwalters@0: if strcmp(handles.screen_modus,'paper')
tomwalters@0: 	ra(2)=ra(2)+0.015;
tomwalters@0: end
tomwalters@0: if exist('axpos1','var')
tomwalters@0: 	myaxes1=subplot('Position',[ra(1)+(axpos1(1)*ra(3)) ra(2)+(axpos1(2)*ra(4)) ra(3)*axpos1(3) ra(4)*axpos1(4)] );
tomwalters@0: 	set(myaxes1,'Visible','on');
tomwalters@0: 	cla;
tomwalters@0: else
tomwalters@0: 	myaxes1=[];
tomwalters@0: end
tomwalters@0: if exist('axpos2','var')
tomwalters@0: 	myaxes2=subplot('Position',[ra(1)+(axpos2(1)*ra(3)) ra(2)+(axpos2(2)*ra(4)) ra(3)*axpos2(3) ra(4)*axpos2(4)] );
tomwalters@0: 	set(myaxes2,'Visible','on');
tomwalters@0: % 	cla;
tomwalters@0: else
tomwalters@0: 	myaxes2=[];
tomwalters@0: end	
tomwalters@0: if exist('axpos3','var')
tomwalters@0: 	myaxes3=subplot('Position',[ra(1)+(axpos3(1)*ra(3)) ra(2)+(axpos3(2)*ra(4)) ra(3)*axpos3(3) ra(4)*axpos3(4)] );
tomwalters@0: 	set(myaxes3,'Visible','on');
tomwalters@0: % 	cla;
tomwalters@0: else
tomwalters@0: 	myaxes3=[];
tomwalters@0: end	
tomwalters@0: if exist('axpos4','var')
tomwalters@0: 	myaxes4=subplot('Position',[ra(1)+(axpos4(1)*ra(3)) ra(2)+(axpos4(2)*ra(4)) ra(3)*axpos4(3) ra(4)*axpos4(4)] );
tomwalters@0: 	set(myaxes4,'Visible','on');
tomwalters@0: 	cla;
tomwalters@0: else
tomwalters@0: 	myaxes4=[];
tomwalters@0: end