Tuesday, October 6, 2009

Adding Salt & Pepper Noise in Grayscale Image

;##########################################################
;              Salt & Pepper Noise Generation
;   Author:    S.Ganesh Babu
;##########################################################

PRO EX8

file = DIALOG_PICKFILE(PATH='E:\Image')
f = READ_IMAGE(file)
sz=SIZE(f,/DIMENSIONS)
r=RANDOMU(5,SZ[0],SZ[1])
PRINT,f(1:10,1:10)
pr=0.01 ; Noise percentage
sa=pr
pa=pr/2
f1=f
FOR i=0,sz[0]-1  DO BEGIN
FOR j=0,sz[1]-1 DO BEGIN
IF r[i,j] LE sa THEN BEGIN
f1[i,j]=255
ENDIF
IF (r[i,j] GE sa) AND (r[i,j] LE pr) THEN BEGIN
f1[i,j]=0
ENDIF
ENDFOR
ENDFOR
WINDOW,0,XSIZE=sz[0],YSIZE=sz[1],TITLE='ORIGINAL IMAGE'
TV,f
WINDOW,1,XSIZE=sz[0],YSIZE=sz[1],TITLE='NOISE IMAGE'
TV,f1
END

No comments: