mmsetc.m

对于精通掌握matlab非常有用的资料

function C=mmsetc(H,S)
%MMSETC Obtain an RGB Triple Interactively from a Color Sample.
% MMSETC displays a dialog box for the user to select
% a color interactively and displays the result.
%
% X = MMSETC returns the selected color in X.
%
% MMSETC([r g b]) uses the RGB triple as the initial
% RGB value for modification.
%
% MMSETC C  -or-
% MMSETC('C') where C is a color spec (y,m,c,r,g,b,w,k), uses 
% the specified color as the initial value.
%
% MMSETC(H) where the input argument H is the handle of
% a valid graphics object that supports color, uses the color
% property of the object as the initial RGB value.
%
% MMSETC select   -or- 
% MMSETC('select') waits for the user to click on a valid 
% graphics object that supports color, and uses the color
% property of the object as the initial RGB value.
%       
% If the initial RGB value was obtained from an object or
% object handle, the 'Done' pushbutton will apply the 
% resulting color property to the selected object.
%
% If no initial color is specified, black will be used.
%
% Examples:
%        mmsetc
%        mycolor=mmsetc
%        mmsetc([.25 .62 .54])
%        mmsetc(H)
%        mmsetc g
%        mmsetc red
%        mmsetc select
%        mycolor=mmsetc('select')
%

%   The second argument S is used internally to execute the callbacks.

% B.R. Littlefield, University of Maine, Orono, ME 04469
% 3/2/95
% Copyright (c) 1996 by Prentice-Hall, Inc.

%======================================================================
% define some strings, and start error checking.
%======================================================================

global MMSETC_OUT MMSETC_DONE

ermsg1 = 'Too many input arguments.';
ermsg2 = 'Input argument if used must be an RGB triple or valid handle.';

if nargin > 2, error(ermsg1); end

%======================================================================
%  This section handles the 'no argument' case and sets the defaults.
%======================================================================

if nargin == 0 
  m = 0; 
  initrgb = [0 0 0];
  Hx_obj = 0;
end

%======================================================================
% Here the function was called with a single argument.  Check for 
% a valid RGB triple or an object handle and bail out if invalid.
% Set the initial color value if H is valid.
%======================================================================

if nargin == 1 

  %-------------------------------------------------------------------- 
  %  If H is 'select', get the color property of the selected object
  %  and use it for the initial color.
  %-------------------------------------------------------------------- 

  if isstr(H)
    m = 1;
    Hx_obj = 0;
    if strcmp(H,'select')
      waitforbuttonpress;
      Hx_obj = get(gcf,'CurrentObject');
      initrgb = get(Hx_obj,'Color');
      if isstr(initrgb)
        initrgb = [0 0 0];
      end
    elseif strcmp(H(1:1),'r'), initrgb = [1 0 0];
    elseif strcmp(H(1:1),'y'), initrgb = [1 1 0];
    elseif strcmp(H(1:1),'g'), initrgb = [0 1 0];
    elseif strcmp(H(1:1),'m'), initrgb = [0 1 1];
    elseif strcmp(H(1:1),'b'), initrgb = [0 0 1];
    elseif strcmp(H(1:1),'w'), initrgb = [1 1 1];
    elseif strcmp(H(1:1),'k'), initrgb = [0 0 0];
    else
      error(ermsg2); 
    end 
 
  %-------------------------------------------------------------------- 
  %  Otherwise H should be an RGB triple or an object handle.
  %-------------------------------------------------------------------- 

  else
    [n m]=size(H);
    if n ~= 1, error(ermsg2); end  
 
    %-------------------------------------------------------------------- 
    %  If H is a valid RGB row vector, use it for the initial color.
    %-------------------------------------------------------------------- 

    if m == 3 & max(H) <= 1 & min(H) >= 0  
      Hx_obj = 0;
      initrgb = H;
 
    %-------------------------------------------------------------------- 
    %  If H is a single number, it should be an object handle.
    %  If the object has no 'color' property, get() will exit 
    %  with an error message.
    %-------------------------------------------------------------------- 

    elseif m == 1   
      Hx_obj = H;
      initrgb = get(Hx_obj,'color');
      if isstr(initrgb)
        initrgb = [0 0 0];
      end
   
    %-------------------------------------------------------------------- 
    %  Otherwise, H is invalid, so bail out.
    %-------------------------------------------------------------------- 
  
    else
      error(ermsg2);
    end
  end
end
  
%======================================================================
% Do the initialization if this is a user call (zero or one arguments).
%======================================================================

if nargin < 2 

  MMSETC_OUT = initrgb;
  MMSETC_DONE = 0;

  %--------------------------------------------------------------------
  % First, get a figure window, and set some properties.
  %--------------------------------------------------------------------

  scr = get(0,'screensize');
  Hf_fig = figure('pos',[(scr(3)/2)-220 (scr(4)/2)-165 440 330],...  
    'color',[.75 .75 .75],...
    'numbertitle','off',...
    'name','Color Selector');

  %--------------------------------------------------------------------
  % Set some default properties for uicontrols in this figure.
  %--------------------------------------------------------------------

  set(Hf_fig,'DefaultUicontrolUnits','normalized',...
    'DefaultUicontrolBackgroundColor',get(Hf_fig,'color'));

  %--------------------------------------------------------------------
  % Now that we have an initial RGB value, get the initial HSV value
  % so we can initialize the sliders.
  %--------------------------------------------------------------------

  inithsv = rgb2hsv(initrgb);

  %--------------------------------------------------------------------
  % Define the 'initial' and 'new' color frames, and label them.
  %--------------------------------------------------------------------

  Hc_ifr = uicontrol(Hf_fig,'style','frame',...
    'pos',[.25 .70 .25 .20],...
    'backgroundcolor',initrgb);
 
  Hc_nfr = uicontrol(Hf_fig,'style','frame',...
    'pos',[.50 .70 .25 .20],...
    'backgroundcolor',initrgb); 

  Hc_ilabel = uicontrol(Hf_fig,'style','text',...
    'pos',[.25 .91 .25 .05],...
    'string','Initial Color');

  Hc_nlabel = uicontrol(Hf_fig,'style','text',...
    'pos',[.50 .91 .25 .05],...
    'string','New Color');

  %--------------------------------------------------------------------
  % Get the color values, and display them under the frames.
  %--------------------------------------------------------------------

  Hc_icur = uicontrol(Hf_fig,'style','text',...
    'pos',[.25 .64 .25 .05],...
    'string',sprintf('[%.2f %.2f %.2f]',get(Hc_ifr,'backgroundcolor')));

  Hc_ncur = uicontrol(Hf_fig,'style','text',...
    'pos',[.50 .64 .25 .05],...
    'string',sprintf('[%.2f %.2f %.2f]',get(Hc_nfr,'backgroundcolor')));

  %--------------------------------------------------------------------
  % Define the sliders with labels and current value displays.
  %--------------------------------------------------------------------

  Hc_rsli = uicontrol(Hf_fig,'style','slider',...
    'pos',[.10 .55 .35 .05],...
    'min',0,'max',1,'val',initrgb(1),...
    'callback','mmsetc(0,''rgb2new'')');
    
  Hc_rcur = uicontrol(Hf_fig,'style','text',...
    'pos',[.01 .55 .08 .05],...
    'string',sprintf('%.2f',get(Hc_rsli,'val')));

  Hc_rlabel = uicontrol(Hf_fig,'style','text',...
    'pos',[.10 .49 .35 .05],...
    'string','Red');

  Hc_gsli = uicontrol(Hf_fig,'style','slider',...
    'pos',[.10 .43 .35 .05],...
    'min',0,'max',1,'val',initrgb(2),...
    'callback','mmsetc(0,''rgb2new'')');
    
  Hc_gcur = uicontrol(Hf_fig,'style','text',...
    'pos',[.01 .43 .08 .05],...
    'string',sprintf('%.2f',get(Hc_gsli,'val')));

  Hc_glabel = uicontrol(Hf_fig,'style','text',...
    'pos',[.10 .37 .35 .05],...
    'string','Green');

  Hc_bsli = uicontrol(Hf_fig,'style','slider',...
    'pos',[.10 .30 .35 .05],...
    'min',0,'max',1,'val',initrgb(3),...
    'callback','mmsetc(0,''rgb2new'')');
    
  Hc_bcur = uicontrol(Hf_fig,'style','text',...
    'pos',[.01 .30 .08 .05],...
    'string',sprintf('%.2f',get(Hc_bsli,'val')));

  Hc_blabel = uicontrol(Hf_fig,'style','text',...
    'pos',[.10 .24 .35 .05],...
    'string','Blue');

  Hc_hsli = uicontrol(Hf_fig,'style','slider',...
    'pos',[.55 .55 .35 .05],...
    'min',0,'max',1,...
    'val',inithsv(1),...
    'callback','mmsetc(0,''hsv2new'')');
    
  Hc_hcur = uicontrol(Hf_fig,'style','text',...
    'pos',[.91 .55 .08 .05],...
    'string',sprintf('%.2f',get(Hc_hsli,'val')));