;##############################################
; Image Segmentation using watershed algorithm
; Author : S.GaneshBabu
;##############################################
PRO EX16
file=DIALOG_PICKFILE(PATH='E:\Image')
im=READ_IMAGE(file)
sz=size(im,/DIMENSIONS)
R=15; radious of disk
disc=SHIFT(DIST(2*R+1),R,R) LE R
b=MAX(im)-im
tvscl,b,0
c=MORPH_CLOSE(b,disc,/GRAY)
TVSCL,c,1
d=WATERSHED(c)
TVSCL,d,2
e= im > (max(im) * (d EQ 0b))
TVSCL,e,3
END
;##############################################
; Image Segmentation using watershed algorithm
; Author : S.GaneshBabu
;##############################################
PRO EX16
file=DIALOG_PICKFILE(PATH='E:\Image')
im=READ_IMAGE(file)
sz=size(im,/DIMENSIONS)
R=15; radious of disk
disc=SHIFT(DIST(2*R+1),R,R) LE R
b=MAX(im)-im
tvscl,b,0
c=MORPH_CLOSE(b,disc,/GRAY)
TVSCL,c,1
d=WATERSHED(c)
TVSCL,d,2
e= im > (max(im) * (d EQ 0b))
TVSCL,e,3
END
No comments:
Post a Comment