mmsetc.m

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

  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','mmsetc(0,''hsv2new'')');
    
  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','mmsetc(0,''hsv2new'')');
    
  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.
  %--------------------------------------------------------------------

  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|Initial',...
    'val',9,...
    '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];...
                    [0 0 0]],...
    'callback','mmsetc(0,''setinit'')');

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

  %--------------------------------------------------------------------
  % Define the buttons for 'Copy', 'Cancel', and 'Done'.
  %--------------------------------------------------------------------

  Hc_copypb = uicontrol(Hf_fig,'style','push',...
    'pos',[.55 .05 .12 .10],...
    'backgroundcolor',[.7 .7 .8],...
    'string','Copy',...
    'callback','mmsetc(0,''copy'')');

  Hc_cancelpb = uicontrol(Hf_fig,'style','push',...
    'pos',[.70 .05 .12 .10],...
    'backgroundcolor',[.7 .7 .8],...
    'string','Cancel',...
    'callback','mmsetc(0,''cancel'')');

  Hc_donepb = uicontrol(Hf_fig,'style','push',...
    'pos',[.85 .05 .12 .10],...
    'backgroundcolor',[.7 .7 .8],...
    'string','Done',...
    'callback','mmsetc(0,''done'')');

  %--------------------------------------------------------------------
  % If an initial color was supplied, insert it into the popup data.
  %--------------------------------------------------------------------

  if m > 0
    tempdata = get(Hc_pcolor,'userdata');
    tempdata(get(Hc_pcolor,'val'),:) = initrgb;
    set(Hc_pcolor,'userdata',tempdata)
  end

  %--------------------------------------------------------------------
  % In order to pass the uicontrol handles to the callback section,
  % create a vector of object handles, and store it in the figure's
  % 'userdata' property.
  %--------------------------------------------------------------------

  Z = [Hx_obj, Hc_ifr, Hc_nfr, Hc_icur, Hc_ncur, Hc_rsli, Hc_rcur,...
       Hc_gsli, Hc_gcur, Hc_bsli, Hc_bcur, Hc_hsli, Hc_hcur, Hc_ssli,...
       Hc_scur, Hc_vsli, Hc_vcur, Hc_pcolor, Hf_fig];
  
  set(gcf,'userdata',Z);

  %--------------------------------------------------------------------
  % Now we wait for the user to select a color and return the new value. 
  % The 'drawnow' command flushes the event queue on most platforms.
  % The PC is an exception and requires 'waitforbuttonpress' instead.
  % Status values for MMSETC_DONE: 2=cancel; 1=done; 0=wait.
  %--------------------------------------------------------------------

  arch = computer;
  PC = strcmp(arch(1:2),'PC');

  while MMSETC_DONE == 0
    if PC, waitforbuttonpress; 
    else,  drawnow; 
    end
  end

  if MMSETC_DONE == 1    
    if nargout == 1
      C = MMSETC_OUT; 
    else
      disp(sprintf('Selected color: [%.4f %.4f %.4f]',MMSETC_OUT));
    end
  end
  close
  return
end

%======================================================================
% This section handles the callbacks.  Do some error checking,
% extract the object handles, and execute the callbacks.
%======================================================================

if nargin == 2
  if ~isstr(S), error(ermsg1); end

  %--------------------------------------------------------------------
  % Since the uicontrol handles were stored in the figure 'userdata'
  % property, extract them for use in the callback routines.
  %--------------------------------------------------------------------
  
  Z = get(gcf,'userdata');
  Hx_obj = Z(1);
  Hc_ifr = Z(2);
  Hc_nfr = Z(3);
  Hc_icur = Z(4);
  Hc_ncur = Z(5);
  Hc_rsli = Z(6);
  Hc_rcur = Z(7);
  Hc_gsli = Z(8);
  Hc_gcur = Z(9);
  Hc_bsli = Z(10);
  Hc_bcur = Z(11);
  Hc_hsli = Z(12);
  Hc_hcur = Z(13);
  Hc_ssli = Z(14);
  Hc_scur = Z(15);
  Hc_vsli = Z(16);
  Hc_vcur = Z(17);
  Hc_pcolor = Z(18);
  Hf_fig = Z(19);

  %--------------------------------------------------------------------
  % If 'cancel' was pressed, set the MMSETC_DONE flag to bail out.
  %--------------------------------------------------------------------

  if strcmp(S,'cancel')
    MMSETC_DONE = 2;

  %--------------------------------------------------------------------
  % If 'done' was pressed, save the new RGB triple and set the 
  % MMSETC_DONE flag. If the input arg was a valid object handle, 
  % change the color of the object. 
  %--------------------------------------------------------------------

  elseif strcmp(S,'done')
    MMSETC_OUT = get(Hc_nfr,'backgroundcolor');
    MMSETC_DONE = 1;
    if Hx_obj > 0
      set(eval('Hx_obj'),'color',get(Hc_nfr,'backgroundcolor')) 
    end

  %--------------------------------------------------------------------
  % If 'copy' was pressed, copy the color from the 'initial' frame
  % to the 'new' frame, and update the sliders and color values.
  %--------------------------------------------------------------------

  elseif strcmp(S,'copy')  
    set(Hc_nfr,'backgroundcolor',get(Hc_ifr,'backgroundcolor'))
    mmsetc(0,'setsli');

  %--------------------------------------------------------------------
  % This routine sets the sliders and color values from the 'new' frame.
  %--------------------------------------------------------------------

  elseif strcmp(S,'setsli') 
    rb=(get(Hc_nfr,'backgroundcolor'));
    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)))

  %--------------------------------------------------------------------
  % After an RGB slider has changed, update the 'new' frame from
  % the RGB slider values, and update sliders and text displays.
  %--------------------------------------------------------------------

  elseif strcmp(S,'rgb2new')   % set 'new' color from rgb sliders
    set(Hc_nfr,'backgroundcolor',...
      [get(Hc_rsli,'val'),get(Hc_gsli,'val'),get(Hc_bsli,'val')])
    mmsetc(0,'setsli');

  %--------------------------------------------------------------------
  % After an HSV slider has changed, update the 'new' frame from
  % the HSV slider values, and update sliders and text displays.
  %--------------------------------------------------------------------

  elseif strcmp(S,'hsv2new')
    rb=hsv2rgb([get(Hc_hsli,'val'),get(Hc_ssli,'val'),get(Hc_vsli,'val')]);
    set(Hc_nfr,'backgroundcolor',rb) 
    mmsetc(0,'setsli');

  %--------------------------------------------------------------------
  % Set the 'initial' frame color from the popup selection.
  %--------------------------------------------------------------------

  elseif strcmp(S,'setinit')
    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')))

  %--------------------------------------------------------------------
  % If the string S is not one of the above, it is in error.
  %--------------------------------------------------------------------

  else
    error(ermsg1);
  end

  %--------------------------------------------------------------------
  % Since this is a callback, return to the calling function.
  %--------------------------------------------------------------------

  return
end