* 函数封装---对输入的轮廓做点的均分处理---使得轮廓上点点间距离相等
* 输入值-轮廓对应的Row,Col坐标,mean_dis均分间距
*
* 输出值,
* 返回均分后的Row_end,col_end 坐标
dev_update_off ()
Row_end := []
col_end := []
*
dis := mean_dis
*
x1 := Col[0]
y1 := Row[0]
*
col_end := [col_end,x1]
Row_end := [Row_end,y1]
disNum:=0
for Index2 := 1 to |Row|-1 by 1
* 点点距离
x2 := Col[Index2]
y2 := Row[Index2]
while (1)
distance_pp (y1, x1, y2, x2, Distance)
gen_cross_contour_xld (Cross, [y1,y2], [x1,x2], 0.1, 0)
if (Distance>=dis)
x := (x2-x1)*dis/Distance+x1
y := (y2-y1)*dis/Distance+y1
col_end := [col_end,x]
Row_end := [Row_end,y]
x1 := x
y1 := y