pro stacking_images
ENVI_BATCH_INIT, LOG_FILE = 'batch_log.txt' ; file thông báo khi b? l?i
files = FINDFILE('G:\Backup\Hoa.lq\temp\Modis\*.img', count=count)
fid = lonarr(count)
pos = lonarr(count)
dims = lonarr(5,count)
out_bname = strarr(count)
FOR j= 0,4 DO BEGIN ;
FOR i=0,count-1 DO BEGIN
envi_open_data_file, files(i), r_fid=layer_fid
if (layer_fid eq -1) then begin
envi_batch_exit
return
endif
ENVI_FILE_QUERY, layer_fid, NS = ns, NL = nl, NB = nb, sname=sname
fid[i] = layer_fid
pos[i] = j
dims[0,i] = [-1,0,ns-1,0,nl-1]
out_bname[i] = STRMID(sname,STRPOS(sname,''),7) ;
Endfor
out_name = 'G:\Backup\Hoa.lq\temp\Modis\'+STRMID(sname,STRPOS(sname,''),7)+'_'+'B'+string(abs(1*j+1)) ;
out_dt = 4 ; 4 là d?nh d?ng ki?u float
out_proj = envi_get_projection(fid=layer_fid, pixel_size=out_ps) ; tham s? v? t?a d?
; tach
envi_doit, 'envi_layer_stacking_doit', $
fid=fid, pos=pos, dims=dims, $
out_dt=out_dt, out_name=out_name, $
out_bname = out_bname, $
interp=0, out_ps=out_ps, $
out_proj=out_proj, r_fid=r_fid
Endfor
ENVI_BATCH_EXIT
END
|