function setisoba
%
%  the function setisoba opens a window interface to let the
%  user choose which isobathy to be plotted by the function
%  geoplot2.  Does so by filling a vector with the depths of
%  the isobaths to be plotted. The vector's name is isobathy
%  (what else?)
%
global isobathy isolines setis
%
clear global isobathy
clear global isolines
global isobathy isolines
isolines = [ 0 0 0 0 0 0];
iso0 = uicontrol('Style','text',...
              'string','Click on Isobaths to plot',...
              'units','norm',...
              'Position',[0.3 0.95 0.33 0.05],...
              'ForeGroundColor','w');
iso1 = uicontrol('Style','checkbox',...
              'string','200 m',...
              'units','norm',...
              'Position',[0.1 0.9 0.13 0.05],...
              'callback',['global isolines isobathy,',...
                         'isolines(1) = 200;']);
iso2 = uicontrol('Style','checkbox',...
              'string','500 m',...
              'units','norm',...
              'Position',[0.23 0.9 0.13 0.05],...
              'callback',['global isolines,',...
                         'isolines(2) = 500;']);
iso3 = uicontrol('Style','checkbox',...
              'string','1000 m',...
              'units','norm',...
              'Position',[0.36 0.9 0.13 0.05],...
              'callback',['global isolines,',...
                         'isolines(3) = 1000;']);
iso4 = uicontrol('Style','checkbox',...
              'string','2000 m',...
              'units','norm',...
              'Position',[0.49 0.9 0.13 0.05],...
              'callback',['global isolines,',...
                         'isolines(4) = 2000;']);
iso5 = uicontrol('Style','checkbox',...
              'string','3000 m',...
              'units','norm',...
              'Position',[0.62 0.9 0.13 0.05],...
              'callback',['global isolines,',...
                         'isolines(5) = 3000;']);
iso6 = uicontrol('Style','checkbox',...
              'string','4000 m',...
              'units','norm',...
              'Position',[0.75 0.9 0.13 0.05],...
              'callback',['global isolines,',...
                         'isolines(6) = 4000;']);

