%% Copyright 2016 Nils Fleischhacker
%%
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either
%% version 1.3 of this license or (at your option) any later
%% version. The latest version of this license is in
%%
%%   http://www.latex-project.org/lppl.txt
%%
%% and version 1.3 or later is part of all distributions of
%% LaTeX version 2005/12/01 or later.
%%
%% This work has the LPPL maintenance status `maintained'.
%%
%% The Current Maintainer of this work is Nils Fleischhacker.
\tikzpeople@addcolorkey{collar}
\tikzpeople@addcolorkey{cross}

\newcommand{\tikzpeople@priest@paint}{
       \tikzpeople@person@paintshirt
       \tikzpeople@priest@paintcross
       \tikzpeople@priest@paintcollar
       \tikzpeople@person@paintrighthorn
       \tikzpeople@person@painthead
       \tikzpeople@person@painthair
       \tikzpeople@priest@painthat
       \tikzpeople@person@paintgoatee
       \tikzpeople@person@paintlefthorn
       \tikzpeople@person@painthalo
}

\newcommand{\tikzpeople@priest@definecolors}{
       \definecolor{skin}{rgb}{0.84,0.58,0.24}
       \definecolor{shirt}{rgb}{0,0,0}
       \definecolor{collar}{RGB}{232,232,232}
       \definecolor{cross}{rgb}{1,0.8,0.09}
       \definecolor{hair}{rgb}{0.45,0.24,0}
       \definecolor{hat}{rgb}{0.8,0.11,0}
}

\newcommand{\tikzpeople@priest@definestyles}{
       \tikzset{
               collar/.style  ={color=\tikzpeople@collar!80,top color=\tikzpeople@collar!30, bottom color=\tikzpeople@collar!90,shading angle=45},
               cross/.style   ={color=\tikzpeople@cross, top color=\tikzpeople@cross!80, bottom color=\tikzpeople@cross,shading angle=45},
               necklace/.style={color=\tikzpeople@cross,dash pattern=on 0.1*\scalingfactor off 0.3*\scalingfactor,line width=0.15*\scalingfactor,cap=round}
       }
}

\newcommand{\tikzpeople@priest@painthat}{
       \draw[hat] (50:3pt) arc (50:140:3pt) to [out=340,in=210] (50:3pt);
}

\newcommand{\tikzpeople@priest@paintcollar}{
       \draw[collar]
               (230:3.4pt|-2pt,0) -- (230:3.4pt) arc (230:317:3.2pt) -- +(0,0.8pt);
       \draw[shirt]
               (227:3.2pt) -- +(0pt,-0.4pt) arc (227:280:3.2pt) -- +(0pt, 0.4pt) arc
               (280:227:3.2pt);
       \draw[shirt]
               (-40:3.2pt) -- +(0pt,-0.4pt) arc (-40:-70:3.2pt) -- +(0pt, 0.4pt) arc
               (-70:-40:3.2pt);
}

\newcommand{\tikzpeople@priest@paintcross}{
       {
               \pgftransformrotate{10}
               \path[cross] (0.6pt,-7.2pt) -- (0.9pt,-7.2pt) -- (0.9pt,-6.3pt) --
                       (1.4pt,-6.3pt) -- (1.4pt,-6.0pt) -- (0.9pt,-6.0pt) -- (0.9pt,-5.5pt) --
                       (0.6pt,-5.5pt) -- (0.6pt,-6.0pt) -- (0.1pt,-6.0pt) -- (0.1pt,-6.3pt) --
                       (0.6pt,-6.3pt) -- (0.6pt,-7.2pt);
       }
       \begin{scope}
               \clip
                       (-4.0pt,-8.0pt) .. controls (-2pt,-10pt) and ( 3pt,-9pt) ..
                       ( 5.0pt,-7.0pt) .. controls ( 5pt,  0pt) and (-5pt, 0pt) ..
                       (-4.0pt,-8.0pt);
               \draw[necklace] (1.5pt,-5.3pt) .. controls (1.1pt,-5.2pt) and
                       (-1.8pt,-4.0pt) .. (-2.6pt,-2.9pt);
               \draw[necklace] ( 1.9pt,-5.3pt) .. controls ( 2.1pt,-4.9pt) and
                       (2.8pt,-3.5pt) .. (2.9pt,-2.6pt);
       \end{scope}
}

\newcommand{\tikzpeople@priest@colors}{
       shirt/200/{-1/-1}, hat/160/{-.25/1.5}, hair/180/{-.75/1}, skin/20/{.6/.7},
       collar/0/{.15/.05}, cross/340/{.4/-.72}%
}