关于做该齿轮的表面质量检测探讨

1. dev_update_off ()
   
2. dev_clear_window ()
   
3. 
   
4. for Index := 1 to 2 by 1
   
5.     read_image (Image, 'C:/Users/TIAN/Desktop/bb053aa1b6baf861c111a40a47a3c8ba.jpeg')
   
6.     get_image_size (Image, Width, Height)
   
7.     dev_open_window (0, 0, Width , Height, 'blue', WindowHandle)
   
8.     set_display_font (WindowHandle, 16, 'mono', 'true', 'false')
   
9.     dev_display (Image)
   
10.     threshold (Image, Regions, 147, 255)
    
11.     connection (Regions, ConnectedRegions)
    
12.     select_shape (ConnectedRegions, CircularRegions, \
    
13.                   ['area', 'circularity'], 'or', \
    
14.                   [20000, 0.6], [9999999, 1.0])
    
15.     reduce_domain (Image, CircularRegions, ImageReduced)
    
16.     derivate_gauss (ImageReduced, DerivGauss, 1.5, 'gradient')
    
17.     threshold (DerivGauss, GaussRegion, 9, 50)
    
18.     connection (GaussRegion, ConnectedGaussRegions)
    
19.     select_shape_std (ConnectedGaussRegions, EdgeSelectedStd, 'max_area', 70)
    
20.     fill_up (EdgeSelectedStd, RegionFillUp)
    
21.     difference (RegionFillUp, EdgeSelectedStd, RegionFillUp)
    
22.     connection (RegionFillUp, DiffRegions)
    
23.     select_shape (DiffRegions, DefectRegions, 'area', 'and', 50, 2000)
    
24.     dev_display (Image)
    
25. *     dev_set_draw ('margin')
    
26.     dev_display (DefectRegions)
    
27.     if (Index < 2)
    
28.         disp_continue_message (WindowHandle, 'black', 'true')
    
29.         stop ()
    
30.     endif

复制代码

程序到difference这一步就卡住 有大佬帮忙看看吗

    read_image (Image, 'E:/Picture/待图2/124844oetyye0ye029kek2.jpg')
    get_image_size (Image, Width, Height)

    dev_open_window (0, 0, Width , Height, 'black', WindowHandle)
    set_display_font (WindowHandle, 16, 'mono', 'true', 'false')
    dev_display (Image)
    threshold (Image, Regions, 147, 255)
    connection (Regions, ConnectedRegions)
    select_shape_std (ConnectedRegions, SelectedRegions, 'max_area', 70)
    fill_up (SelectedRegions, RegionFillUp)
   
    difference (RegionFillUp, SelectedRegions, RegionDifference)
    closing_circle (RegionDifference, RegionClosing, 50)
    difference (RegionFillUp, RegionClosing, RegionDifference1)
    gen_contour_region_xld (RegionDifference1, Contours, 'border_holes')
    dev_display (Image)
    dev_display (Contours)