function [leg,labelhandles,outH,outM] = legend(varargin)

% LEGEND Create legend

% 

% LEGEND creates a legend with descriptive labels for each plotted data

% series. For the labels, the legend uses the text from the DisplayName

% properties of the data series. If the DisplayName property is empty, then

% the legend uses a label of the form 'dataN'. The legend automatically

% updates when you add or delete data series from the axes. This command

% creates a legend for the current axes or chart returned by gca. If the

% current axes is empty, then the legend is empty. If axes do not exist,

% then this command creates one.

%

% LEGEND(label1,...,labelN) sets the labels. Specify the labels as a

% list of character vectors, such as legend('Jan','Feb','Mar').

%

% LEGEND(labels) sets the labels using a cell array of character vectors or

% a character matrix, such as legend({'Jan','Feb','Mar'}).

%

% LEGEND(subset,__) only includes items in the legend for the data series

% listed in subset. Specify subset as a vector of graphics objects.

%

% LEGEND(target,__) uses the axes, polar axes, or chart specified by target

% instead of the current axes or chart. Specify the target as the first

% input argument. 

%

% LEGEND(__,'Location',lcn) sets the legend location. For example,

% 'Location','northeast' positions the legend in the upper right corner of

% the axes. Specify the location after other input arguments.

%

% LEGEND(__,'Orientation',ornt), where ornt is 'horizontal', displays the

% legend items side-by-side. The default for ornt is 'vertical', which

% stacks the items vertically. 

%

% LEGEND(__,Name,Value) sets legend properties using one or more name-value

% pair arguments. When setting properties, include the labels in a cell

% array, such as legend({'A','B'},'FontSize',12). If you do not want to

% specify labels, then include an empty cell array, such as

% legend({},'FontSize',12). Reissuing the legend command retains

% modifications that you previously specified.

%

% LEGEND(bkgd), where bkgd is 'boxoff', removes the legend background and

% outline. The default for bkgd is 'boxon', which displays the legend

% background and outline. 

%

% lgd = LEGEND(__) returns the Legend object. Use lgd to query and set

% properties of the legend after it is created. For a list of properties,

% see Legend. 

%

% [lgd,icons,plots,txt] = LEGEND(__) additionally returns the objects used

% to create the legend icons, the objects plotted in the graph, and an

% array of the label text. This syntax is not recommended. Some

% functionality is not supported. Instead, use the lgd = legend(__) syntax

% to return the Legend object and set Legend Properties.

%

% LEGEND(vsbl) controls the visibility of the legend, where vsbl is 'hide',

% 'show', or 'toggle'. 

%

% LEGEND('off') deletes the legend.

%

%  

%     Examples:

%         x = 0:.2:12;

%         Y = [besselj(1,x); besselj(2,x); besselj(3,x)];

%         plot(x,Y);

%         legend('First','Second','Third','Location','NorthEastOutside')

%  

%         b = bar(rand(10,5),'stacked'); 

%         hold on

%         ln = plot(1:10,5*rand(10,1),'-o'); 

%         hold off

%         legend([b,ln],'Carrots','Peas','Peppers','Green Beans',...

%                   'Cucumbers','Eggplant')

%   Unsupported APIs for internal use:

%

%   LOC strings can be abbreviated NE, SO, etc or lower case.

%

%   LEGEND(LI,string1,string2,string3) creates a legend for legendinfo

%   objects LI with strings string1, etc.

%   LEGEND(LI,M) creates a legend for legendinfo objects LI where M is a

%   string matrix or cell array of strings corresponding to the legendinfo

%   objects.

%   Copyright 1984-2019 The MathWorks, Inc.

% Legend no longer supports more than one output argument

% Warn the user and ignore additional output arguments.

args = varargin; 

% Continue warning that the v6 form will go away in the future.

if (nargin > 1 ... 

        && istextscalar(args{1}) ... 

        && ~istextscalar(args{2}) ...

        && strcmp(args{1},'v6'))

    warning(message('MATLAB:legend:DeprecatedV6Argument'));

end 

%--------------------------------------------------------

% Begin building the legend

%--------------------------------------------------------

narg = nargin; 

% HANDLE FINDLEGEND CASES FIRST

if narg==2 ... 

        && istextscalar(args{1}) ...

        && strcmpi(args{1},'-find') ...

        && ~isempty(args{2}) ...

        && (isgraphics(args{2},'axes') || isgraphics(args{2},'polaraxes') || isgraphics(args{2},'geoaxes'))

    [leg,labelhandles,outH,outM] = setOutArgs(args{2});

    return;

end 

% add flag to create compatible legend

version = 'off'; 

if nargout > 1 

    version = 'on';

    % Compatible Legend not supported in UIAxes

    if narg > 0  && ...

       ~isempty(args{1}) && ...

       length(args{1})==1 && ...

       ishghandle(args{1}) && ...

       isa(handle(args{1}),'matlab.ui.control.UIAxes')

        error(message('MATLAB:legend:MultipleOutputsWithUIAxes'));

    end

end 

arg = 1; 

% GET AXES FROM INPUTS

ha = matlab.graphics.Graphics.empty; 

% if the user passes in an axes that is not the current axes we want to be

% sure to restore the current axes before exiting.

old_currfig = get(0,'CurrentFigure'); 

if ~isempty(old_currfig) && ishghandle(old_currfig) 

    old_currax = get(old_currfig,'CurrentAxes'); 

    if ~isempty(old_currax) 

        ha = old_currax; 

    end 

end 

limitMaxLegendEntries = false; 

% Check if first input is a matrix of graphics object instead of a vector.

if narg > 0 

    graphicsInput = all(isgraphics(args{1})); 

    if all(isgraphics(args{1}), 'all'); 

        if isa(args{1}, 'matlab.graphics.axis.Axes')

           limitMaxLegendEntries = true;

        end

        if ~isvector(args{1}) && ~isempty(args{1})

           error(message('MATLAB:legend:NonVectorInputOfGraphics'));

        end

    end 

else

    limitMaxLegendEntries = true;

end 

% determine peer axes from inputs

if narg > 0  && ... 

        ~isempty(args{1}) && ... 

        length(args{1})==1 && ... 

        ishghandle(args{1}) && ...

        (isa(handle(args{1}),'matlab.graphics.mixin.LegendTarget') || ...

             isa(handle(args{1}),'matlab.ui.control.UIAxes'))

    % legend(ax,...)

    % ha is an Axes or UIAxes at this point

    ha = handle(args{1});

    arg = arg + 1;

elseif narg > 0 && ... 

        ~istextscalar(args{1}) && ... 

        ~isempty(args{1}) && ... 

        graphicsInput % legend(children,strings,...) 

    ha = [ancestor(args{1}(1),'axes') ancestor(args{1}(1),'polaraxes')  ancestor(args{1}(1),'geoaxes')];

    if isempty(ha)

        obj = args{1}(1);

        if ~isempty(obj) % Provide a better error message if we can.

            error(message('MATLAB:legend:InvalidPeerHandle', getClassName(obj)));

        else

            error(message('MATLAB:legend:InvalidPeerParameter'));

        end

    end

else 

    % if no axes has been identified thus far, create one using GCA.      

    if isempty(ha) 

        if strcmp(version,'on')

            % Legacy behavior for compatible legend

            warning(message('MATLAB:legend:NoCurrentAxes'));

            [leg,labelhandles,outH,outM] = setOutArgs(ha);

            return

        else

            % if ha is empty, use GCA, which will create an axes if necessary.

            ha = gca;

        end

    else 

        % Chart subclass support

        % Invoke legend method with same number of outputs to defer output arg

        % error handling to the method.

        if isa(ha,'matlab.graphics.chart.Chart') 

            try                

                [varargout{1:nargout}] = legend(ha,args{:}); %#ok<NASGU>

            catch e

                throw(e)

            end

            return

        end 

    end 

end 

% cast double to MCOS handle

if ~isobject(ha) 

    ha = handle(ha);

end 

% PROCESS REMAINING INPUTS

if narg < arg % legend or legend(ax) 

    if ~isempty(find_legend(ha)) || strcmp(version,'on')

        if nargout > 0

            [leg,labelhandles,outH,outM] = setOutArgs(ha);

        end

        return;

    end

end 

if narg >= arg && ... 

   istextscalar(args{arg}) && ... 

   all(ismember(char(lower(args{arg})),{'off','deletelegend',...

                                        'resizelegend',...

                                        'toggle','show','hide',...

                                        'boxon','boxoff'}))

    switch char(lower(args{arg}))

        case {'off', 'deletelegend'}

            delete_legend(find_legend(ha));

        case 'resizelegend'

            % pass

        case 'toggle'

            l = find_legend(ha);

            if isempty(l) || strcmpi(get(l, 'Visible'), 'off')

                legend(ha, 'show');

            else

                legend(ha, 'hide');

            end

        case 'show'

            l = find_legend(ha);

            if isempty(l)

                make_legend(ha, args(arg+1:end), version, limitMaxLegendEntries);

            else

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

            end

        case 'hide'

            set(legend(ha), 'Visible', 'off');

        case 'boxon'

            set(legend(ha), 'Box', 'on');

        case 'boxoff'

            set(legend(ha), 'Box', 'off');

        otherwise

            assert(false,'make sure there is a case for each item in the ismember check above')

    end

else % narg > 1 

    % legend(<string>,...)

    % legend(<charMatrix>,...)

    % legend(<cellStr>,...)

    % legend(p,...)

    % legend(p,<string>,...)

    % legend(p,<charMatrix>,...)

    % legend(p,<cellStr>,...)

    % legend('Location',<value>)

    % legend('Orientation',<value>)

    % legend('AutoUdpate',<value>)

    make_legend(ha,args(arg:end),version, limitMaxLegendEntries); 

end 

% PROCESS OUTPUTS

if nargout>0 

    [leg,labelhandles,outH,outM] = setOutArgs(ha);

end 

% before going, be sure to reset current figure and axes

if ~isempty(old_currfig) && ishghandle(old_currfig) && ~strcmpi(get(old_currfig,'beingdeleted'),'on') 

    set(0,'CurrentFigure',old_currfig); 

    if ~isempty(old_currax) && ishghandle(old_currax) && ~strcmpi(get(old_currax,'beingdeleted'),'on') 

        set(old_currfig,'CurrentAxes',old_currax); 

    end 

end