read_image(Image,'fabrik')
dev_set_color('white')
dev_set_draw('fill')
*利用区域增长分割图像
regiongrowing(Image,Regions,1,1,3,400)
dev_set_color('red')
dev_get_window(WindowHandle)
while(1)
    *用鼠标获取对应区域所在的位置
    get_mbutton(WindowHandle,Row,Column,Button)
    *获取指定位置所在区域的索引号
    get_region_index(Regions,Row,Column,Index)
    if(Index #[])
        select_obj(Regions,ObjectSelected,Index)
        select_region_point(Regions,DestRegions,Row, Column)
    endif
endwhile