仿射变换hom_mat2d_identity

Halcom

仿射变换：图像分辨率过大，内存消耗严重，此时较多的分割感兴趣的区域进行算法分析，算法分析完成后，需要将结果仿射变换回原图的过程。

1. read_image (Image, 'C:/Users/ysw/Desktop/视频讲解/图像处理视频Halcon/仿射变换/defect4.bmp')
   
2. count_channels(Image, Channels)
   
3. if(Channels>1)
   
4.     rgb1_to_gray(Image, Image)
   
5. endif
   
6. get_image_size(Image, Width, Height)
   
7. 
   
8. **** 二值化操作 ********
   
9. threshold (Image, Regions, 3, 255)
   
10. connection(Regions, ConnectedRegions)
    
11. select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 100, 178455)
    
12. fill_up(SelectedRegions, RegionFillUp)
    
13. 
    
14. **** 水平矫正 ********
    
15. smallest_rectangle2(RegionFillUp, Row, Column, Phi, Length1, Length2)
    
16. if(Phi>rad(45))
    
17.     Phi := Phi-rad(45)
    
18. elseif(Phi<-rad(45))
    
19.     Phi := Phi+rad(90)
    
20. else
    
21. endif
    
22. vector_angle_to_rigid(Height/2,Width/2,0,Height/2,Width/2,-Phi,HomMat2D)
    
23. 
    
24. *********************** 仿射变换 *********************************
    
25. affine_trans_image(Image, ImageAffinTrans, HomMat2D, 'constant', 'false')
    
26. affine_trans_region(RegionFillUp, RegionAffineTrans, HomMat2D, 'false')
    
27. 
    
28. ***** 产生一个矩形,查看仿射变换后的结果,截取目标所在的像素区域 ************
    
29. inner_rectangle1(RegionAffineTrans, Row1, Column1, Row2, Column2)
    
30. gen_rectangle1(Rectangle, Row1, Column1, Row2, Column2)
    
31. reduce_domain(ImageAffinTrans, Rectangle, ImageReduced)
    
32. crop_part(ImageReduced, ImagePart, Row1, Column1, Column2-Column1, Row2-Row1)
    
33. 
    
34. ********* 二值化处理 ******************
    
35. threshold (ImagePart, Regions1, 0, 5)
    
36. connection(Regions1, ConnectedRegions1)
    
37. 
    
38. *********** 仿射反变换 ***************
    
39. hom_mat2d_identity(HomMat2DIdentity)
    
40. hom_mat2d_translate(HomMat2DIdentity,Row1,Column1,HomMat2DTranslate)
    
41. hom_mat2d_rotate(HomMat2DTranslate,Phi,Height/2,Width/2,HomMat2DRotate)
    
42. affine_trans_region(ConnectedRegions1,RegionAffineTrans1, HomMat2DRotate, 'false')
    
43. 
    
44. *********** 标记 ********************
    
45. area_center(RegionAffineTrans1, Area, Row3, Column3)
    
46. if(|Row3|>0)
    
47.     tuple_gen_const(|Row3|,10,Radius)
    
48.     gen_circle_contour_xld(RegionAffineTrans1,Row3,Column3,Radius,0,6.28,'positive',1)
    
49. else
    
50.     gen_empty_obj(ConnectedRegions1)
    
51. endif

复制代码

skb171890641

这个应该很精确吧，

Halcom

skb171890641 发表于 2017-1-12 19:14
这个应该很精确吧，

FFT-RFT-DFT，对于有规则纹理的图像而言，确实是很好的一个算法