ims_set_rgb

(tmp_for_tar/imgio/ims_set_rgb.m)

Function Synopsis

im = ims_set_rgb (im, rgb)

Help text

 im = ims_set_rgb (im, rgb)   - Set im.rgb and modify im.im accordingly

 Plain matrices accepted too

 Last modified: Setembro 2002

Listing of function file tmp_for_tar/imgio/ims_set_rgb.m

## im = ims_set_rgb (im, rgb)   - Set im.rgb and modify im.im accordingly
##      
## Plain matrices accepted too

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

function im = ims_set_rgb (im, rgb)

if nargin != 2,
  help ims_set_rgb
  return
end

if is_struct (im),
  if im.rgb == rgb,		# Nothing to do
    return
  elseif rgb,			# gray to rgb
    im.rgb = rgb;
    im.im = kron (im.im, [1 1 1]);
  else				# rgb to gray
    im.rgb = rgb;
    w = columns (im.im);
    im.im = (im.im(:,1:3:w)+im.im(:,2:3:w)+im.im(:,3:3:w))/3;
  end
elseif rgb			# gray to rgb
  im = kron (im, [1 1 1]);
else 
  w = columns (im);
  im.im = (im(:,1:3:w)+im(:,2:3:w)+im(:,3:3:w))/3;
end