octave_packages/image-1.0.15/isbw.m

   1 ## Copyright (C) 2000  Kai Habel
   2 ##
   3 ## This program is free software; you can redistribute it and/or modify
   4 ## it under the terms of the GNU General Public License as published by
   5 ## the Free Software Foundation; either version 2 of the License, or
   6 ## (at your option) any later version.
   7 ##
   8 ## This program is distributed in the hope that it will be useful,
   9 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 ## GNU General Public License for more details.
  12 ##
  13 ## You should have received a copy of the GNU General Public License
  14 ## along with this program; If not, see <http://www.gnu.org/licenses/>.
  15
  16 ## -*- texinfo -*-
  17 ## @deftypefn {Function File} @var{bool}= isbw (@var{BW})
  18 ## Returns true for a black-white (binary) image.
  19 ## All values must be either 0 or 1
  20 ## @end deftypefn
  21
  22 ## Author:      Kai Habel <kai.habel@gmx.de>
  23 ## Date:        20/03/2000
  24
  25 function bool = isbw (BW)
  26
  27   bool = 0;
  28   if !(nargin == 1)
  29     usage ("isbw(BW)");
  30   endif
  31
  32   if !(ismatrix(BW))
  33     return;
  34   endif
  35
  36   bool = all (all ((BW == 1) + (BW == 0)));
  37
  38 endfunction