read_image (Image, 'fabrik')
dev_close_window ()
dev_open_window (0, 0, 512, 512, 'black', WindowID)
dev_set_color ('white')
dev_set_draw ('fill')
//区域生长法获得区域
regiongrowing (Image, Regions, 1, 1, 3, 10)
dev_set_color ('red')
//选择region,要求凸性在0.95到1之间
select_shape (Regions, SelectedRegions, 'convexity', 'and', 0.95, 1)
dev_set_color ('green')
//选择region,要求宽度在100到512之间
select_shape (Regions, SelectedRegions, 'width', 'and', 100, 512)
dev_set_color ('blue')
//选择region,要求面积在1到100之间
select_shape (Regions, SelectedRegions, 'area', 'and', 1, 100)