halcon 区域变换 sort_region 归类操作

*sort_region，将随机状态排列的区域，按指定规则排序

read_image (Image, 'alpha2')
dev_close_window ()
get_image_size (Image, Width, Height)
dev_open_window (0, 0, Width, Height, 'black', WindowID)
mean_image (Image, ImageMean, 21, 21)
dyn_threshold (Image, ImageMean, RegionDynThresh, 5, 'dark')
connection (RegionDynThresh, ConnectedRegions)
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 100, 1000)
count_obj (SelectedRegions, Number)
area_center (SelectedRegions, Area, Row, Column)
dev_clear_window ()
for i := 1 to Number by 1
    select_obj (SelectedRegions, ObjectSelected, i)
    set_tposition (WindowID, Row[i - 1], Column[i - 1])
    dev_set_color ('red')
    dev_display (ObjectSelected)
    dev_set_color ('white')
    write_string (WindowID, round(i))
endfor
stop ()
dev_clear_window ()

*原型：sort_region(Regions : SortedRegions : SortMode, Order, RowOrCol : )

*Order：递增还是递减，默认递增

*RowOrCol：行优先还是列优先，默认行优先
sort_region (SelectedRegions, SortedRegions, 'character', 'true', 'row')
area_center (SortedRegions, Area, Row, Column)
for i := 1 to Number by 1
    select_obj (SortedRegions, ObjectSelected, i)
    set_tposition (WindowID, Row[i - 1], Column[i - 1])
    dev_set_color ('red')
    dev_display (ObjectSelected)
    dev_set_color ('white')
    write_string (WindowID, round(i))
endfor