Tuesday, August 3, 2010

HIGH_PASS filter in IDL

PRO HIGH_PASS_FILTER


READ_GIF,'d:\Image\bird.gif',im
sz=SIZE(im,/DIMENSIONS)
im1=float(im)/255;
nim=im1
KER = REPLICATE(-1.0,3,3)
KER[1,1]=8.0
kER=FLOAT(KER)
PRINT,KER

nim=CONVOL(im1,ker)
nim=byte(nim*255)
WINDOW,0,XSIZE=sz[0],YSIZE=sz[1],TITLE='INPUT IMAGE'
TV,im
WINDOW,1,XSIZE=sz[0],YSIZE=sz[1],TITLE='MEAN filtered'
TV,nim
PRINT,NIM[0:9,0:9]
END

No comments: