i=;
orientation=GradientOrientationFilter[i,1]//ImageAdjust;
magnitude=GradientFilter[i,1]//ImageAdjust;
ColorCombine[{orientation,magnitude,magnitude},"HSB"]