;pro disp_syn, strot, nrot
;
;
;
strot = 1855
nrot = 6
;
if (n_elements(img1) eq 0) then begin
    str = string(indgen(nrot)+strot, format='(i4)')
    dir = '$DIR_GEN_SYNOPTIC/'
    rd_sda, dir + 'ssc_cr' + str + 'a.01', -1, index, img1
    infil = dir + 'gkm_cr' + str + 'a.01'
    for ifil=0,n_elements(infil)-1 do begin
        if (ifil eq 0) then begin
            img2 = rfits(infil(ifil), head=head, date_obs=date_obs, time_obs=time_obs, scale=qyodat_scale)
        end else begin
            img0 = rfits(infil(ifil), head=head0, date_obs=date_obs0, time_obs=time_obs0, scale=qyodat_scale)
            img2 = [[[img2]], [[img0]]]
        end
    end
    infil = dir + 'gki_cr' + str + 'a.01'
    for ifil=0,n_elements(infil)-1 do begin
        if (ifil eq 0) then begin
            img3 = rfits(infil(ifil), head=head, date_obs=date_obs, time_obs=time_obs, scale=qyodat_scale)
        end else begin
            img0 = rfits(infil(ifil), head=head0, date_obs=date_obs0, time_obs=time_obs0, scale=qyodat_scale)
            img3 = [[[img3]], [[img0]]]
        end
    end
end
ny = 256
nx = 624
factor = 0.5
;
window, xsiz=nx*3*factor, ysiz=ny*nrot*factor+20
xyouts,           0+20, nrot*ny*factor+4, 'SXT Images'			, siz=1.6, /dev
xyouts,   nx*factor+20, nrot*ny*factor+4, 'Kitt Peak Magnetograms'	, siz=1.6, /dev
xyouts, nx*factor*2+20, nrot*ny*factor+4, 'Kitt Peak He 10830'		, siz=1.6, /dev
;
for i=0,nrot-1 do begin
    img0 = bytscl(img1(*,*,i), 0, 150)
    tv, congrid(img0, nx*factor, ny*factor), 0, i*ny*factor
    ;
    img0 = bytscl(-1*img2(*,*,i), -500, 500)
    tv, congrid(img0, nx*factor, ny*factor), nx*factor, i*ny*factor
    ;
    img0 = bytscl(-1*img2(*,*,i), -1000, 2000)
    tv, congrid(img0, nx*factor, ny*factor), nx*factor*2, i*ny*factor
end
;
end