%curtain.m
%(Really curtainnf but too many letters for the CD)

% plot_file = file name in matlab workspace that has data to be plotted
%	 program assumes data file has six columns of data as:
%		col 1: Yearday.time
%		col 2: latitude (degrees and fractions of degrees)
%		col 3: longitude (- for Northern Hemisphere and West)
%		col 4: strata depths (M)
%		col 5: Transducer number (not used)
%		col 6: Volume backscattering data (sv, not logged)
  global lat lon emat trandist deltapos yint xint
  %Assign variables initial values
 colordef none             % set background to Matlab 4 style i.e. black
	plot_file='svnf';           % name of file with data to be plotted
	yint=120;                   % number of depth intervals
	depth_interval=1;          % size of depth interval (i.e. 2m, 1m, 0.5m etc) 
	az=85;                    % Plot azimuth
	el=45;                     % plot elevation
	title_text='My Plot';
%***************
kount=3

%%%%%%%%%%%%%%%%%%% Set window # 1 Choose task %%%%%

fig1=figure(1);
set(fig1,'position',[10 430 220 110]);
set(gcf,'menubar','none')
set(gcf,'numbertitle','off')


yp=100;

yp=yp-30;
uicontrol(fig1,'Style','push','String','Make Curtain Plot','Backgroundcolor',[1,1,1],...
		      'Position',[10,yp,200,30],...
		      'Callback','doplot');

yp=yp-30;
uicontrol(fig1,'Style','push','String','Change Plot Parameters','Backgroundcolor',[1,1,1],...
		      'Position',[10,yp,200,20],...
		      'Callback','setupplt');
yp=yp-30;
uicontrol(fig1,'Style','push','String','Quit Curtain Plot','Backgroundcolor',[1,1,1],...
		      'Position',[10,yp,200,20],...
		      'Callback','quitplot');