一个边界跟踪的小程序

[yfl]

clc,clear
close all
BW1=imread('text.png');
%figure,imshow(BW1)
c =find(BW1(:,15),1)
r =find(BW1(c,:),1)
%BW2 = bwselect(BW1,c,r,4);
B=bwboundaries(BW1,'holes');
figure, imshow(BW1)
hold on
for k=1:length(B)
counter=B{k}
plot(counter(:,2),counter(:,1),'r','LineWidth',1)
end