玻璃划伤检测

对算法进行了一些改进，但其实还有很多小的划痕没标出来

dev_close_window ()
dev_open_window (0, 0, 512, 360, 'black', WindowHandle)
* Image Acquisition 01: Code generated by Image Acquisition 01
read_image (Image, '13_28441_c01fde681ae40e0.png')
rgb1_to_gray (Image, GrayImage)
threshold (GrayImage, Regions, 86, 255)
fill_up (Regions, RegionFillUp)
erosion_circle (RegionFillUp, RegionErosion, 3.5)
reduce_domain (GrayImage, RegionErosion, ImageReduced)
emphasize (ImageReduced, ImageEmphasize, 7, 7, 1)
illuminate (ImageEmphasize, ImageIlluminate, 101, 101, 0.7)
threshold (ImageIlluminate, Regions1, 0, 122)
connection (Regions1, ConnectedRegions)
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 39.4, 500)
*select_shape_std (SelectedRegions, SelectedRegions1, 'max_area', 70)
region_features (SelectedRegions, 'connect_num', Value)
tuple_sum (Value, Sum)
dev_clear_window ()
dev_display (Image)
dev_display (SelectedRegions)
dev_disp_text ('number:'+Sum, 'window', 'top', 'left', 'black', [], [])

 

dev_close_window ()
dev_open_window (0, 0, 512, 360, 'black', WindowHandle)
* Image Acquisition 01: Code generated by Image Acquisition 01
read_image (Image, '13_28441_c01fde681ae40e0.png')
rgb1_to_gray (Image, GrayImage)

*mean_image (GrayImage, ImageMean, 9, 9)
*dyn_threshold (Image, ImageMean,  DarkPixels, 10, 'dark')
threshold (GrayImage, Regions, 86, 255)
fill_up (Regions, RegionFillUp)
erosion_circle (RegionFillUp, RegionErosion, 3.5)
reduce_domain (GrayImage, RegionErosion, ImageReduced)
emphasize (ImageReduced, ImageEmphasize, 7, 7, 1)
illuminate (ImageEmphasize, ImageIlluminate, 101, 101, 0.7)
mean_image (ImageIlluminate, ImageMean, 9, 9)
dyn_threshold (ImageIlluminate, ImageMean, DarkPixels,15, 'dark')
*threshold (ImageIlluminate, Regions1, 0, 140)
connection (DarkPixels, ConnectedRegions)
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 7, 500)

dilation_circle (SelectedRegions, RegionDilation, 3.5)
union1 (RegionDilation, RegionUnion)

reduce_domain (Image, RegionUnion, ImageReduced1)
lines_gauss (ImageReduced1, Lines, 0.8, 3, 5, 'dark', 'false', 'bar-shaped', 'false')

union_collinear_contours_xld (Lines, UnionContours, 40, 3, 3, 0.2, 'attr_keep')
select_shape_xld (UnionContours, SelectedXLD, 'contlength', 'and', 15, 1000)
gen_region_contour_xld (SelectedXLD, RegionXLD, 'filled')
union1 (RegionXLD, RegionUnion)
dilation_circle (RegionUnion, RegionScratches, 10.5)
* 
* Display the results
dev_set_draw ('margin')
dev_set_line_width (3)
dev_set_colored (12)
dev_display (Image)
dev_display (RegionScratches)