条形光环境下
dev_update_window ('off')
list_image_files ('./image', 'default', [], ImageFiles)
imgNum:=|ImageFiles|
for Index := 0 to imgNum-1 by 1
read_image (Image, ImageFiles[Index])
decompose3 (Image, ImageR, ImageG, ImageB)
trans_from_rgb (ImageR, ImageG, ImageB, ImageResult1, ImageResult2, ImageResult3, 'hsv')
gen_rectangle1 (Rectangle ,300, 730, 1458, 1800 )
*缩小检测范围
reduce_domain (ImageResult2, Rectangle, ImageReduced)
dev_clear_window ()
*分割图像
var_threshold (ImageReduced, Region, 500, 500, 0.9, 9, 'dark')
*连通域分割
connection (Region, ConnectedRegions)
dev_clear_window ()
*利用特征筛选
select_shape (ConnectedRegions, SelectedRegions, ['width','height'], 'and', [0,105.09], [500,500])
dev_clear_window ()
select_shape (Sel