Mercurial > hg > octave-image
changeset 127:22b50173f594
Use logical in tests; reduce number of shared variables in tests.
author | pkienzle |
---|---|
date | Wed, 15 Sep 2004 13:51:10 +0000 |
parents | 8d3d8804b430 |
children | ecf5b98b79d6 |
files | bwmorph.m |
diffstat | 1 files changed, 22 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/bwmorph.m +++ b/bwmorph.m @@ -572,27 +572,34 @@ ## Test skel-lantuejoul using Gozalez&Woods example (fig 8.39) -%!shared slBW,slBW2_1,slBW2_2,slBW2_3 -%! slBW=zeros(12,7); -%! slBW(2,2)=1; -%! slBW(3:4,3:4)=1; -%! slBW2_1=slBW; -%! slBW(5:6,3:5)=1; -%! slBW(7:11,2:6)=1; -%! slBW2_2=slBW2_1; -%! slBW2_2(6:7,4)=1; -%! slBW2_3=slBW2_2; -%! slBW2_3(9,4)=1; +%!shared slBW +%! slBW=logical(zeros(12,7)); + +%!test +%! slBW(2,2)=logical(1); +%! slBW(3:4,3:4)=logical(1); +%! assert(bwmorph(slBW,'skel-lantuejoul',1),slBW); -%!assert(bwmorph(slBW,'skel-lantuejoul',1),slBW2_1); -%!assert(bwmorph(slBW,'skel-lantuejoul',2),slBW2_2); -%!assert(bwmorph(slBW,'skel-lantuejoul',3),slBW2_3); -%!assert(bwmorph(slBW,'skel-lantuejoul',Inf),slBW2_3); +%!test +%! #slBW(5:6,3:5)=logical(1); +%! #slBW(7:11,2:6)=logical(1); +%! assert(bwmorph(slBW,'skel-lantuejoul',2),slBW); + +%!test +%! slBW(6:7,4)=logical(1); +%! assert(bwmorph(slBW,'skel-lantuejoul',3),slBW); + +%!test +%! slBW(9,4)=logical(1); +%! assert(bwmorph(slBW,'skel-lantuejoul',Inf),slBW); % % $Log$ +% Revision 1.3 2004/09/15 13:51:10 pkienzle +% Use logical in tests; reduce number of shared variables in tests. +% % Revision 1.2 2004/09/01 22:35:47 jmones % Added Lantuejoul skeletonizing algorithm from Gonzalez&Woods %