查找大小圆

 

 

 

read_image (Image, '大小圆')
get_image_size (Image, Width, Height)
dev_close_window ()
dev_open_window (0, 0, Width, Height, 'black', WindowHandle)
dev_display (Image)
rgb1_to_gray (Image, GrayImage)
mean_image (GrayImage, ImageMean, 53, 53)
dyn_threshold (GrayImage, ImageMean, RegionDynThresh, 5, 'dark')
fill_up (RegionDynThresh, RegionFillUp)
erosion_circle (RegionFillUp, RegionErosion, 10.5)
connection (RegionErosion, ConnectedRegions)
shape_trans (ConnectedRegions, RegionTrans, 'inner_circle')
count_obj (RegionTrans, Number)
dev_display (Image)
for Index := 1 to Number by 1
select_obj (RegionTrans, ObjectSelected, Index)
smallest_circle (ObjectSelected, Row, Column, Radius)
if(Radius>30)
disp_message (WindowHandle, '大圆'+Radius, 'Image', Row, Column, 'black', 'true')
else
disp_message (WindowHandle, '小圆'+Radius, 'Image', Row, Column, 'red', 'true')
endif
endfor