function cal_jet(action)
%JETDEMO  loads a picture of a Calspan jet 

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

load jet;
figurePos = getfgpos(560, 420);
fig_calspan = figure('NumberTitle', 'off', 'Name', 'Calspan Jet',...
    'Units', 'pixels',...
    'Position', figurePos);
    set(gca, 'Units', 'Normalized',...
        'Position', [0 0 1 1]);
    image(a);
    colormap(cm);
axis off;
  
button = uicontrol(fig_calspan, 'style', 'push',...
    'Units', 'normalized',...
    'position', [.43 .03 .1 .05],...
    'string', 'Close',...
    'callback', 'close(gcbf)');
  

