read_image (Image, 'G:/image.png')
rgb1_to_gray(Image, GrayImage)
decompose3(Image, Image1, Image2, Image3)
mean_image(Image2, ImageMean, 100, 100)
dyn_threshold(Image2, ImageMean, RegionDynThresh, 2, 'dark')
get_domain(ImageMean, Domain)
erosion_rectangle1(Domain, RegionErosion, 101, 101)
intersection(RegionErosion, RegionDynThresh, RegionIntersection)
connection(RegionIntersection, ConnectedRegions)
select_shape(ConnectedRegions, SelectedRegions, 'area', 'and', 5, 99999)
union1(SelectedRegions, RegionUnion)
rank_region(RegionUnion, RegionCount, 15, 15, 70)
dev_display(Image)
dev_display(RegionCount)