问题描述
|
我正在尝试编写一个解决方案,以便我的用户可以使用其公司徽标对他们的图片“加水印”。我已经完成了实际的水印处理工作,因此现在我要创建“上传徽标”功能,以便他们可以向我提供希望在其图像上显示水印的徽标。
我正在使用VB.NET,它可能最终会出现在接受logo JPG文件并返回“更改后的”徽标的Web服务中。我需要在此Web服务中进行的操作是:
1)灰度图像。多亏了这篇文章,我也正在努力。
2)使背景透明(使徽标在图像上加水印后看起来很干净)。这就是我卡住的地方。
我认为在大多数情况下,任何上传的徽标都将具有通用的白色背景,但我不能认为这一点。是否可以通过某种方式检测图像的背景或背景颜色,以便使这些颜色透明?
我已经从code.google.com下载并运行了名为Transpoint的项目,这几乎是我所需要的,除了我无法将其作为独立应用程序使用。另外,我认为这是用Python编写的,这对我来说很陌生。
因此,基本上,我需要的只是一种确定图像背景(如果可能的话)的方法,或者甚至是背景颜色的一种方法,以便我可以使它们透明。任何帮助/建议/建议将不胜感激!
谢谢,
劳埃德
解决方法
您可以执行以下操作:读取左上像素,并假设该像素代表背景色,然后遍历图像并将每个匹配像素(按颜色匹配)的alpha值设置为0。
我可以向您保证,结果将是可怕的。为了使透明度正常工作并看起来不错,图像需要支持部分透明度,以使某些像素完全透明,而另一些像素仅部分透明。任何采用非透明图像并仅将图像中的一种颜色设置为完全透明的算法都将导致锯齿状边缘。
我所处理过的大多数公司,其徽标的版本都是由专业艺术家制作的,具有平滑,部分透明的效果。您只要求客户提交具有透明性的徽标,而不是尝试使用代码将不透明的图像制作成透明的图像,效果会更好。抱歉,但这行不通。
,我认为这实际上可以工作(对不起,这只是一个描述):
假设左上角像素是图像的背景颜色,则可以迭代图像中的每个像素,如果像素颜色与背景颜色匹配(精确或在某个阈值颜色距离内),则将alpha设置为0。这样,当您在其他颜色的背景上重新绘制图像时,就会留下具有透明背景但边缘呈锯齿状的图像。另外,如果背景颜色出现在图像本身的任何位置,它将变成透明的,这是您不想要的。
要解决后一个问题,您的算法应开始从左到右扫描图像的每一行,并在到达非背景颜色像素时停止;此时,它应从同一行开始,并从右向左扫描,直到达到非bg像素为止。
要固定边缘,您只需模糊位图的Alpha值即可。基本上,您将每个像素的Alpha值重新计算为9个像素(本身和周围的8个像素,以及Alpha值-而非rgb值)的平均值。为防止出现序列伪影,您将拥有一个临时数组来存储平均像素值,然后在处理结束时将其复制回图像的Alpha值。
另外,可能有一个或多个第三方工具可以执行此操作(LEAD工具还在吗?)。
,@MusiGenesis(以及其他可能有兴趣的人)在这里(解决)了我所做的事情。我基本上遵循了您的想法的前半部分。我创建了一个将接受“ 0”的函数,将每个像素与(0,0)处的第一个像素进行比较-为每种RGB颜色使用阈值10。对于该阈值内的每种颜色,使像素透明。这是我的代码,对于我尝试过的几个图像来说,它似乎可以正常工作:
Private Function TransparifyBackground(ByVal bmp As Bitmap) As Bitmap
Dim temp As Color
Dim background As Color = bmp.GetPixel(0,0) \'top left will be assumed background color
For y As Integer = 0 To bmp.Height - 1
For x As Integer = 0 To bmp.Width - 1
\'get the pixel for this position:
temp = bmp.GetPixel(x,y)
If ColorsMatch(background,temp) Then
\'Make the Alpha value 50 for each pixel,leaving the other colors
Dim newColor As New Color
newColor = Color.Transparent
bmp.SetPixel(x,y,newColor)
End If
Next
Next
Return bmp
End Function
Private Function ColorsMatch(ByVal background As Color,ByVal temp As Color) As Boolean
Dim nThreshold As Integer = 10
Dim temp_R As Integer = CInt(temp.R)
Dim temp_G As Integer = CInt(temp.G)
Dim temp_B As Integer = CInt(temp.B)
Dim R As Integer = CInt(background.R)
Dim G As Integer = CInt(background.G)
Dim B As Integer = CInt(background.B)
\'check the difference of each value against our threshold:
If ((temp_R - R) < nThreshold) AndAlso ((temp_G - G) < nThreshold) AndAlso ((temp_B < B) < nThreshold) Then
Return True
Else
Return False
End If
End Function