ball.hdev: Inspection of Ball Bonding-例程带完整注释

最新推荐文章于 2024-03-28 19:02:39 发布

原创最新推荐文章于 2024-03-28 19:02:39 发布 · 526 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#Halcon

Halcon 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用图像处理技术来检测球形绑定的方法。通过读取图像、阈值分割、形态学操作等步骤，实现了对球体的有效识别，并进一步测量了球体的直径。

* ball.hdev: Inspection of Ball Bonding
*

dev_update_window ('off')

*dev_update_window( : : DisplayMode : ) 此处关闭窗口更新

dev_close_window ()

*dev_close_window( : : : ) 关闭（当前）活动的图形窗口

dev_open_window (0, 0, 728, 512, 'black', WindowID)

*dev_open_window( : : Row, Column, Width, Height, Background : WindowHandle)
打开一个新的图形窗口

read_image (Bond, 'die/die_03')
dev_display (Bond)

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

*set_display_font( : : WindowHandle, Size, Font, Bold, Slant : )

disp_continue_message (WindowID, 'black', 'true')

*disp_continue_message — This procedure displays 'Click 'Run' to continue' in the lower right corner of the screen.

stop ()
threshold (Bond, Bright, 100, 255)
shape_trans (Bright, Die, 'rectangle2')
dev_set_color ('green')
dev_set_line_width (3)
dev_set_draw ('margin')
dev_display (Die)
disp_continue_message (WindowID, 'black', 'true')
stop ()
reduce_domain (Bond, Die, DieGrey)
threshold (DieGrey, Wires, 0, 50)
fill_up_shape (Wires, WiresFilled, 'area', 1, 100)
dev_display (Bond)
dev_set_draw ('fill')
dev_set_color ('red')
dev_display (WiresFilled)
disp_continue_message (WindowID, 'black', 'true')
stop ()
opening_circle (WiresFilled, Balls, 15.5) *开运算之后实际上是一个连通域，形态学或者二值化之后的实际上是一个连通域。
dev_set_color ('green')
dev_display (Balls)
disp_continue_message (WindowID, 'black', 'true')
stop ()
connection (Balls, SingleBalls)
select_shape (SingleBalls, IntermediateBalls, 'circularity', 'and', 0.85, 1.0)
sort_region (IntermediateBalls, FinalBalls, 'first_point', 'true', 'column')
dev_display (Bond)
dev_set_colored (12)
dev_display (FinalBalls)
disp_continue_message (WindowID, 'black', 'true')
stop ()
smallest_circle (FinalBalls, Row, Column, Radius)
NumBalls := |Radius|
Diameter := 2 * Radius
meanDiameter := sum(Diameter) / NumBalls
mimDiameter := min(Diameter)
dev_display (Bond)
disp_circle (WindowID, Row, Column, Radius)
dev_set_color ('white')
for i := 1 to NumBalls by 1
if (fmod(i,2) == 1)
disp_message (WindowID, 'D: ' + Diameter[i - 1], 'image', Row[i - 1] - 2.7 * Radius[i - 1], max([Column[i - 1] - 60,0]), 'white', 'false')
else
disp_message (WindowID, 'D: ' + Diameter[i - 1], 'image', Row[i - 1] + 1.2 * Radius[i - 1], max([Column[i - 1] - 60,0]), 'white', 'false')
endif
endfor
* dump_window (WindowID, 'tiff_rgb', './ball')
dev_set_color ('green')
dev_update_window ('on')
disp_continue_message (WindowID, 'black', 'true')
stop ()
dev_close_window ()