线性灰度变换
read_image()中选择图像时,可以双击“浏览”选择图像
read_image(Image,'C:/Users/Administrator/Pictures/高01.jpg')
* Close the active graphics window.
dev_close_window()
get_image_size(Image,Width,Height)
dev_open_window_fit_size(0,0,Width,Height,-1,-1,WindowHandle)
dev_display(Image)
rgb1_to_gray(Image,GrayImage)
dump_window(WindowHandle,'bmp','result/原图')
invert_image(GrayImage,ImageInvert)
dump_window(WindowHandle,'bmp','result/取反')
emphasize(GrayImage,ImageEmphasize,Width,Height,1)
dump_window(WindowHandle,'bmp','result/对比度增强')
* Scale the gray values of an image; g' := g * Mult + Add;
* 减小对比度
scale_image(GrayImage,ImageScaled1,0.5,0)
dump_window(WindowHandle,'bmp','result/减小对比度')
* 增加亮度
scale_image(GrayImage,Imagesize2,1,100)
dum