5、直方图二值化的例子

read_image (Image, 'D:/1.tif')

emphasize (Image, ImageEmphasize, 7, 7, 1)

gen_rectangle1 (ROI_0, 149.936, 263.422, 785.883, 1049.47)

reduce_domain (ImageEmphasize, ROI_0, ImageReduced)

gray_histo_range (ROI_0, Image, 0, 30, 256, Histo, BinSize)

histo_to_thresh (Histo, 2, MinThresh, MaxThresh)

dev_set_draw ('margin')

for i:=0 to |MinThresh|-1 by 1

    threshold (ImageReduced, Region, MinThresh[i], MaxThresh[i])

endfor