% mk_load.m
% modified by D. G. Childers 7/14/98



%top=ceil(max(max((temp(:,4)+1000)/1000)));
top=ceil(max(max((temp(:,4))/1000)));

val=get(m3_2_h,'Value');

if val==1
cwd=pwd;
   
cd data;
   
[mkname pathname]=uigetfile('*fmrk.mrk','Load mark file');

if mkname ~= 0
   S=sprintf('Loading data into %s%s',pathname,mkname);
   disp(S);
   s=sprintf('load %s%s',pathname,mkname);
	eval(s);
   o_mkname=mkname;
   o_pname=pathname;
   mkname=basename(mkname);
   
else
   mkname=o_mkname;
   pathname=o_pname;
end
% If an Input file is not specified ( mkname ), return to main menu
if exist('mkname') ~= 1 | length(mkname) == 0
   disp('Input file is not specified. Returning to main menu.');
   cd ..;
   return;
end

cd ..;

s=sprintf('cd %s',cwd);
eval(s);
s=sprintf('[m1,n1]=size(%s);',mkname);
eval(s);

if exist('m2_h')==1;
   figure(m2_h);
end
   
%t=1/100:1/100:m/100;
hold;
for j=1:m1
	s=sprintf('%s(%d)',mkname,j);
%	plot([eval(s)/100,eval(s)/100],[0,top*1000],'y--');
	plot([eval(s)/100,eval(s)/100],[0,top*1000],'linestyle','-.',...
	'color',TEXT_COLOR);
%	100=Fs/frame_step=10000.0/100;
end
pause(0.01);
hold;

if exist('TESTFMRK')==1
	s=sprintf('%s=[%s;TESTFMRK];',mkname,mkname);
	eval(s);
	s=sprintf('%s=sort(%s);',mkname,mkname);
	eval(s);
end


elseif val==2
figure(m2_h);
[x,y]=ginput(1);
hold;
plot([x,x],[0,top*1000],'linestyle','-.','color',TEXT_COLOR);
if exist('mkname')==0
	mkname='TESTFMRK';
end
x=round(x*100);
s=sprintf('%s=[%s;x];',mkname,mkname);
eval(s);
s=sprintf('%s=sort(%s);',mkname,mkname);
eval(s);
hold;
%end


end
%return;