VisionPro:色彩区分

来自：blog.sina.com.cn/yangchao168

 利用色彩来区分物体这类的项目没做过，总觉得很难，尤其是涉及到RGB和HSI等。看到VisionPro中有这种实例，觉得很有意思。

1）声明变量：

Private mTool as CogColorSegmenterTool

Private mImageFileTool as CogImageFileTool

Private mColorRangesInitialized as Boolean

2) 实例化mTool和mImageFileTool之后，加载图像并显示，接下来就是初始化Color Range并把它们添加到ColorCollection工具中。

 实际区分所有的颜色很难，这里采用CogSimpleColor

Dim defaultColor as CogSimpleColor

defaultColor=new CogSimpleColor(CogImageColorSpaceConstants.RGB)

定义两种黄色

Dim colorRangeYellow1 as CogColorRangeItem

 
原始图像

 colorRangeYwllow1=new CogColorRangeItem(defaultColor)

利用Norminal,Low/High tolerance 和softness来填充每个Plane

colorRangeYellow1.PlaneRange0.Update(229, -81, 26, 0)

colorRangeYellow1.PlaneRange1.Update(227, -100.2, 28, 0)

colorRangeYellow1.PlaneRange2.Update(49, -33.3, 36.7, 0)

给Segment Tool添加这种颜色

mTool.RunParams.ColorRangeCollection.Add(colorRangeYellow1)

接下来是第二种黄色

Dim colorRangeYellow2 As CogColorRangeItem
colorRangeYellow2 = New CogColorRangeItem(defaultColor)
colorRangeYellow2.PlaneRange0.Update(130, -29.8, 23.7, 0)
colorRangeYellow2.PlaneRange1.Update(122, -28.1, 32.7, 0)
colorRangeYellow2.PlaneRange2.Update(22, -11.8, 11.8, 0)
mTool.RunParams.ColorRangeCollection.Add(colorRangeYellow2) 

 
利用黄色区分的结果

 定义3种黄色

Dim colorRangeRed1 As CogColorRangeItem
colorRangeRed1 = New CogColorRangeItem(defaultColor)
colorRangeRed1.PlaneRange0.Update(109, -28.4, 33.8, 0)
colorRangeRed1.PlaneRange1.Update(34, -20.8, 17.8, 0)
colorRangeRed1.PlaneRange2.Update(11, -8.7, 10.2, 0)
colorRangeRed1.Selected = False
mTool.RunParams.ColorRangeCollection.Add(colorRangeRed1)

默认选择黄色，所以对于红色的Selected属性设为False。

。。。

在初始化所有的颜色后

mColorRangesInitialized =true   '可以作为后续的判断条件

3)颜色选择

如果选择黄色

mTool.RunParams.ColorRangeCollection.Item(0).Selected=true

 
利用红色区分的结果

mTool.RunParams.ColorRangeCollection.Item(1).Selected=true 

如果选择红色，可以设定Item(2),(3),(4)为Selected。

4）区分

mTool.inputImage=InputImage

mTool.Run()

输出结果图像

If (mTool.RunStatus.Result.Equals(CogToolResultConstants.Accept))  Then
   CogDisplaySegmentImage.Image = mTool.Result  ‘显示图像

Else
   CogDisplaySegmentImage.Image = Nothing   ’结果有误
End If

 
利用黄红区分的结果