read_image(Image, 'C:/Users/86173/Desktop/test/4.png')
get_image_size(Image, Width, Height)
dev_close_window()
dev_open_window(0, 0, Width, Height, 'black', WindowHandle)
dev_display(Image)
rgb1_to_gray(Image, GrayImage)
gray := 88
threshold(GrayImage, Region, gray, 255)
binary_threshold(GrayImage, Region1, 'max_separability', 'dark', UsedThreshold)
mean_image(GrayImage, ImageMean, 15, 15)
dyn_threshold(GrayImage, ImageMean, RegionDynThresh, 5, 'light')
connection(RegionDynThresh, ConnectedRegions)
select_shape(ConnectedRegions, SelectedRegions, 'area', 'and', 1500, 99999)
select_shape(SelectedRegions, SelectedRegions1, 'area', 'and', 1500, 3000)
difference(SelectedRegions, SelectedRegions1, RegionDifference)
gen_circle(Circle, 200, 200, 100.5)
gen_circle(Circle1, 200, 200, 150.5)
difference(Circle1, Circle1, RegionDifference1)
fill_up(RegionDifference, RegionFillUp)
select_shape(RegionFillUp, SelectedRegions1, 'rectangularity', 'and', 0.9, 1)
select_shape(SelectedRegions1, SelectedRegions2, 'area', 'and', 13000, 20000)
shape_trans(SelectedRegions2, RegionTrans, 'convex')
draw_region(Region, WindowHandle)
shape_trans(Region, RegionTrans1, 'convex')
difference(RegionTrans1, Region, RegionDifference2)
skeleton(SelectedRegions, Skeleton)
dev_display(Region)
dilation_circle(Region, RegionDilation, 3.5)
erosion_circle(Region,RegionErosion,3.5)
difference(RegionDilation, RegionErosion, RegionDifference3)
closing_circle(RegionDifference3, RegionClosing, 3.5)
*opening_circle(RegionClosing, RegionOpening, 3.5)
boundary(RegionClosing, RegionBorder, 'inner')
