1、图像处理
*关闭过程更新
dev_update_off ()
*读取图片
dev_open_file_dialog ('read_image', 'default', 'default', Selection)
read_image (Image, Selection)
*图像转为灰度图
rgb1_to_gray (Image, GrayImage)
*图像相加
add_image (GrayImage, GrayImage, ImageResult, 0.8, 100)
*获得图像区域坐标
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]>100)
Grayval[i]:=255
endif
endfor
*灰度赋值
set_grayval (ImageResult, Rows, Columns, Grayval)
*图像取对数
log_image (GrayImage, LogImage, 'e')
*图像取指数
exp_image (LogImage, ExpImage, 'e')
*图像均衡化
equ_histo_image (GrayImage, ImageEquHisto)