                       
        [~] = incrementWaitbar(hWaitbar, waitbarIndex, numWaitStages, 'Generating Backscatter Plot...');
        hFigPlot = figure('Name','Backscatter');
        clf;
        set(hFigPlot, 'UserData', 'Plot_Backscatter');
  
        % got a wlbb2f
        [bmin,bmax,bdel] = plot_bounds([red_scttr;blue_scttr],0,2400,[0,200]);
        hold on;
        grid on;
        set(gca,'YDir','reverse');

        legend_text = {};
        if (exist('ref_ref','var'))
            line( red_ref(wet_dive_i), wet_depth_m(wet_dive_i), 'Marker', 'v', 'Color', 'm', ...
                  'MarkerSize', 1, 'LineStyle', '-');
            legend_text(end+1) = {'Red reference descent'};
            line( red_ref(wet_climb_i), wet_depth_m(wet_climb_i), 'Marker', '^', 'Color', 'm', ...
                  'MarkerSize', 1, 'LineStyle', '-');
            legend_text(end+1) = {'Red reference ascent'};
        end
        line( red_scttr(wet_dive_i), wet_depth_m(wet_dive_i), 'Marker', 'v', 'Color', 'r', ...
            'MarkerSize', 1, 'LineStyle', '-');
        legend_text(end+1) = {'Red scatter descent'};
        line( red_scttr(wet_climb_i), wet_depth_m(wet_climb_i), 'Marker', '^', 'Color', 'r', ...
            'MarkerSize', 1, 'LineStyle', '-');
        legend_text(end+1) = {'Red scatter ascent'};
        if (exist('blue_ref','var'))
            line( blue_ref(wet_dive_i), wet_depth_m(wet_dive_i), 'Marker', 'v', 'Color', 'c', ...
                  'MarkerSize', 1, 'LineStyle', '-');
            legend_text(end+1) = {'Blue reference descent'};
            line( blue_ref(wet_climb_i), wet_depth_m(wet_climb_i), 'Marker', '^', 'Color', 'c', ...
                  'MarkerSize', 1, 'LineStyle', '-');
            legend_text(end+1) = {'Blue reference ascent'};
        end
        line( blue_scttr(wet_dive_i), wet_depth_m(wet_dive_i), 'Marker', 'v', 'Color', 'b', ...
            'MarkerSize', 1, 'LineStyle', '-');
        legend_text(end+1) = {'Blue scatter descent'};
        line( blue_scttr(wet_climb_i), wet_depth_m(wet_climb_i), 'Marker', '^', 'Color', 'b', ...
            'MarkerSize', 1, 'LineStyle', '-');
        legend_text(end+1) = {'Blue scatter ascent'};

        ax1 = gca;
        set(ax1, 'XAxisLocation', 'top', 'XColor', 'r', 'XLim', [bmin,bmax], ...
               'XTick', [bmin:bdel:bmax],'YLim', [dmin,dmax]);
        xlabel( 'b_b Output [counts]' );
        ylabel( 'Depth [counts]');
        lg = legend(legend_text,'Location','SouthEast');
        set(lg,'color','none'); % make transparent

        v = axis;
        ytxt = v(4) + 0.1*(v(4)-v(3));
        xtxt = v(1);
        text(xtxt , ytxt, timelabel);
        xtxt = v(1) +0.4*(v(2)-v(1));
        text(xtxt , ytxt, titlestring);

        xtxt = v(1);
        ytxt = v(3) - 0.05*(v(4)-v(3));
        text(xtxt , ytxt, base_file);

        comment = '';
        xtxt = v(1) + 0.6*(v(2)-v(1));
        text(xtxt, ytxt, comment);
