*满足接近圆的公式 c=区域面积/(区域内最大直线距离的平方*pi)
*如果是一个纯正的圆,c=1
*如果区域内有空洞,则c<1
*越接近1,则越接近圆
read_image(Image,'tooth_rim')
regiongrowing (Image,Regions,1,1,3,100)
count_obj(Regions,Number)//共27个
for i:=1 to Number by 1
dev_set_color('white')
select_obj(Regions,ObjectSelected,i)
circularity(ObjectSelected,Circularity)
if (Circularity>0.9)
dev_set_color('red')
dev_display(ObjectSelected)
endif
endfor