相关疑难解决方法(0)

我们尝试在Mathematica中执行以下操作:
RMagick从图像中删除白色背景并使其透明

但实际照片看起来很糟糕(就像图像周围有光环).

这是我们到目前为止所尝试的:

unground0[img_] := With[{mask = ChanVeseBinarize[img, TargetColor->{1.,1.,1.}]},
  Rasterize[SetAlphaChannel[img, ImageApply[1-#&, mask]], Background->None]]]

这是一个例子.

原始图片:

没有背景的白色背景替换图像(或者,为了演示目的,粉红色背景):

什么想法摆脱光环？调整像LevelPenalty这样的东西,我只能以丢失一些图像为代价来消除光环.

编辑:所以我可以比较赏金的解决方案,请像上面那样构建你的解决方案,即一个名为unground的自包含函数,它可以获取图像并返回具有透明背景的图像.非常感谢大家!