
142 Filters, Kernels and Fields
Listing 4.4: Application of two iterations of the discre te wavelet transform to
an image band with the object class DWT.
1 PRO E X4_4
2
3 envi_se lect , title = ’ C hoose multispe ctral band ’, $
4 fid = fid , dims = dims , pos = pos , / band_ only
5 IF ( fid EQ -1) THEN BEGIN
6 PRINT , ’ c ancell ed ’
7 RETURN
8 ENDIF
9
10 ; get the ima ge band from ENVI
11 g = en vi_get _dat a ( fid = fid , dims =dims , pos = pos [0])
12 ; crea te an ins tance of the DWT cl ass with ima ge band
13 aDWT = Obj _New ( ’ DWT ’, g )
14 ; a pply the f ilter bank once
15 aDWT -> filter
16 ; retu rn the resul t to ENVI
17 envi_e nter_d ata , aD