rgb1_to_gray (Image, GrayImage)
get_domain (GrayImage, Domain)
get_region_points (Domain, Rows, Columns)
*获得图像每个坐标的灰度
get_grayval (GrayImage, Rows, Columns, Grayval)
*获得图像每个坐标的灰度,并灰度赋值
Graycal (Grayval, 0, 250, i, Grayval)
set_grayval (Image, Rows, Columns, Grayval)
Graycal (Grayval, 255, 0, i, Grayval)
set_grayval (Image, Rows, Columns, Grayval)
Graycal (Grayval, 100, 30, i, Grayval)
set_grayval (Image, Rows, Columns, Grayval)
write_image (Image, 'bmp', 0, 'result')
GrayvalOut := Grayval
for i := 0 to |GrayvalOut|-1 by 1
if (GrayvalOut[i]== thres1)
GrayvalOut[i] := thres2
endif
endfor
return ()
处理结果: