跟我学机器视觉-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