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

此例程是测量弧形

 读取图片：

*读取图片
read_image (Zeiss1, 'zeiss1')
*得到图片的宽高
get_image_size (Zeiss1, Width, Height)*关闭窗口
dev_close_window ()
*打开一个新的窗口
dev_open_window (0, 0, Width / 2, Height / 2, 'black', WindowHandle)
*设置显示的字体
set_display_font (WindowHandle, 14, 'mono', 'true', 'false')*显示图片
dev_display (Zeiss1)
*显示提示信息
disp_continue_message (WindowHandle, 'black', 'true')
stop ()

生成测量圆弧： 

*定义一些参数
* 弧线圆心
Row := 275
Column := 335
* 弧线半径
Radius := 107* 弧线起始角度和终点角度
AngleStart := -rad(55)
AngleExtent := rad(170)
dev_set_draw ('fill')
dev_set_color ('green')
dev_set_line_width (1)*计算与特定角度对应的椭圆点。
get_points_ellipse (AngleStart + AngleExtent, Row, Column, 0, Radius, Radius, RowPoint, ColPoint)
*显示圆弧
disp_arc (WindowHandle, Row, Column, AngleExtent, RowPoint, ColPoint)dev_set_line_width (3)
*生成测量圆弧
gen_measure_arc (Row, Column, Radius, AngleStart, AngleExtent, 10, Width, Height, 'nearest_neighbor', MeasureHandle)*显示提示信息
disp_continue_message (WindowHandle, 'black', 'true')
stop ()

 开始测量拟合：

*计数
count_seconds (Seconds1)
n := 10
for i := 1 to n by 1*开始测量边缘间的距离* 提取垂直于矩形或环形弧的直边* Image (input_object)  输入图像* MeasureHandle (input_control)  测量对象句柄* Sigma (input_control)  高斯平滑系数* Threshold (input_control)  最小边缘幅度* Transition (input_control) 检测所有正负边缘* Select (input_control)  选中所有边缘* RowEdge (output_control)  边缘中心行坐标* ColumnEdge (output_control)  边缘中心列坐标* Amplitude (output_control)  边缘的边缘幅度大小（带符号）* Distance (output_control)  相邻边缘之间的距离measure_pos (Zeiss1, MeasureHandle, 1, 10, 'all', 'all', RowEdge, ColumnEdge, Amplitude, Distance)endfor
count_seconds (Seconds2)
Time := (Seconds2 - Seconds1) / n*显示提示信息
disp_continue_message (WindowHandle, 'black', 'true')
* stop ()*计算两点间直线的距离
distance_pp (RowEdge[1], ColumnEdge[1], RowEdge[2], ColumnEdge[2], IntermedDist)
dev_set_color ('red')*画出直线
disp_line (WindowHandle, RowEdge[1], ColumnEdge[1], RowEdge[2], ColumnEdge[2])
dev_set_color ('yellow')*显示提示信息
disp_message (WindowHandle, 'Distance: ' + IntermedDist, 'image', 250, 80, 'yellow', 'false')*清除句柄
close_measure (MeasureHandle)
dev_set_line_width (1)
stop ()
dev_clear_window ()

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！