基于Halcon学习的测量拟合【一】fuse.hdev例程

此例程是测量保险丝的宽度

第一步：获取图片 

*在程序执行时关闭窗口的更新
dev_update_window ('off')
*关闭窗口
dev_close_window ()

*第一步：获取图片
read_image (Fuse, 'fuse')
get_image_size (Fuse, Width, Height)
dev_open_window_fit_image (Fuse, 0, 0, Width, Height, WindowID)
set_display_font (WindowID, 12, 'mono', 'true', 'false')
dev_set_draw ('margin')
dev_set_line_width (3)
dev_display (Fuse)
set_display_font (WindowID, 12, 'mono', 'true', 'false')
disp_continue_message (WindowID, 'black', 'true')
stop ()

 

第二步：创建测量对象 

*第二步：创建测量对象
*指定ROI
Row := 297
Column := 545
Length1 := 80
Length2 := 10
Angle := rad(90)
gen_rectangle2 (ROI, Row, Column, Angle, Length1, Length2)

*生成测量矩形
gen_measure_rectangle2 (Row, Column, Angle, Length1, Length2, Width, Height, 'bilinear', MeasureHandle)
dev_display (ROI)
disp_continue_message (WindowID, 'black', 'true')
stop ()

*提取边缘对
measure_pairs (Fuse, MeasureHandle, 1, 1, 'negative', 'all', RowEdgeFirst, ColumnEdgeFirst, AmplitudeFirst, RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance)
disp_continue_message (WindowID, 'black', 'true')
stop ()

第三步：显示结果 

*第三步：显示结果
for i := 0 to |RowEdgeFirst| - 1 by 1
    *画出两个直线轮廓
    gen_contour_polygon_xld (EdgeFirst, [-sin(Angle + rad(90)) * Length2 + RowEdgeFirst[i],-sin(Angle - rad(90)) * Length2 + RowEdgeFirst[i]], [cos(Angle + rad(90)) * Length2 + ColumnEdgeFirst[i],cos(Angle - rad(90)) * Length2 + ColumnEdgeFirst[i]])
    gen_contour_polygon_xld (EdgeSecond, [-sin(Angle + rad(90)) * Length2 + RowEdgeSecond[i],-sin(Angle - rad(90)) * Length2 + RowEdgeSecond[i]], [cos(Angle + rad(90)) * Length2 + ColumnEdgeSecond[i],cos(Angle - rad(90)) * Length2 + ColumnEdgeSecond[i]])
    *设置第一条线的颜色
    dev_set_color ('cyan')
    dev_display (EdgeFirst)

    *设置第二条线的颜色
    dev_set_color ('magenta')
    dev_display (EdgeSecond)
    dev_set_color ('blue')

    *控制字体显示的位置
    if (i == 0)
        set_tposition (WindowID, RowEdgeFirst[i] + 5, ColumnEdgeFirst[i] + 20)
    else
        set_tposition (WindowID, RowEdgeFirst[i] - 40, ColumnEdgeFirst[i] + 20)
    endif

    *在图像上显示距离
    write_string (WindowID, 'width: ' + IntraDistance[i] + ' pix')
endfor
disp_continue_message (WindowID, 'black', 'true')
stop ()

*删除测量对象
close_measure (MeasureHandle)
dev_update_window ('on')
dev_clear_window ()

---

两个重要算子： 

生成测量矩形
gen_measure_rectangle2( : : Row, Column, Phi, Length1, Length2, Width, Height, Interpolation : MeasureHandle)

Row, Column,Phi：测量矩形中心的行列坐标和角度；
Length1, Length2：测量矩形的板宽和半高；
Width, Height：测量矩形所在的图像的宽和高；
Interpolation：插值算法
MeasureHandle：测量矩形的句柄

带边缘对查找
measure_pairs(Image : : MeasureHandle, Sigma, Threshold, Transition, Select : RowEdgeFirst, ColumnEdgeFirst, AmplitudeFirst, RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond, IntraDistance, InterDistance)

MeasureHandle：测量矩形的句柄；
Sigma：高斯平滑系数；
Threshold：最小边缘幅度；
Transition：过度，亮到暗’negative’, 暗到亮’positive’，两种都要’all’
Select ：如果设置为’all’，则返回所有边缘点。 如果将其设置为’ first’，则仅返回提取的边缘点中的第一个，而将其设置为’last’时，仅返回最后一个。
RowEdgeFirst, ColumnEdgeFirst,AmplitudeFirst：第一条边中心的行列坐标和边缘幅度
RowEdgeSecond, ColumnEdgeSecond, AmplitudeSecond：第二条边中心的行列坐标和边缘幅度
IntraDistance：返回边缘对中两条边之间的距离
Distance：返回连续两个边缘对之间的距离