clear all
load phantom

param.lambdax= 1.5e-3;  %m
param.sigmax= 1.2e-3;   %m
param.pitch= 2.4500e-04;%m
param.Fe= 25e6;         %Hz
param.c= 1540;          %m/s
param.interface=1;      

[RFOT param]=makeTO(migRF1(450:600,:,:),param);
 
figure(1)
for i=1:size(migRF1,3)
        subplot(121)
imagesc(inter(migRF1(450:600,:,i),2));
    subplot(122)
imagesc(inter(RFOT(:,:,i),2));
pause(0.01)
end