overlay_taylor_diagram_circles.m

function axes = overlay_taylor_diagram_circles(axes,cax,option)
%OVERLAY_TAYLOR_DIAGRAM_CIRCLES Overlays circle contours on a Taylor diagram.
%
%   OVERLAY_TAYLOR_DIAGRAM_CIRCLES(OPTION)
%   Plots circle contours on a Taylor diagram to indicate root mean square 
%   (RMS) and standard deviation values.
%
%   INPUTS:
%   axes   : data structure containing axes information for Taylor diagram
%   cax    : handle for plot axes
%   option : data structure containing option values. (See 
%            GET_TAYLOR_DIAGRAM_OPTIONS for more information.)
%   option.colRMS       : RMS grid and tick labels color (Default: green)
%   option.rincRMS      : Increment spacing for RMS grid
%   option.styleRMS     : Linestyle of the RMS grid
%   option.tickRMS      : RMS values to plot gridding circles from 
%                         observation point
%   option.tickRMSangle : Angle for RMS tick labels with the observation 
%                         point (Default: 135 deg.)
%   option.widthRMS     : Line width of the RMS grid
%
%   option.colSTD       : STD grid and tick labels color (Default: black)
%   option.rincSTD      : Increment spacing for STD grid
%   option.styleSTD     : Linestyle of the STD grid
%   option.tickSTD      : STD values to plot gridding circles from origin
%   option.tickSTDangle : Angle for STD tick labels with the observation 
%                         point (Default: .8)
%   option.widthSTD     : Line width of the STD grid
%
%   OUTPUTS:
%   axes.rms.tickLabel  : tick labels of RMS contours
%
%   See also GET_TAYLOR_DIAGRAM_OPTIONS

% define a circle
th = 0:pi/150:2*pi;
xunit = cos(th);
yunit = sin(th);

% now really force points on x/y axes to lie on them exactly
inds = 1:(length(th)-1)/4:length(th);
xunit(inds(2:2:4)) = zeros(2,1);
yunit(inds(1:2:5)) = zeros(3,1);
% plot background if necessary
if ~ischar(get(cax,'color'))
    ig = 1:length(th);
    patch('xdata',xunit(ig)*axes.rmax,'ydata',yunit(ig)*axes.rmax, ...
        'edgecolor',axes.tc,'facecolor',get(cax,'color'),...
        'handlevisibility','off','parent',cax);
end

% DRAW RMS CIRCLES:
% ANGLE OF THE TICK LABELS
if option.tickRMSangle > 0
    tickRMSangle = option.tickRMSangle;
else
    phi = atan2(option.tickSTD(end),axes.dx);
    tickRMSangle = 180.0 - rad2deg(phi);
end
cst = cos(tickRMSangle*pi/180);
snt = sin(tickRMSangle*pi/180);
radius = sqrt(axes.dx^2+axes.rmax^2-2*axes.dx*axes.rmax*xunit);

% Define label format
labelFormat = option.rmslabelformat;
fontSize = get(gcf,'DefaultAxesFontSize') + 2;

for ic = 1 : length(option.tickRMS)
    iradius = option.tickRMS(ic);
    iphic = find(radius >= iradius, 1);
    if length(iphic) > 0
        ig = find(iradius*cos(th)+axes.dx <= axes.rmax*cos(th(iphic)));
        hhh = line(xunit(ig)*iradius+axes.dx,yunit(ig)*iradius,'linestyle', ...
            option.styleRMS,'color',option.colRMS,'linewidth', ...
            option.widthRMS,'handlevisibility','off','parent',cax);
        if strcmp(option.showlabelsRMS,'on')
            xtextpos = double((iradius+option.rincRMS/20)*cst+axes.dx);
            ytextpos = double((iradius+option.rincRMS/20)*snt);
            ttt(ic) = text(xtextpos,ytextpos, ...
                ['  ' sprintf(labelFormat,iradius)],'verticalalignment', ...
                'baseline', 'handlevisibility','off','parent',cax,'color', ...
                option.colRMS,'rotation',tickRMSangle-90, ...
                'fontsize',fontSize);
        end
    end
end
if exist('ttt','var') == 1
    axes.rms.tickLabel = ttt;
end

% DRAW STD CIRCLES:
% draw radial circles
for ic = 1 : length(option.tickSTD)
    i = option.tickSTD(ic);
    hhh = line(xunit*i,yunit*i,'linestyle',option.styleSTD,'color', ...
        option.colSTD,'linewidth',option.widthSTD, ...
        'handlevisibility','off','parent',cax);
end

% Set tick values for axes
tickValues = [];
if strcmp(option.showlabelsSTD,'on')
    if option.numberPanels == 2
        tickValues = horzcat(-option.tickSTD,option.tickSTD);
        tickValues = sort(unique(tickValues));
    else
        tickValues = option.tickSTD;
    end
end
xticks(tickValues);

set(hhh,'linestyle','-') % Make outer circle solid

end % function overlay_target_diagram_circles