function cddemo(action)

%JETDEMO  loads a picture of the Philips CD and talks about
%         how Robust and QFT is used on it

%    Tour software file
%    Yama Habibzai
%   Copyright (c) 1984-98 by The MathWorks, Inc. All Rights Reserved
%    $Revision: 1.6 $
%    $Date: 1997/11/21 19:38:44 $

if nargin < 1
  action = 'initialize';
end

switch action
  
case 'initialize',
  
  load philcd;
   
  figurePos = getfgpos(560, 420);
  fig_cd = figure('NumberTitle', 'Off', 'Name', 'Philips CD',...
         'Units', 'Pixels',...
         'Position', figurePos);
  set(gca, 'Units', 'Normalized', 'Position', [0 0 1 1]);
  image(a);
  colormap(cm);
  axis off;
  
  button = uicontrol(fig_cd, 'Style', 'push',...
      'Units', 'Normalized',...
      'Position', [.43 .01 .1 .05],...
      'String', 'Close',...
      'callback', 'cddemo(''LocalClose'')');
  
case 'LocalClose'
  
  %function LocalClose
  
  fig = findobj('type', 'figure', 'Name', 'Philips CD');
  if ~isempty(fig)
    close(fig);
  end
end % case ...
    
    

