Mathematica图片局部变色

这篇博客来源于Stack-Exchange上的一个帖子，问题描述如下：如何将图中的红球变为蓝球？

这个问题下面有很多答案，我选了最好的一个答案，代码如下

img = Import["C:/Users/1/Desktop/red.jpg"];
getReds[x_Image] := First@ColorSeparate[x, "Hue"]
isolateSphere[x_Image] := SelectComponents[Binarize[getReds[x], .9], Large]
makeMask[x_Image] := Image@Graphics[Disk @@ (1 /. ComponentMeasurements[isolateSphere[x],{"Centroid", "BoundingDiskRadius"}]),{PlotRange -> Thread[{1, #}], ImageSize -> #} &@ImageDimensions@x]
getAreaToChange[x_Image] := ImageMultiply[x, ColorNegate@makeMask[x]]
shiftColors[x_Image] := Image[ImageData[getAreaToChange[x]] /. p : {r_, g_, b_} /; r > .3 :> RotateLeft[p, 1]]
finishIt[x_Image] := ImageAdd[ImageMultiply[x, makeMask[x]], ColorConvert[shiftColors[x], "RGB"]]
{#, getReds@#, isolateSphere@#, makeMask@#, getAreaToChange@#,shiftColors@#, finishIt@#} &@img // Grid[{#[[1 ;; 2]], #[[3 ;; 5]], #[[6 ;; 7]]}] &

根据结果可以看出，代码的思路非常明确。分为提取红色通道分量，生成红球模板，然后局部转变为蓝色，最后与原图进行合成。下面是一个

对比结果，

当然，原问题下面还给了很多其他简短的答案，基本都是上述shiftColors函数的应用。考虑到都是全局处理，存在一定的失真，

就不贴上来了。