Perform Texture-Based Segmentation

Use a black and white image with texture:

In[1]:=

i=

;

Create a helper function that finds the magnitude of a Gabor filter on an image:

In[2]:=

gaborMagnitude[image_,r_,k_]:=GaborFilter[image,r,k,0]^2+GaborFilter[image,r,k,Pi/2]^2

Pick out the components of the image with textures either slanting up or down:

In[3]:=

λ=.4;r=10;{t1,t2}=Table[ImageAdjust@gaborMagnitude[i,r,λk],{k,{{1,-1},{1,1}}}]

Out[3]=

Paint the two different texture directions different colors, to create a colored texture image:

In[4]:=

ImageCompose[i,{ImageAdd@@MapThread[ImageMultiply[MorphologicalBinarize[#1],#2]&,{{t1,t2},{Red,Green}}],.3}]

Out[4]=

Related Symbols