Thanks... David, Jeff, and Kuyper! Now that's more like it!!! [message #54447] |
Sat, 16 June 2007 00:43 |
kim20026
Messages: 54 Registered: November 2006
|
Member |
|
|
As you suggested, I went through MODIS website and I upgraded my
source code... But still 5% not enough, (T.T)
I made a JPG file of 1 band from original image with 20 bands, but the
shape was not what I wanted... Please check this and give me another
suggestions.
Harry
-------------------------------------------------------
PRO MOD07_getband_Ta
s_time = systime(1)
out_name_Ta = 'Ta_simple.img'
envi_open_file, out_name_Ta, r_fid=Ta_fid
envi_file_query, Ta_fid, ns=ns, nl=nl, nb=nb
dims = [-1, 0, ns-1, 0, nl-1]
pos_Ta = lindgen(nb)
data = ENVI_GET_DATA(fid=Ta_fid, dims=dims, pos=pos_Ta[19])
WRITE_jpeg,'Ta20test.jpg',data
close, /all
e_time = systime(1)
print, 'Elapsed time for this procedure: ', e_time - s_time , '
seconds!'
END
-------------------------------------------
|
|
|