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

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

复制代码