01-Harris角点检测，棋盘格的角点定位

 1 read_image (Image, 'C:/Users/AI-113/Desktop/3C0BE0BC-63C2-47da-AAC1-25420E6BAA51.png')
 2 
 3 dev_set_color('red')
 4 P:=[]
 5 
 6 * Filters / Points角点，使用Harris算子检测感兴趣的点。
 7 * points_harris(Image : : SigmaGrad, SigmaSmooth, Alpha, Threshold : Row, Column)
 8 * Image：输入参数，输入灰度图像。
 9 * SigmaGrad：输入参数，设置梯度的平滑量。默认0.7，范围> 0.0，常用范围0.7 ≤ SigmaGrad ≤ 50.0
10 * SigmaSmooth：输入参数，设置梯度积分的平滑量。默认2.0，范围> 0.0，常用范围0.7 ≤ SigmaSmooth ≤ 50.0。
11 * Alpha：输入参数，设置平方梯度矩阵的权值。默认0.08，范围> 0.0，常用范围0.001 ≤ Alpha ≤ 0.1。
12 * Threshold：输入参数，设置点的最小滤波器响应。默认1000.0，范围≥0.0。
13 * Row：输出参数，检测到的点的行坐标。
14 * Column：输出参数，检测到的点的列坐标。
15 * SigmaGrad值的改变，检测到的角点数量增加，但图像平滑区域的角点数量减少。
16 * SigmaSmooth, Alpha, Threshold值的增加，检测到的角点数量减少。
17 
18 gen_cross_contour_xld(Cross, Row, Column, 6, 0.785398)
19 n0:=|Row|
20 P:=[P,n0]
21 dev_display(Cross)
22 
23 write_image (Image, 'png', 0, 'C:/Users/AI-113/Desktop/out')