function show_arrows

% Use with Shim Thickness GUI
% Plotting 3D shim thicknesses
% created by Mark Smith
% 121207

% Revised 2/28/08 to accomodate new shim labels, line 20 changed filename.


cbv = get(findobj('tag','cbda'),'Value');
sl1_vis = get(findobj('tag','sl1'),'Visible');

if cbv == 1 && strcmp(sl1_vis,'off')
    set(findobj('Tag','sl1'),'Visible','on')
    set(findobj('Tag','txarsc'),'Visible','on')
elseif cbv == 0 && strcmp(sl1_vis,'on')
    set(findobj('Tag','sl1'),'Visible','off')
    set(findobj('Tag','txarsc'),'Visible','off')
    plot_thickness3D_22808_r1;
end
