上面的麻烦,下面的可以运行
gen_circle (Circle, 200, 200, 100.5)
get_region_points (Circle, Rows, Columns)
*控制变量索引从0开始
for Index := 0 to |Rows|-1 by 1
*根据xy坐标生成十字叉轮廓
gen_cross_contour_xld (Cross, Rows[Index], Columns[Index], 10, 0)
endfor
gen_contour_region_xld (Circle, Contours, 'border')
*获取轮廓点组
get_contour_xld (Contours, Row4, Col)
*生成十字叉轮廓线
gen_cross_contour_xld (Cross1, Row4, Col, 20, 0)
X:=[]
Y:=[]
i:=0
for Index1 := 0 to |Row4| by 1
if(Index1==i)
X:=[X,Row4[Index1]]
Y:=[Y,Col[Index1]]
i:=Index1+20
endif
endfor
*生成十字叉轮廓线
gen_cross_contour_xld (Cross2, X, Y, 6, 0)
*获取轮廓中心与面积
area_center_xld (Contours, Area1, Row6, Column5, PointOrder)
*生成十字叉轮廓线
gen_cross_contour_xld (Cross4, Row6, Column5, 20, 0)
*获取区域灰度平均值(判断有无) |