实例介绍
【实例简介】
【实例截图】
【实例截图】
【核心代码】
<?xml version="1.0" encoding="UTF-8"?>
<hdevelop file_version="1.1" halcon_version="12.0">
<procedure name="main">
<interface/>
<body>
<c>* </c>
<c>* Measure the dimensions of pads on a die with subpixel precision</c>
<c>* to make sure that the chip production is accurate and is applied</c>
<c>* according to the CAD data.</c>
<c>* To check and count the pads, the camera moves clockwise along</c>
<c>* the die border and grabs images at the different positions.</c>
<c>* For each image the number of visible pads is extracted and</c>
<c>* examined regarding to its dimension and location within the die.</c>
<c>* </c>
<l>dev_update_off ()</l>
<l>dev_close_window ()</l>
<c>* </c>
<l>read_image (Image, 'die/die_pads_01')</l>
<l>get_image_size (Image, Width, Height)</l>
<l>dev_open_window (0, 0, Width, Height, 'black', WindowHandle)</l>
<l>dev_set_draw ('margin')</l>
<l>set_display_font (WindowHandle, 16, 'mono', 'true', 'false')</l>
<l>dev_open_window (0, Width 12, 350, 350, 'black', WindowZoomed)</l>
<l>set_display_font (WindowZoomed, 16, 'mono', 'true', 'false')</l>
<c>* </c>
<c>* Calibration data</c>
<l>ScaleFactor := 2.75</l>
<c>* </c>
<c>* The dimensions of the pads are measured as follows: we extract</c>
<c>* the contours corresponding to the pad and fit a rectangle.</c>
<l>NumImages := 8</l>
<l>for Index := 1 to NumImages by 1</l>
<l> read_image (Image, 'die/die_pads_' Index$'.02')</l>
<c> * </c>
<c> * Segment pads</c>
<l> count_seconds (T1)</l>
<l> segment_pads_boundary_region (Image, RegionUnion)</l>
<c> * </c>
<c> * Find subpixel precise border of single pads</c>
<l> reduce_domain (Image, RegionUnion, ImageReduced)</l>
<l> fit_rectangle_to_pads_subpix (ImageReduced, Rectangles, RowPads, ColumnPads, PhiPads, HeightP, WidthP)</l>
<l> count_seconds (T2)</l>
<c> * </c>
<c> * Display statistics and results</c>
<l> HeightPad := (HeightP * 2) * ScaleFactor</l>
<l> WidthPad := (WidthP * 2) * ScaleFactor</l>
<c> * </c>
<l> dev_set_window (WindowHandle)</l>
<l> dev_display (Image)</l>
<l> Message := |RowPads| ' pads detected in ' ((T2 - T1) * 1000)$'.2f' ' ms\n '</l>
<l> Message[1] := 'Average pad dimensions:'</l>
<l> Message[2] := 'Mean width : ' mean(WidthPad)$'5.2f' ' µm Deviation: ' deviation(WidthPad)$'5.2f' ' µm'</l>
<l> Message[3] := 'Mean height: ' mean(HeightPad)$'5.2f' ' µm Deviation: ' deviation(HeightPad)$'5.2f' ' µm'</l>
<l> disp_message (WindowHandle, Message, 'window', 150, 100, 'black', 'true')</l>
<c> * </c>
<l> for IndexDispP := 0 to |RowPads| - 1 by 1</l>
<c> * </c>
<c> * Display in main window</c>
<l> dev_set_window (WindowHandle)</l>
<l> dev_set_line_width (2)</l>
<l> dev_set_color ('green')</l>
<l> dev_display (Rectangles)</l>
<l> select_obj (Rectangles, ObjectSelected, IndexDispP 1)</l>
<l> dev_set_color ('blue')</l>
<l> dev_display (ObjectSelected)</l>
<c> * </c>
<c> * Display current pad in zoom window</c>
<l> Column := ColumnPads[IndexDispP]</l>
<l> Row := RowPads[IndexDispP]</l>
<l> Length1 := HeightP[IndexDispP]</l>
<l> Length2 := WidthP[IndexDispP]</l>
<l> Phi := PhiPads[IndexDispP]</l>
<l> if (Phi < -0.1)</l>
<l> Phi := Phi rad(180)</l>
<l> endif</l>
<l> gen_ext_pad_contour_xld (Lines, Row, Column, Length1, Length2, Phi, LabelX, LabelY)</l>
<l> dev_set_window (WindowZoomed)</l>
<l> dev_set_part (RowPads[IndexDispP] - 32, ColumnPads[IndexDispP] - 32, RowPads[IndexDispP] 32, ColumnPads[IndexDispP] 32)</l>
<l> dev_display (Image)</l>
<l> dev_set_color ('green')</l>
<l> dev_set_line_width (2)</l>
<l> dev_display (Lines)</l>
<l> disp_message (WindowZoomed, WidthPad[IndexDispP]$'.2f' ' µm', 'image', LabelY[0], LabelX[0] - 7, 'green', 'false')</l>
<l> disp_message (WindowZoomed, HeightPad[IndexDispP]$'.2f' ' µm', 'image', LabelY[1], LabelX[1] - 17, 'green', 'false')</l>
<l> if (Index < 2)</l>
<l> disp_continue_message (WindowHandle, 'black', 'true')</l>
<l> stop ()</l>
<l> endif</l>
<l> wait_seconds (0.1)</l>
<l> endfor</l>
<l>endfor</l>
</body>
<docu id="main">
<parameters/>
</docu>
</procedure>
<procedure name="fit_rectangle_to_pads_subpix">
<interface>
<io>
<par name="Image" base_type="iconic" dimension="0"/>
</io>
<oo>
<par name="Rectangles" base_type="iconic" dimension="0"/>
</oo>
<oc>
<par name="Row" base_type="ctrl" dimension="0"/>
<par name="Column" base_type="ctrl" dimension="0"/>
<par name="Phi" base_type="ctrl" dimension="0"/>
<par name="Length1" base_type="ctrl" dimension="0"/>
<par name="Length2" base_type="ctrl" dimension="0"/>
</oc>
</interface>
<body>
<c>* Extract the subpixel edges of the pads and determine the</c>
<c>* dimensions by fitting a rectangle.</c>
<l>edges_sub_pix (Image, Edges, 'canny', 0.8, 15, 80)</l>
<l>select_shape_xld (Edges, SelectedXLD, 'contlength', 'and', 15, 99999)</l>
<l>union_adjacent_contours_xld (SelectedXLD, UnionContours, 3, 1, 'attr_keep')</l>
<l>select_shape_xld (UnionContours, Pads, 'contlength', 'and', 100, 99999)</l>
<l>sort_contours_xld (Pads, SortedContours, 'character', 'true', 'row')</l>
<l>fit_rectangle2_contour_xld (SortedContours, 'tukey', -1, 0, 0, 3, 2, Row, Column, Phi, Length1, Length2, PointOrder)</l>
<l>gen_rectangle2_contour_xld (Rectangles, Row, Column, Phi, Length1, Length2)</l>
<l>return ()</l>
</body>
<docu id="fit_rectangle_to_pads_subpix">
<parameters>
<parameter id="Column"/>
<parameter id="Image"/>
<parameter id="Length1"/>
<parameter id="Length2"/>
<parameter id="Phi"/>
<parameter id="Rectangles"/>
<parameter id="Row"/>
</parameters>
</docu>
</procedure>
<procedure name="segment_pads_boundary_region">
<interface>
<io>
<par name="Image" base_type="iconic" dimension="0"/>
</io>
<oo>
<par name="RegionUnion" base_type="iconic" dimension="0"/>
</oo>
</interface>
<body>
<c>* Segment the boundary region of the pads,</c>
<c>* which is later used for detailed edge extraction</c>
<l>get_image_size (Image, Width, Height)</l>
<l>threshold (Image, Region, 200, 255)</l>
<l>connection (Region, ConnectedRegions)</l>
<c>* Select candidates depending on the size ('width', 'area'),</c>
<c>* excluding regions touching the border ('row1','row2','column1'.'column2')</c>
<l>select_shape (ConnectedRegions, SelectedRegions, ['width','area','row1','row2','column1','column2'], 'and', [24,650,1,0,1,0], [40,950,Height - 1,Height - 2,Width - 1,Width - 2])</l>
<l>fill_up (SelectedRegions, RegionFillUp)</l>
<l>boundary (RegionFillUp, RegionBorder, 'outer')</l>
<l>dilation_rectangle1 (RegionBorder, RegionDilation, 3, 3)</l>
<l>union1 (RegionDilation, RegionUnion)</l>
<l>return ()</l>
</body>
<docu id="segment_pads_boundary_region">
<parameters>
<parameter id="Image"/>
<parameter id="RegionUnion"/>
</parameters>
</docu>
</procedure>
<procedure name="gen_ext_pad_contour_xld">
<interface>
<oo>
<par name="Lines" base_type="iconic" dimension="0"/>
</oo>
<ic>
<par name="Row" base_type="ctrl" dimension="0"/>
<par name="Column" base_type="ctrl" dimension="0"/>
<par name="Length1" base_type="ctrl" dimension="0"/>
<par name="Length2" base_type="ctrl" dimension="0"/>
<par name="Phi" base_type="ctrl" dimension="0"/>
</ic>
<oc>
<par name="LabelX" base_type="ctrl" dimension="0"/>
<par name="LabelY" base_type="ctrl" dimension="0"/>
</oc>
</interface>
<body>
<c>* To make the visualization more appealing, we display a rectangle,</c>
<c>* extend its sides a bit further so that the corners, i.e., the</c>
<c>* intersection points, become more apparent. We do this by mapping the unit</c>
<c>* square to the size and position of the pad, and then extending its sides</c>
<c>* by 1.25</c>
<l>X := [1,1,-1,-1]</l>
<l>Y := [1,-1,-1,1]</l>
<l>XExt := X * 1.25</l>
<l>YExt := Y * 1.25</l>
<c>* Adapt label position depending on pad orientation</c>
<l>if (abs(Phi) < 0.1)</l>
<l> XLabel := [0,1]</l>
<l> YLabel := [1,0]</l>
<l>else</l>
<l> XLabel := [1,0]</l>
<l> YLabel := [0,1]</l>
<l>endif</l>
<c>* </c>
<c>* Calculate the affine transformation which maps the unit square</c>
<c>* to the size and position of a given pad</c>
<l>hom_mat2d_identity (HomMat2DIdentity)</l>
<l>hom_mat2d_scale (HomMat2DIdentity, Length1, Length2, 0, 0, HomMat2DScale)</l>
<l>hom_mat2d_rotate (HomMat2DScale, Phi, 0, 0, HomMat2DRotate)</l>
<l>hom_mat2d_translate (HomMat2DRotate, Column, Row, HomMat2DTranslate)</l>
<l>affine_trans_point_2d (HomMat2DTranslate, X, YExt, Qx1, Qy1)</l>
<l>affine_trans_point_2d (HomMat2DTranslate, XExt, Y, Qx2, Qy2)</l>
<l>affine_trans_point_2d (HomMat2DTranslate, XLabel, YLabel, LabelX, LabelY)</l>
<c>* Generate contour</c>
<l>gen_empty_obj (Lines)</l>
<l>for IndexLines := 0 to |Qx1| - 1 by 1</l>
<l> if (IndexLines % 2)</l>
<l> gen_contour_polygon_xld (ContourLine, [Qy2[IndexLines],Qy2[(IndexLines 1) % 4]], [Qx2[IndexLines],Qx2[(IndexLines 1) % 4]])</l>
<l> else</l>
<l> gen_contour_polygon_xld (ContourLine, [Qy1[IndexLines],Qy1[(IndexLines 1) % 4]], [Qx1[IndexLines],Qx1[(IndexLines 1) % 4]])</l>
<l> endif</l>
<l> concat_obj (Lines, ContourLine, Lines)</l>
<l>endfor</l>
<l>return ()</l>
</body>
<docu id="gen_ext_pad_contour_xld">
<parameters>
<parameter id="Column"/>
<parameter id="LabelX"/>
<parameter id="LabelY"/>
<parameter id="Length1"/>
<parameter id="Length2"/>
<parameter id="Lines"/>
<parameter id="Phi"/>
<parameter id="Row"/>
</parameters>
</docu>
</procedure>
</hdevelop>
标签： Halcon
好例子网口号：伸出你的我的手 — 分享！
小贴士
感谢您为本站写下的评论，您的评论对其它用户来说具有重要的参考价值，所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字，对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙，所以请不要反馈意义不大的重复字符，也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明，或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦，又没人会搭理，于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享，对搜索内容的合法性不具有预见性、识别性、控制性，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论平台是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定，若资源存在侵权或相关问题请联系本站客服人员，点此联系我们。关于更多版权及免责申明参见 版权及免责申明
网友评论
我要评论