function earthqk(action)
%EARTHQK  Picture of 1989 San Francisco earth quake and
%         explanation of how MATLAB is used to make sure
%         the same damage does not happen again.

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

load earthqk;
figurePos = getfgpos(560, 420);
fig_calspan = figure('numbertitle', 'off',...
    'name', '1989 San Francisco Earth Quake',...
    '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)');


