*关闭过程更新,不更新变量窗口,让程序更快
dev_update_off ()
*读取图片
gen_image_const (Image, 'byte', 50, 50)
gen_image_const (Image1, 'byte', 50, 50)
*图像转为灰度图
rgb1_to_gray (Image, GrayImage)
*获得图像区域以及坐标
get_domain (GrayImage, Domain)
get_region_points (Domain, Rows, Columns)
*获得图像每个坐标的灰度
get_grayval (GrayImage, Rows, Columns, Grayval)
*循环改变灰度值
for i := 0 to |Grayval|-1 by 1
if (Grayval[i]== 0)
Grayval[i] := 200
endif
endfor
*灰度赋值
set_grayval (Image1, Rows, Columns, Grayval)
write_image (Image1, 'bmp', 0, 'result')
11-10
2455
10-13
2256
02-01
3702