1.9 halcon 测量圆形金属弧长

前面帖子介绍的为矩形范围内测量边缘对的距离。
其实很多情况会有测量弧长的需要。
当前这个帖子通过 使用函数gen_measure_arc来计算弧长。

1.9 halcon 测量圆形金属弧长

实现代码与注释如下：

1. 
   
2. *从磁盘读取图片保存到变量Zeiss1
   
3. read_image (Zeiss1, 'zeiss1')
   
4. *获取图片长宽
   
5. get_image_size (Zeiss1, Width, Height)
   
6. dev_close_window ()
   
7. dev_open_window (0, 0, Width / 2, Height / 2, 'black', WindowHandle)
   
8. set_display_font (WindowHandle, 14, 'mono', 'true', 'false')
   
9. dev_display (Zeiss1)
   
10. disp_continue_message (WindowHandle, 'black', 'true')
    
11. stop ()
    
12. * draw_circle (WindowHandle, Row, Column, Radius)
    
13. Row := 275
    
14. Column := 335
    
15. Radius := 107
    
16. AngleStart := -rad(55)
    
17. AngleExtent := rad(170)
    
18. dev_set_draw ('fill')
    
19. dev_set_color ('green')
    
20. dev_set_line_width (1)
    
21. *函数用于计算椭圆上特定角度 上的一个点，为实现绘制出测量区域，与绘制矩形区域 类似 。
    
22. *AngleStart + AngleExtent,为圆弧起始角度与拓展角度之和，
    
23. *Row, Column, 为椭圆中心行列坐标
    
24. *0为椭圆主轴旋转角度, Radius, Radius,为椭圆长短半轴长度，
    
25. *RowPoint, ColPoint为椭圆上点的行列坐标，为数组形式，由AngleStart + AngleExtent范围决定
    
26. get_points_ellipse (AngleStart + AngleExtent, Row, Column, 0, Radius, Radius, RowPoint, ColPoint)
    
27. *显示弧度，Row, Column为椭圆中心行列坐标，AngleExtent为起点终点的的角度范围
    
28. *RowPoint, ColPoint为圆弧起点。
    
29. disp_arc (WindowHandle, Row, Column, AngleExtent, RowPoint, ColPoint)
    
30. dev_set_line_width (3)
    
31. *生成测量圆弧，和前面帖子生成的测量矩形类似。用于非直线他的同学的边缘距离 提取。
    
32. *Row, Column, 为圆弧中心行列坐标，Radius, AngleStart, AngleExtent,为圆弧半径，起始角度，
    
33. *10, Width, Height, 为圆弧宽度一半，图像宽，度。
    
34. *'nearest_neighbor',在投影时采用近邻插值方法， MeasureHandle为前面 生成的测量圆弧句柄。
    
35. gen_measure_arc (Row, Column, Radius, AngleStart, AngleExtent, 10, Width, Height, 'nearest_neighbor', MeasureHandle)
    
36. disp_continue_message (WindowHandle, 'black', 'true')
    
37. stop ()
    
38. count_seconds (Seconds1)
    
39. n := 10
    
40. for i := 1 to n by 1
    
41.    *measure_pos前面帖子已介绍过，为一测量函数，用于测量边缘音距离 ，Image为输入图像, MeasureHandle为输入窗口句柄 ,
    
42. *1.5为高斯平滑系数, 30为最小边缘幅度值, 'all'检测所有正负边缘, 'all'表示选中所有边缘,
    
43. *RowEdge, ColumnEdge边缘中心行列坐标, Amplitude边缘幅度大小, Distance边缘间距
    
44.     measure_pos (Zeiss1, MeasureHandle, 1, 10, 'all', 'all', RowEdge, ColumnEdge, Amplitude, Distance)
    
45. endfor
    
46. count_seconds (Seconds2)
    
47. Time := (Seconds2 - Seconds1) / n
    
48. disp_continue_message (WindowHandle, 'black', 'true')
    
49. * stop ()
    
50. distance_pp (RowEdge[1], ColumnEdge[1], RowEdge[2], ColumnEdge[2], IntermedDist)
    
51. * dev_display (Zeiss1)
    
52. dev_set_color ('red')
    
53. * disp_circle (WindowHandle, RowEdge, ColumnEdge, RowEdge - RowEdge + 1)
    
54. disp_line (WindowHandle, RowEdge[1], ColumnEdge[1], RowEdge[2], ColumnEdge[2])
    
55. dev_set_color ('yellow')
    
56. disp_message (WindowHandle, 'Distance: ' + IntermedDist, 'image', 250, 80, 'yellow', 'false')
    
57. * dump_window (WindowHandle, 'tiff_rgb', 'C:\\Temp\\zeiss_result')
    
58. close_measure (MeasureHandle)
    
59. dev_set_line_width (1)
    
60. * disp_continue_message (WindowHandle, 'black', 'true')
    
61. stop ()
    
62. dev_clear_window ()

复制代码