% pp_cal_dat_06_07_07

    clear all ; close all ;

    cent = [1024 1024] ;
    calplt = 1 ;
    midp = [] ;
    sp = [] ;
    imt = [] ;

    [ppdir,slash] = getppdir ;
    datdir = ('06_07_07') ;

    fuldir = ([ppdir slash datdir slash]) ;
%    fuldir= 'E:\Pepperpot\PP_06_7_07\';

    [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_0002s.tif'],[4 42],[1986 44],[4 2028],[1984 2028],126,calplt) ;
    midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
 %   [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_0002s.tif'],[ ],[ ],[ ],[ ],63,calplt) ;
 %   midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
    [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_0002s.tif'],[925 963],[1066 964],[925 1105],[1066 1106],9,calplt) ;
    midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
    
    [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_020ms.tif'],[4 42],[1986 44],[5 2027],[1985 2028],126,calplt) ;
    midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
    [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_020ms.tif'],[499 539],[1490 541],[499 1532],[1490 1533],63,calplt) ;
    midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
 %   [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_020ms.tif'],[? ?],[? ?],[? ?],[? ?],9,calplt) ;
 %   midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
    
    [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_200ms.tif'],[4 42],[1987 44],[4 2028],[1985 2027],126,calplt) ;
    midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
    [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_200ms.tif'],[500 538],[1490 541],[500 1532],[1489 1531],63,calplt) ;
    midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
    [midpos,sp2sp,imtilt] = ppcalfindmm([fuldir 'pp_17kV_35kV_cali_200ms.tif'],[925 963],[1066 964],[925 1105],[1066 1105],9,calplt) ;
    midp = [midp; midpos] ; sp = [sp; sp2sp] ; imt = [imt; imtilt] ;
    
    midp
    sp
    imt

    return