% setuppltnf.m    % called by curtain2.m to do the setup of
%                 plotting parameters.


%Assign variables initial values
%	plot_file='sv4';   % name of file with data to be plotted
%	yint=80;           % number of depth intervals
%	depth_interval=1;  % size of depth interval (i.e. 2m, 1m, 0.5m etc) 
%	az=350;            % Plot azimuth
%	el=45;             % plot elevation
%	title_text='R/V ALBATROSS IV 9801 (Jan 98)- Greene Bomber 120 kHz - Georges Bank'; 
%***************

fig2=figure(2);
set(fig2,'position',[10 40 600 260]);
set(gcf,'menubar','none')
set(gcf,'numbertitle','off')

yp2=200;
ed11= uicontrol(fig2,'Style','text','String','Name of file to be plotted','Backgroundcolor',[1,1,1],...
                   'Position',[10 yp2 200 20]);
ed1=uicontrol(fig2,'Style','edit','String',plot_file,'Backgroundcolor',[1,1,1],...
                   'Position',[220 yp2 230 20],...
                   'Callback','plot_file=get(ed1,''String'');plot_file'); 

%yp2=170;
%ed21= uicontrol(fig2,'Style','text','String','Number of depth bins','Backgroundcolor',[1,1,1],...
%                   'Position',[10 yp2 200 20]);
%ed2=uicontrol(fig2,'Style','edit','String',yint,'Backgroundcolor',[1,1,1],...
%                   'Position',[220 yp2 230 20],...
%                   'Callback','yint=get(ed2,''String'');yint=str2num(yint)'); 

%yp2=140;
%ed31= uicontrol(fig2,'Style','text','String','Bin thickness (i.e. 2,1,0.5m etc)','Backgroundcolor',[1,1,1],...
%                   'Position',[10 yp2 200 20]);
%ed3=uicontrol(fig2,'Style','edit','String',depth_interval,'Backgroundcolor',[1,1,1],...
%                   'Position',[220 yp2 230 20],...
%                   'Callback','depth_interval=get(ed3,''String'');depth_interval=str2num(depth_interval)'); 

yp2=110;
ed41= uicontrol(fig2,'Style','text','String','Azimuth of 3-D Plot','Backgroundcolor',[1,1,1],...
                   'Position',[10 yp2 200 20]);
ed4=uicontrol(fig2,'Style','edit','String',az,'Backgroundcolor',[1,1,1],...
                   'Position',[220 yp2 230 20],...
                   'Callback','az=get(ed4,''String'');az=str2num(az)'); 

yp2=80;
ed51= uicontrol(fig2,'Style','text','String','Elevation of 3-D Plot','Backgroundcolor',[1,1,1],...
                   'Position',[10 yp2 200 20]);
ed5=uicontrol(fig2,'Style','edit','String',el,'Backgroundcolor',[1,1,1],...
                   'Position',[220 yp2 230 20],...
                   'Callback','el=get(ed5,''String'');el=str2num(el)'); 

yp2=50;
ed31= uicontrol(fig2,'Style','text','String','Title Text','Backgroundcolor',[1,1,1],...
                   'Position',[10 yp2 200 20]);
ed6=uicontrol(fig2,'Style','edit','String',title_text,'Backgroundcolor',[1,1,1],...
                   'Position',[220 yp2 500 20],...
                   'Callback','title_text=get(ed6,''String'');title_text'); 
	
yp2=20;
uicontrol(fig2,'Style','push','String','End Setup & close window','Backgroundcolor',[1,1,1],...
		      'Position',[10,yp2,200,20],...
		      'Callback','co=''close'';eval(co);');