is_ims

(tmp_for_tar/imgio/is_ims.m)

Function Synopsis

ok = is_ims (ims)

Help text

       ok = is_ims (ims) 

  True iff ims is an image structure.

 Last modified: Setembro 2002

Cross-Reference Information

test_ims       tmp_for_tar/imgio/test_ims.m

Listing of function file tmp_for_tar/imgio/is_ims.m

##       ok = is_ims (ims) 
##
##  True iff ims is an image structure.
##

## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: Setembro 2002

function ok = is_ims (ims)

ok = 1;
if !is_struct(ims) || !struct_contains(ims,"im") || \
      !struct_contains(ims,"rgb") || !struct_contains(ims,"maxval"),
  ok = 0;
  return
end

				# Check whether rgb images have 3k columns
if ims.rgb && ( columns(ims.im) != 3*round(columns(ims.im)/3) ),
  ok = 0;
  return
end