把打光图片的边界拟合出来

把打光图片的边界拟合出来，将拟合出来的效果进行划线显示

拟合出物体打光的边沿

1. list_files ('C:/Users/Administrator/Desktop/新建文件夹', ['files','follow_links','recursive'], ImageFiles)
   
2. tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$','ignore_case'], ImageFiles)
   
3. for Index := 0 to |ImageFiles| - 1 by 1
   
4.     read_image (Image, ImageFiles[Index])
   
5.     * Image Acquisition 02: Do something
   
6.     mean_image (Image, ImageMean, 10, 199)
   
7.     emphasize (ImageMean, ImageEmphasize, 77, 77, 15)
   
8.     edges_sub_pix (ImageEmphasize, Edges, 'canny', 2, 30, 60)
   
9.     union_adjacent_contours_xld (Edges, UnionContours, 2, 1, 'attr_keep')
   
10.     length_xld (UnionContours, Length)
    
11.     tuple_sort_index (Length, Indices)
    
12.     tuple_inverse (Indices, Inverted)
    
13.     select_obj (UnionContours, ObjectSelected, Inverted[0:1]+1)
    
14.     dev_display (Image)
    
15.     dev_display (ObjectSelected)
    
16.     stop ()
    
17. endfor

复制代码

学习了、、

厉害LIHAILIHAILIAHI

学习一下，感谢分享。。。

学习一下

感谢分享