read_image (Image1361423, '1361423.bmp')
rgb1_to_gray (Image1361423, GrayImage)
threshold (Image1361423, Region, 128, 255)
connection (Region, ConnectedRegions)
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 40000, 999999)
shape_trans (SelectedRegions, RegionTrans, 'convex')
erosion_circle (RegionTrans, RegionErosion, 3.5)
difference (RegionTrans, RegionErosion, RegionDifference)
paint_region (RegionDifference, GrayImage, ImageResult1, 255, 'fill')
paint_region (RegionDifference, GrayImage, ImageResult2, 144, 'fill')
paint_region (RegionDifference, GrayImage, ImageResult3, 121, 'fill')
compose3 (ImageResult1, ImageResult2, ImageResult3, MultiChannelImage)