1 * ball.hdev: Inspection of Ball Bonding 2 * 球接合检查 Comment Time:2014/9/10 3 *核心思想：1.白色区域用作自动ROI，黑色区域是目标 4 *        2.Opening_circle:圆形开算子是关键   5 *关闭窗口刷新，关闭窗口，打开窗口[728,512] 6 dev_update_window (‘off‘) 7 dev_close_window () 8 dev_open_window (0, 0, 728, 512, ‘black‘, WindowID) 9 *读取图像并显示10 read_image (Bond, ‘die/die_03‘)11 dev_display (Bond)12 set_display_font (WindowID, 14, ‘mono‘, ‘true‘, ‘false‘)13 *显示F5提示信息并暂停14 disp_continue_message (WindowID, ‘black‘, ‘true‘)15 stop ()16 *固定二值化，取白色区域部分17 threshold (Bond, Bright, 100, 255)18 *将所有区域变换成最小的外接矩形，相当于做ROI19 shape_trans (Bright, Die, ‘rectangle2‘)20 *设置显示方式：绿色，边缘模式，线条宽度321 dev_set_color (‘green‘)22 dev_set_line_width (3)23 dev_set_draw (‘margin‘)24 dev_display (Die)25 disp_continue_message (WindowID, ‘black‘, ‘true‘)26 stop ()27 *利用生成的外接矩形做ROI28 reduce_domain (Bond, Die, DieGrey)29 *在ROI中二值化取黑色区域，并按面积标准填充30 threshold (DieGrey, Wires, 0, 50)31 fill_up_shape (Wires, WiresFilled, ‘area‘, 1, 100)32 *设置显示模式：填充模式，红色33 dev_display (Bond)34 dev_set_draw (‘fill‘)35 dev_set_color (‘red‘)36 dev_display (WiresFilled)37 disp_continue_message (WindowID, ‘black‘, ‘true‘)38 stop ()39 *圆形式的开运算：先腐蚀后膨胀，消除颗粒(精髓算子)40 opening_circle (WiresFilled, Balls, 15.5)41 dev_set_color (‘green‘)42 dev_display (Balls)43 disp_continue_message (WindowID, ‘black‘, ‘true‘)44 stop ()45 *单个区域连接成区域数组46 connection (Balls, SingleBalls)47 *按圆度来进行区域的筛选,完成定位功能48 select_shape (SingleBalls, IntermediateBalls, ‘circularity‘, ‘and‘, 0.85, 1.0)49 *已OK的区域进行从左至右排序50 sort_region (IntermediateBalls, FinalBalls, ‘first_point‘, ‘true‘, ‘column‘)51 dev_display (Bond)52 dev_set_colored (12)53 dev_display (FinalBalls)54 disp_continue_message (WindowID, ‘black‘, ‘true‘)55 stop ()56 *求区域的最小外接圆57 smallest_circle (FinalBalls, Row, Column, Radius)58 NumBalls := |Radius|59 Diameter := 2*Radius60 meanDiameter := sum(Diameter)/NumBalls61 mimDiameter := min(Diameter)62 dev_display (Bond)63 *显示最小外接圆64 disp_circle (WindowID, Row, Column, Radius)65 *书写文字标识66 dev_set_color (‘white‘)67 for i := 1 to NumBalls by 168     if (fmod(i,2)=1)69         disp_message (WindowID, ‘D: ‘+Diameter[i-1], ‘image‘, Row[i-1]-2.7*Radius[i-1], max([Column[i-1]-60,0]), ‘white‘, ‘false‘)70     else71         disp_message (WindowID, ‘D: ‘+Diameter[i-1], ‘image‘, Row[i-1]+1.2*Radius[i-1], max([Column[i-1]-60,0]), ‘white‘, ‘false‘)72     endif73 endfor74 *关闭窗口75 * dump_window (WindowID, ‘tiff_rgb‘, ‘./ball‘)76 dev_set_color (‘green‘)77 dev_update_window (‘on‘)78 disp_continue_message (WindowID, ‘black‘, ‘true‘)79 stop ()80 dev_close_window ()