二值化模板图像匹配

Halcom

二值化模板图像匹配

1. dev_update_off()
   
2. dev_set_draw('margin')
   
3. read_image (Image, 'E:/视频讲解/图库/4Cam0_00.PNG')
   
4. get_image_size(Image, Width, Height)
   
5. * 加载模型
   
6. read_region(ModelEdges, 'regionMatchingModel.hobj')
   
7. 
   
8. * 提取纹理特征
   
9. * inspect_shape_model(Image, ModelImages, ModelRegions, 1, 10)
   
10. texture_laws(Image, ImageEL, 'el', 5, 5)
    
11. threshold(ImageEL,Region,5,255)
    
12. texture_laws (Image, ImageLE, 'le', 5, 5)
    
13. threshold(ImageLE,Region1,5,255)
    
14. union2(Region, Region1, RegionUnion)
    
15. * blob分析
    
16. connection(RegionUnion, ConnectedRegions)
    
17. select_shape(ConnectedRegions, SelectedRegions, 'area', 'and', 150, 9999999)
    
18. union1(SelectedRegions, RegionUnion1)
    
19. 
    
20. * 二值化配准
    
21. zbest_Area:=0
    
22. zbest_Rx:=0
    
23. zbest_Cx:=0
    
24. zbest_Cita:=0
    
25. gen_empty_obj(zbest_Region)
    
26. region_features(RegionUnion1, 'area', Value)
    
27. if(Value>0)
    
28.     smallest_rectangle1(RegionUnion1, Row1, Column1, Row2, Column2)
    
29.     smallest_rectangle1(ModelEdges, Row11, Column11, Row21, Column21)
    
30.     move_region(ModelEdges, InitPos, Row1-Row11, Column1-Column11)
    
31.    
    
32.     for cita:= -1 to 1 by 0.5
    
33.         vector_angle_to_rigid(Height/2,Width/2,0,Height/2,Width/2,rad(cita),HomMat2D)
    
34.         affine_trans_region(RegionUnion1, RegionAffineTrans, HomMat2D, 'nearest_neighbor')
    
35.         for Rx:=0 to 30 by 2
    
36.             for Cx:=0 to 30 by 2
    
37.                 move_region(InitPos, RegionMoved, Rx, Cx)
    
38.                 intersection(RegionMoved, RegionAffineTrans, RegionIntersection)
    
39.                 region_features(RegionIntersection, 'area', Value1)
    
40.                 if(Value1>zbest_Area)
    
41.                     zbest_Area:=Value1
    
42.                     zbest_Rx:=Rx
    
43.                     zbest_Cx:=Cx
    
44.                     zbest_Cita:=cita
    
45.                     union1(RegionMoved, zbest_Region)
    
46.                 endif
    
47.             endfor
    
48.         endfor
    
49.     endfor
    
50.    
    
51.    
    
52. endif

复制代码