7
GrabFrame(../pic/rgb.bmp);
Read2dimage(rgb.bmp,image);
Show2dimage(image);
ConvertGray(image,imageh);
Size(imageh,wid,hei);
IntToDouble(wid,nwid);
IntToDouble(hei,nhei);
SetRect(1,1,nwid,nhei,rect);
RectThreshDivision(imageh,rect,1,1,0,image1);
RectSmoothFilter(image1,rect,1,3,image2);
RectEdgeGet(image2,image3,rect,EROSIONCONTOUR);
Show2dimage(image3);
RectMuchCircle(image3 ,rect,n,x,y,r);
Show2dimage(image);
GenEllipses(x,y,r,r,0,2,red);
for(i=0,n,1);
a=(x[i]);
b=(y[i]-r[i]-5.0);
GenText(a,b,20,white,C,1);
c=(a+20.0);
CStringFormat(“%d,i”,s1);
GenText(c,b,20,white,s1,1);
d=(i*60+50.0);
GenText(10,d,20,green, C,1);
CStringFormat("%d,i",s2)
GenText(26,d,20,green,s2,1);
GenText(40,d,20,green,:,1);
GenText(52,d,20,green,半径,1);
e=(d+30.0);
CStringFormat(“%1f,r[i]”,s3);
GenText(50,e,15,red, s3,1);
GenText(140,e,20,green,圆心,1);
CStringFormat(“%1f,x[i]”,s4);
CStringFormat(“%1f,y[i]”,s5);
GenText(115,e,15,red, [,1);
GenText(145,e,15,red, s4,1);
GenText(220,e,15,red, s5,1);
GenText(280,e,15,red,],1);
endfor();
end();
StopFrame();