gaborMagnitude[image_,r_,k_]:=With[{data=ImageData[image]},Image[GaborFilter[data,r,k,0]^2+GaborFilter[data,r,k,Pi/2]^2]]
i=;
λ=.4;r=10;
{t1,t2}=Table[ImageAdjust@gaborMagnitude[i,r,λ k],{k,{{1,-1},{1,1}}}];
ImageCompose[i,{ImageAdd@@MapThread[ImageMultiply[MorphologicalBinarize[#1],#2]&,{{t1,t2},{Red,Green}}],.3}]