%make_sv_2_image.m

%NOTE: don't forget to make the "make104_...._image.m files

close all;fclose all;clear all;

filename='nbp103_137';
load (filename);

%%%%%img = sv_2(:,8:407)';
%img = sv_1(1000:1250,8:407)';
img = sv_1(1000:3000,8:407)';

yaxlab=(0:1.5:599);
%xaxlab = (10:10:6420);
%xaxlab=sv_1(1000:1250,1);
xaxlab=sv_1(1000:3000,1);

figure
set(gcf,'units','normalized');

subplot(4,1,1)

imagesc(xaxlab,yaxlab,img);

%imagesc(img);

%xlabel('time');
%ylabel('depth');
title('nbp0103\_137')

%%%%set(gca,'dataaspectratio',[1 5000 1])
set(gca,'units','normalized');   %not really needed
%set(gca,'dataaspectratio',[1 5000 1])


lasttime = size(img,2);
dtime = sv_2(lasttime,1) - sv_2(1, 1);

hold on;

%%%%firstx = .05;
%%%set(   gcf,'pos',[firstx  50   firstx+dtime*2000   200]   );
%%%set(   gcf,'pos',[firstx  50   firstx+1024   200]   );


%%%%set(   gcf,'pos',[firstx  .25   firstx+0.750   0.400]   );

%set(   gca,'TightInset', [0.1 0.1 0.002 0.07]   );
%set(   gca,'pos', [0 0 1 1]   );

%%%%%set(   gca,'pos', [0.05 0.09 .925 .80] )

subplot(4,1,2)
%new_img = sv_2(1000:1250,8:407)';
new_img = sv_2(1000:3000,8:407)';

imagesc(new_img);




%NOTE:  needs definite improvement!!!
%disp('press any key to make a jpg file');
%pause

%print -djpeg nbp103_137.jpg

%return

hold on;

subplot(4,1,3)
%newer_img = sv_3(1000:1250,8:407)';
newer_img = sv_3(1000:3000,8:407)';

imagesc(newer_img);
%xlabel('time');
%ylabel('depth');

hold on;

subplot(4,1,4)
%newest_img = sv_4(1000:1250,8:407)';
newest_img = sv_4(1000:3000,8:407)';

imagesc(xaxlab,yaxlab,newest_img);
xlabel('time');
ylabel('depth');

hold on;

%%%colorbar;

%figure
%plot(sv_2(:,2),sv_2(:,3))
%grid on

%print -djpeg nbp103_137.jpg