halcon数组的一些使用

没啥好讲的，这里对于不是数组部分的东西就不进行讲解了。

1. area_center(RegionOpening,Area, Row, Column)。使用area_center来求区域的中心和面积时，返回Area, Row, Column这三个参数。当区域的个数大于1时，Area, Row, Column都是一个数组
   
   返回的Area, Row, Column这个三个数组，Area是根据面积从小到达进行排序的，Row和Column是对应Area的区域的中心，即Row和Column的第一个元素是面积最小的区域的中心坐标

2. tuple_sort_index(Column,Sorted_Column)：对Column进行排序（从小到大），返回的是排序后的元素的索引。例如Column是【300，200， 100】，返回的Sorted_Column=【2,1,0】
3. new_row := Row[Sorted_Column]：让Row以Sorted_Column的方式进行排序，然后将值赋予new_row。例如Row=【20， 10， 50】，Sorted_Column=【2,1,0】----->  Row[Sorted_Column]  = 【50,10,20】
4. Halcon中的数组只能是1xN的数组， 即数组里面不能套数组

示例代码：

read_image(Image, 'printer_chip/printer_chip_01')*开启一个大小为512,512的窗口
dev_open_window(0, 0, 512, 512, 'black', WindowHandle)
*显示图像
dev_display(Image)
*在窗口上绘制矩形ROT区域，Row1,Column1是左上角坐标， Row2,Column2是右下角坐标
draw_rectangle1(WindowHandle, Row1, Column1, Row2, Column2)
*生成矩形ROI区域
gen_rectangle1(Rectangle_Roi, Row1, Column1, Row2, Column2)
*对图片进行处理，只留下ROI区域的图像，其余部分都变成黑的
reduce_domain(Image, Rectangle_Roi, ImageReduced)

*对图片进行均值滤波操作，10,10是kernel的大小
mean_image(ImageReduced, ImageMean, 10, 10)
*对原图和均值后的图进行像素值求差计算，如果差值超过5则保留
dyn_threshold(ImageReduced, ImageMean, RegionDynThresh, 5, 'dark')
*将区域打散
connection(RegionDynThresh, ConnectedRegions)
*使用面积来进行过滤
select_shape(ConnectedRegions, SelectedRegions, 'area', 'and', 4000, 99999)
*对区域进行填充
fill_up(SelectedRegions, RegionFillUp)
*使用大小为50*50的矩形区域来进行开开运算操作，放的下50*50矩阵的区域保留，放不下的就剔除
opening_rectangle1(RegionFillUp, RegionOpening, 50, 50)
*统计区域的数量
count_obj(RegionOpening, Number)
*求每一个区域的中心和面积，当区域的个数大于1时，Area, Row, Column都是一个数组
area_center(RegionOpening,Area, Row, Column)
*因为区域都在同一水平线上，所以根据column来进行排序操作，从小到大。返回的是排序后index的数组
tuple_sort_index(Column,Sorted_Column)

*halcon里的数组操作，就是把Row和Column的元素按照上面的排序方式来排序
new_row := Row[Sorted_Column]
new_column := Column[Sorted_Column]

*创建一个数组来统计相邻的两个区域之间的距离
distance_list := []
*使用for循环来遍历，计算当前区域和下一个区域的距离
for j := 0 to Number-1 by 1
    *描绘出区域的中心位置
    gen_circle(Circle, new_row[j], new_column[j], 10)
    *因为这里要描绘出每个区域的中心，所以j等于Number-1还要绘制中心
    *但j等于Number-1的时候就不计算距离了，因为Number-1已经是最后一个区域了，没有别的区域能和他计算距离了
    *所以使用break跳出循环
    if (j == Number-1)
       break
    endif
    *计算点和点之间的距离公式，new_row[j], new_column[j]是第一个点的坐标
    distance_pp(new_row[j], new_column[j], new_row[j+1], new_column[j+1], Distance)
    *将两个局域的距离放入数组。说明一下在halcon数组只能是1xN的数组，不能数组里面套数组
    distance_list[j] := Distance
endfor