function make_legend(ha,argin,version_flag,clamp)

leg = find_legend(ha); 

ch = []; 

strings = {}; 

% Always create a new legend if the user has requested a compatible legned

% or if the existing legend is a compatible legend

if strcmp(version_flag,'on') || strcmp(get(leg,'version'),'on') 

    delete(leg)

    leg = [];

end 

new_legend = false; 

if isempty(leg) 

    new_legend = true; 

    leg = matlab.graphics.illustration.Legend; 

    leg.doPostSetup(version_flag); 

    leg.Visible = 'off'; 

    if(clamp) 

        leg.LimitMaxLegendEntries = true;

    else  

        leg.LimitMaxLegendEntries = false; 

    end 

else

    % For existing legends, make sure the ALM is dirty as a result of this

    % legend call.  We don't need to do this if the legend is in a layout

    if ~isa(leg.Parent, 'matlab.graphics.layout.Layout')

        hManager  = matlab.graphics.shape.internal.AxesLayoutManager.getManager(leg.Axes);

        doMarkDirty(hManager);

    end

end 

try 

    % process input args

    [propargs, ch, strings] = process_inputs(leg,ha,argin, new_legend); %#ok 

catch ME

    throwAsCaller(ME);

end 

if new_legend 

    try 

        fig = ancestor(ha,'figure'); 

        parent = get(ha,'Parent'); 

        if strcmp(get(ha,'color'),'none') 

            leg.Color_I = get(fig,'Color');

        else 

            leg.Color_I = get(ha,'Color'); 

        end 

        leg.TextColor_I = get(parent,'DefaultTextColor'); 

        leg.EdgeColor_I = get(parent,'DefaultAxesXColor'); 

        % apply 3D default

        if ~lcl_is2D(getGraphicsAxes(leg,ha)) 

            leg.Location = 'northeastoutside';

        elseif isa(ha, 'matlab.graphics.axis.PolarAxes') 

            leg.Location = 'eastoutside';

        end 

        % set the peer axes

        leg.Axes = ha; 

        % disable AutoUpdate for plotyy

        if matlab.graphics.illustration.internal.isplotyyaxes(ha) 

            % Make sure the discovered plotyy children don't get

            % overwritten by the autoUpdateCallback during the update

            % triggered by setting AutoUpdate to 'off';

            % The callback can only see children of the primary axes.

            leg.PlotChildrenSpecified = leg.PlotChildren_I;

            leg.AutoUpdate = 'off';

        end 

    catch

        leg.Axes = [];

        delete(leg);

        return

    end 

end 

% set DisplayNames

setDisplayNames(ch,strings); 

% set user-specified PV pairs

if ~isempty(propargs) 

    set(leg,propargs{:}); 

end 

% always make legend visible

% the purpose of make_legend is to put a legend on the figure

set(leg,'Visible','on');