跟我学机器视觉-HALCON学习例程中文详解-测量圆环脚宽间距

跟我学机器视觉-HALCON学习例程中文详解-测量圆环脚宽间距

• This example program demonstrates the basic usage of a circular measure object.

• Here, the task is to determine the width of the cogs.

*首先读取图像，获取图像的宽度和高度

• First, read in the image and initialize the program.

read_image (Image, 'rings_and_nuts')

dev_close_window ()

dev_open_window_fit_image (Image, 0, 0, 640, 640, WindowHandle)

set_display_font (WindowHandle, 14, 'mono', 'true', 'false')

get_image_size (Image, Width, Height)

*读到的图像如下：

• Extract the rings.

自动阈值分割,此时为一个区域，如图*********

bin_threshold (Image, Region)

**********进行连通区域划分,不同的区域用不同的颜色表示，如图：

connection (Region, ConnectedRegions)

*填充区域内的孔洞,效果如图

fill_up (ConnectedRegions, RegionFillUp)

**计算区域的紧性，机器视觉算法与应用第168页

compactness (RegionFillUp, Compactness)

****通过紧性特征进行区域筛选，在1.5到2.5之间的为需要测量的圆环

for i := 0 to |Compactness|-1 by 1

if (Compactness[i] > 1.5 and Compactness[i] < 2.5)

select_obj (RegionFillUp, ObjectSelected, i+1)

* Determine the size and position of the rings.

计算选择区域的最小外接圆和最大内接圆，存储圆心和半径

两个半径的均值作为测量圆弧半径，AnnulusRadius 为测量圆弧宽度******************

smallest_circle (ObjectSelected, Row, Column, RadiusMax)

inner_circle (ObjectSelected, CenterRow, CenterCol, RadiusMin)

Radius := (RadiusMax+RadiusMin)/2.0

AnnulusRadius := (RadiusMax-RadiusMin)/4.0

* Determine the position between two cogs.

* This position is then used as the start angle for the circular ROI.

********多边形近似逼近区域,存储多边形角点的坐标值，机器视觉算法与应用第252页

get_region_polygon (ObjectSelected, AnnulusRadius, RowsBorder, ColumnsBorder)

计算每个角点到最大内接圆圆心的距离，然后进行排序*************

SqrDistanceBorder := (RowsBorder-CenterRow)(RowsBorder-CenterRow) + (ColumnsBorder-CenterCol)(ColumnsBorder-CenterCol)

*************从小到大排序

tuple_sort_index (SqrDistanceBorder, Indices)

********计算直线的角度,圆心和到圆心最近的多边形角点所确定的直线

***************将该角度作为测量圆弧的起始角度

line_orientation (CenterRow, CenterCol, RowsBorder[Indices[0]], ColumnsBorder[Indices[0]], AngleStart)

我认为检测圆开始角度直接设为0度也可以**************

• AngleStart := rad(0)

  AngleExtent := rad(360)

  * Create the measure for a circular ROI.

  Interpolation := 'bilinear'

生成测量圆弧,为完整圆环（360度）***

gen_measure_arc (CenterRow, CenterCol, Radius, AngleStart, AngleExtent, AnnulusRadius, Width, Height, Interpolation, MeasureHandle)

* Determine all edge pairs that have a negative transition, i.e., edge pairs

* that enclose dark regions.

* Note that the output parameters IntraDistance and InterDistance are given as arc lengths.

Sigma := 1.0

Threshold := 30

Transition := 'negative'

Select := 'all'

***进行边缘对测量，RowEdgeFirst, ColumnEdgeFirst，RowEdgeSecond, ColumnEdgeSecond为检测圆弧检测到的边界的中心点的坐标，
IntraDistance, InterDistance分别为边缘对间的距离和边缘对的弧线距离

measure_pairs (Image, MeasureHandle, Sigma, Threshold, Transition, Select, RowEdgeFirst, ColumnEdgeFirst, AmplitudeFirst, RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance)

* Determine the number of cogs.

NumCogs := |RowEdgeFirst|

* Determine the linear distance between the two edges of each edge pair ('Linear cog size')

* as well as the angular distance of the edge pairs ('Angular cog size').

计算边缘对的直线距离和弧度*

distance_pp (RowEdgeFirst, ColumnEdgeFirst, RowEdgeSecond, ColumnEdgeSecond, LinearDistance)

AngularDistance := deg(IntraDistance/Radius)

 Visualize the determined edges.

将边缘对的起始终止点画出，并显示测量结果****

gen_empty_obj (Crosses)

for i := 0 to |RowEdgeFirst|-1 by 1

gen_cross_contour_xld (Cross, RowEdgeFirst[i], ColumnEdgeFirst[i], AnnulusRadius*2.0, atan2(RowEdgeFirst[i]-CenterRow,ColumnEdgeFirst[i]-CenterCol))

concat_obj (Crosses, Cross, Crosses)

gen_cross_contour_xld (Cross, RowEdgeSecond[i], ColumnEdgeSecond[i], AnnulusRadius*2.0, atan2(RowEdgeSecond[i]-CenterRow,ColumnEdgeSecond[i]-CenterCol))

concat_obj (Crosses, Cross, Crosses)

endfor

dev_display (Image)

dev_set_line_width (4)

dev_set_color ('black')

dev_display (Crosses)

dev_set_line_width (1)

dev_set_color ('white')

dev_display (Crosses)

* Display the measured size of the cogs.

disp_message (WindowHandle, 'Number of cogs: '+|RowEdgeFirst|+' ', 'window', 260, 10, 'black', 'true')

disp_message (WindowHandle, 'Mean cog size: ', 'window', 286, 10, 'black', 'true')

disp_message (WindowHandle, '- Arc length: '+mean(IntraDistance)$'.2f'+' +/- '+deviation(IntraDistance)$'.2f'+' pixel', 'window', 310, 10, 'black', 'true')

disp_message (WindowHandle, '- Linear: '+mean(LinearDistance)$'.2f'+' +/- '+deviation(LinearDistance)$'.2f'+' pixel', 'window', 334, 10, 'black', 'true')

disp_message (WindowHandle, '- Angular: '+mean(AngularDistance)$'.2f'+' +/- '+deviation(AngularDistance)$'.2f'+' deg ', 'window', 358, 10, 'black', 'true')
*
* Close the measure

close_measure (MeasureHandle)

disp_continue_message (WindowHandle, 'black', 'true')

stop ()

endif
for循环，测量其他圆环*****

endfor