function helicptr(action)
%HELICPTR loads a picture of a McDonnell Douglas Apache Helicopter

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

load helicptr;
figurePos = getfgpos(560, 420);
fig_copter = figure('NumberTitle', 'off',...
      'Units', 'Pixels',...
      'Position', figurePos,...
      'Name', 'Longbow Apache');
set(gca, 'units', 'Normal', 'position', [0 0 1 1]);
image(a);
colormap(cm);
axis off;

button = uicontrol(fig_copter, 'Style', 'push',...
    'Units', 'Normalized',...
    'Position', [.7 .05 .15 .05],...
    'String', 'Close',...
    'callback', 'close(gcbf)');
    
