mmsetclr.m

Matlab 6.0图形图像处理所附带的光盘

%MMSETCLR Obtain an RGB triple interactively from a color sample.
% MMSETCLR displays a dialog box for the user to select
% a color interactively and displays the RGB triple value of
% the new color.
%
% Example:
%     mmsetclr
%

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

%======================================================================
% Set initial RGB and HSV values, get a new figure window, and set
% some figure properties (position, color, and title).
%======================================================================

initrgb = [0 0 0];
inithsv = rgb2hsv(initrgb);

scr = get(0,'screensize');
Hf_fig=figure;

set(Hf_fig,'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'));

%======================================================================
% 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.
% The slider callbacks set the new color from the appropriate
% RGB or HSV slider set, and update the other slider values.
%======================================================================

Hc_rsli = uicontrol(Hf_fig,'style','slider',...
  'pos',[.10 .55 .35 .05],...
  'min',0,'max',1,'val',initrgb(1),...
  'callback',[...
    'set(Hc_nfr,''backgroundcolor'',',...
      '[get(Hc_rsli,''val''),get(Hc_gsli,''val''),get(Hc_bsli,''val'')]),',...
    'set(Hc_ncur,''string'',',...
      'sprintf(''[%.2f %.2f %.2f]'',get(Hc_nfr,''backgroundcolor''))),',...
    'hv=rgb2hsv(get(Hc_nfr,''backgroundcolor''));',...
    'set(Hc_hsli,''val'',hv(1)),',...
    'set(Hc_hcur,''string'',sprintf(''%.2f'',hv(1))),',...
    'set(Hc_ssli,''val'',hv(2)),',...
    'set(Hc_scur,''string'',sprintf(''%.2f'',hv(2))),',...
    'set(Hc_vsli,''val'',hv(3)),',...
    'set(Hc_vcur,''string'',sprintf(''%.2f'',hv(3))),',...
    'set(Hc_rcur,''string'',sprintf(''%.2f'',get(Hc_rsli,''val'')))']);
  
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',[...
    'set(Hc_nfr,''backgroundcolor'',',...
       '[get(Hc_rsli,''val''),get(Hc_gsli,''val''),get(Hc_bsli,''val'')]),',...
    'set(Hc_ncur,''string'',',...
      'sprintf(''[%.2f %.2f %.2f]'',get(Hc_nfr,''backgroundcolor''))),',...
    'hv=rgb2hsv(get(Hc_nfr,''backgroundcolor''));',...
    'set(Hc_hsli,''val'',hv(1)),',...
    'set(Hc_hcur,''string'',sprintf(''%.2f'',hv(1))),',...
    'set(Hc_ssli,''val'',hv(2)),',...
    'set(Hc_scur,''string'',sprintf(''%.2f'',hv(2))),',...
    'set(Hc_vsli,''val'',hv(3)),',...
    'set(Hc_vcur,''string'',sprintf(''%.2f'',hv(3))),',...
    'set(Hc_gcur,''string'',sprintf(''%.2f'',get(Hc_gsli,''val'')))']);
  
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',[...
    'set(Hc_nfr,''backgroundcolor'',',...
       '[get(Hc_rsli,''val''),get(Hc_gsli,''val''),get(Hc_bsli,''val'')]),',...
    'set(Hc_ncur,''string'',',...
      'sprintf(''[%.2f %.2f %.2f]'',get(Hc_nfr,''backgroundcolor''))),',...
    'hv=rgb2hsv(get(Hc_nfr,''backgroundcolor''));',...
    'set(Hc_hsli,''val'',hv(1)),',...
    'set(Hc_hcur,''string'',sprintf(''%.2f'',hv(1))),',...
    'set(Hc_ssli,''val'',hv(2)),',...
    'set(Hc_scur,''string'',sprintf(''%.2f'',hv(2))),',...
    'set(Hc_vsli,''val'',hv(3)),',...
    'set(Hc_vcur,''string'',sprintf(''%.2f'',hv(3))),',...
    'set(Hc_bcur,''string'',sprintf(''%.2f'',get(Hc_bsli,''val'')))']);
  
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',['rb=hsv2rgb(',...
       '[get(Hc_hsli,''val''),get(Hc_ssli,''val''),get(Hc_vsli,''val'')]);',...
    'set(Hc_nfr,''backgroundcolor'',rb),',...
    'set(Hc_ncur,''string'',sprintf(''[%.2f %.2f %.2f]'',rb)),',...
    'set(Hc_rsli,''val'',rb(1)),',...
    'set(Hc_rcur,''string'',sprintf(''%.2f'',rb(1))),',...
    'set(Hc_gsli,''val'',rb(2)),',...
    'set(Hc_gcur,''string'',sprintf(''%.2f'',rb(2))),',...
    'set(Hc_bsli,''val'',rb(3)),',...
    'set(Hc_bcur,''string'',sprintf(''%.2f'',rb(3))),',...
    'set(Hc_hcur,''string'',sprintf(''%.2f'',get(Hc_hsli,''val'')))']);
  
Hc_hcur = uicontrol(Hf_fig,'style','text',...
  'pos',[.91 .55 .08 .05],...
  'string',sprintf('%.2f',get(Hc_hsli,'val')));

Hc_hlabel = uicontrol(Hf_fig,'style','text',...
  'pos',[.55 .49 .35 .05],...
  'string','Hue');

Hc_ssli = uicontrol(Hf_fig,'style','slider',...
  'pos',[.55 .43 .35 .05],...
  'min',0,'max',1,...
  'val',inithsv(2),...
  'callback',['rb=hsv2rgb(',...
      '[get(Hc_hsli,''val''),get(Hc_ssli,''val''),get(Hc_vsli,''val'')]);',...
    'set(Hc_nfr,''backgroundcolor'',rb),',...
    'set(Hc_ncur,''string'',sprintf(''[%.2f %.2f %.2f]'',rb)),',...
    'set(Hc_rsli,''val'',rb(1)),',...
    'set(Hc_rcur,''string'',sprintf(''%.2f'',rb(1))),',...
    'set(Hc_gsli,''val'',rb(2)),',...
    'set(Hc_gcur,''string'',sprintf(''%.2f'',rb(2))),',...
    'set(Hc_bsli,''val'',rb(3)),',...
    'set(Hc_bcur,''string'',sprintf(''%.2f'',rb(3))),',...
    'set(Hc_scur,''string'',sprintf(''%.2f'',get(Hc_ssli,''val'')))']);
  
Hc_scur = uicontrol(Hf_fig,'style','text',...
  'pos',[.91 .43 .08 .05],...
  'string',sprintf('%.2f',get(Hc_ssli,'val')));

Hc_slabel = uicontrol(Hf_fig,'style','text',...
  'pos',[.55 .37 .35 .05],...
  'string','Saturation');

Hc_vsli = uicontrol(Hf_fig,'style','slider',...
  'pos',[.55 .30 .35 .05],...
  'min',0,'max',1,...
  'val',inithsv(3),...
  'callback',['rb=hsv2rgb(',...
      '[get(Hc_hsli,''val''),get(Hc_ssli,''val''),get(Hc_vsli,''val'')]);',...
    'set(Hc_nfr,''backgroundcolor'',rb),',...
    'set(Hc_ncur,''string'',sprintf(''[%.2f %.2f %.2f]'',rb)),',...
    'set(Hc_rsli,''val'',rb(1)),',...
    'set(Hc_rcur,''string'',sprintf(''%.2f'',rb(1))),',...
    'set(Hc_gsli,''val'',rb(2)),',...
    'set(Hc_gcur,''string'',sprintf(''%.2f'',rb(2))),',...
    'set(Hc_bsli,''val'',rb(3)),',...
    'set(Hc_bcur,''string'',sprintf(''%.2f'',rb(3))),',...
    'set(Hc_vcur,''string'',sprintf(''%.2f'',get(Hc_vsli,''val'')))']);
  
Hc_vcur = uicontrol(Hf_fig,'style','text',...
  'pos',[.91 .30 .08 .05],...
  'string',sprintf('%.2f',get(Hc_vsli,'val')));

Hc_vlabel = uicontrol(Hf_fig,'style','text',...
  'pos',[.55 .24 .35 .05],...
  'string','Value');

%======================================================================
% Define the 'initial' color selector popup, and label it.
% The callbacks update the 'initial' color frame and value
% from the appropriate userdata entry.
%======================================================================

Hc_pcolor = uicontrol(Hf_fig,'style','popupmenu',...
  'pos',[.05 .05 .20 .10],...
  'backgroundcolor',[.7 .7 .8],...
  'string','Black|Red|Yellow|Green|Cyan|Blue|Magenta|White',...
  'userdata',[[0 0 0];...
              [1 0 0];...
              [1 1 0];...
              [0 1 0];...
              [0 1 1];...
              [0 0 1];...
              [1 0 1];...
              [1 1 1]],...
  'callback',[...
     'ud=get(Hc_pcolor,''userdata'');',...
     'set(Hc_ifr,''backgroundcolor'',ud(get(Hc_pcolor,''val''),:)),',...
     'set(Hc_icur,''string'',',...
       'sprintf(''[%.2f %.2f %.2f]'',get(Hc_ifr,''backgroundcolor'')))']);

Hc_pclabel = uicontrol(Hf_fig,'style','text',...
  'pos',[.05 .15 .20 .05],...
  'string','Initial Color');

%======================================================================
% Define the buttons for 'Copy', 'Cancel', and 'Done'.
% 'Copy' copies the 'initial' color to the 'new' color, and
% updates all the sliders and values appropriately.
%======================================================================

Hc_copypb = uicontrol(Hf_fig,'style','push',...
  'pos',[.55 .05 .12 .10],...
  'backgroundcolor',[.7 .7 .8],...
  'string','Copy',...
  'callback',[...
    'rb=(get(Hc_ifr,''backgroundcolor''));',...
    'set(Hc_nfr,''backgroundcolor'',rb),',...
    'set(Hc_ncur,''string'',sprintf(''[%.2f %.2f %.2f]'',rb)),',...
    'set(Hc_rsli,''val'',rb(1)),',...
    'set(Hc_rcur,''string'',sprintf(''%.2f'',rb(1))),',...
    'set(Hc_gsli,''val'',rb(2)),',...
    'set(Hc_gcur,''string'',sprintf(''%.2f'',rb(2))),',...
    'set(Hc_bsli,''val'',rb(3)),',...
    'set(Hc_bcur,''string'',sprintf(''%.2f'',rb(3))),',...
    'hv=rgb2hsv(rb);',...
    'set(Hc_hsli,''val'',hv(1)),',...
    'set(Hc_hcur,''string'',sprintf(''%.2f'',hv(1))),',...
    'set(Hc_ssli,''val'',hv(2)),',...
    'set(Hc_scur,''string'',sprintf(''%.2f'',hv(2))),',...
    'set(Hc_vsli,''val'',hv(3)),',...
    'set(Hc_vcur,''string'',sprintf(''%.2f'',hv(3)))']);
  
Hc_cancelpb = uicontrol(Hf_fig,'style','push',...
  'pos',[.70 .05 .12 .10],...
  'backgroundcolor',[.7 .7 .8],...
  'string','Cancel',...
  'callback',[...
    'close,return']);

Hc_donepb = uicontrol(Hf_fig,'style','push',...
  'pos',[.85 .05 .12 .10],...
  'backgroundcolor',[.7 .7 .8],...
  'string','Done',...
  'callback',[...
    'disp(sprintf(''Selected color: [%.4f %.4f %.4f]'',',...
      'get(Hc_nfr,''backgroundcolor''))),',...
    'close,return']);