Halcon练习作业题：扣出形状Region

练习题：使用regiongrowing()算子将图片内的形状抠出并显示不同颜色、显示实际面积

Demo:
read_image (Image, 'C:/Users/work.jpg')
dev_close_window ()
rgb1_to_gray (Image, GrayImage)
mean_image (GrayImage, ImageMean, 5, 5)
regiongrowing (ImageMean, Regions, 3,3, 5, 100)
shape_trans (Regions, RegionTrans, 'inner_center')
connection (Regions, ConnectedRegions)
select_shape (ConnectedRegions, SelectedRegions, ['area','width'], 'and', [8018.87,106.13], [14622.6,159.59])
area_center (SelectedRegions, Area, Row, Column)
count_obj (SelectedRegions, Number)
regiongrowing_mean (ImageMean, Regions1, Row, Column, 30, 100)
fill_up (Regions1, RegionFillUp)
dev_open_window_fit_image (GrayImage, 0, 0, -1, -1, WindowHandle)
dev_display (RegionFillUp)

*获取字体模板
query_font (WindowHandle, Font)
FontWithSize := Font[0]+'-Bold-20'
set_font (WindowHandle, FontWithSize)
color:=['#0887D6','#00C897','#DE324A']

for  Index  := 0 to Number-1 by 1
    dev_set_color (color[Index])
    dev_set_draw ('fill')   
     select_obj (RegionFillUp, ObjectSelected, Index+1)
    dev_display (ObjectSelected)
    dev_disp_text (Area[Index], 'image', Row[Index], Column[Index], 'black', 'box_color', 'white')
    
endfor