%% 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{details}
\tikzpeople@addcolorkey{beard}

\newcommand{\tikzpeople@santa@paint}{
	\tikzpeople@person@paintshirt
	\tikzpeople@santa@paintbuttons
	\tikzpeople@person@painthead
	\tikzpeople@santa@paintbeard
	\if@tikzpeople@female
		\tikzpeople@person@painthair
	\fi
	\tikzpeople@santa@painthat
}

\newcommand{\tikzpeople@santa@definecolors}{
	\definecolor{shirt}{rgb}{0.98,0.01,0.01}
	\definecolor{hat}{rgb}{0.98,0.01,0.01}
	\definecolor{details}{RGB}{232,232,232}
	\definecolor{beard}{RGB}{232,232,232}
}

\newcommand{\tikzpeople@santa@definestyles}{
	\if@tikzpeople@saturated
		\tikzset{
			details/.style={color=\tikzpeople@details,top color=\tikzpeople@details!60, bottom color=\tikzpeople@details,shading angle=45},
			beard/.style  ={color=\tikzpeople@beard, top color=\tikzpeople@beard!60, bottom color=\tikzpeople@beard,shading angle=45}
		}
	\else
		\tikzset{
			details/.style={color=\tikzpeople@details!80,top color=\tikzpeople@details!30, bottom color=\tikzpeople@details!90,shading angle=45},
			beard/.style  ={color=\tikzpeople@beard!80, top color=\tikzpeople@beard!30, bottom color=\tikzpeople@beard!90,shading angle=45}
		}
	\fi
	\tikzset{hair/.style=beard};
}

\newcommand{\tikzpeople@santa@painthat}{
	\draw[hat]
		( 0pt,4.65pt) .. controls (-3pt,4.65pt) and (-5pt,2pt) .. (-5pt,0.40pt) .. 
		controls (-5pt,1.00pt) and (-3pt,2pt) .. (0pt,2pt);
	\draw[hat] (-3.1pt,0.5pt) arc (170:10:3.2pt and 5pt);
	\if@tikzpeople@mirrored
		\draw[details, decorate, decoration={bumps,amplitude=-.1*\scalingfactor,segment length=.7*\scalingfactor}]
			(-3.1pt,0.4pt) to[in=180,out=180] (-3.0pt,1.6pt) .. controls (-2pt,1.2pt) 
			and ( 2pt,1.2pt) ..( 3.0pt,1.6pt) to[out=0,in=0] ( 3.1pt,0.4pt) .. 
			controls ( 2pt,0.0pt) and (-2pt,0.0pt) .. (-3.1pt,0.4pt);
		\draw[details, decorate, decoration={bumps,amplitude=.1*\scalingfactor,segment length=.7*\scalingfactor}]
			(-5pt,0.4pt) circle (0.75pt);
	\else
		\draw[details, decorate, decoration={bumps,amplitude=.1*\scalingfactor,segment length=.7*\scalingfactor}] 
			(-3.1pt,0.4pt) to[in=180,out=180] (-3.0pt,1.6pt) .. controls (-2pt,1.2pt) 
			and ( 2pt,1.2pt) ..( 3.0pt,1.6pt) to[out=0,in=0] ( 3.1pt,0.4pt) .. 
			controls ( 2pt,0.0pt) and (-2pt,0.0pt) .. (-3.1pt,0.4pt);
		\draw[details, decorate, decoration={bumps,amplitude=-.1*\scalingfactor,segment length=.7*\scalingfactor}] 
			(-5pt,0.4pt) circle (0.75pt);
	\fi
}

\newcommand{\tikzpeople@santa@paintbeard}{
	\if@tikzpeople@female
	\else
		\if@tikzpeople@mirrored
			\draw[beard, decorate, decoration={bumps,amplitude=-.1*\scalingfactor,segment length=.7*\scalingfactor}] 
				(-3.1pt,1pt) arc (180:360:3.1pt and 3pt) arc (360:180:3.1pt and 5pt);
		\else
			\draw[beard, decorate, decoration={bumps,amplitude=.1*\scalingfactor,segment length=.7*\scalingfactor}] 
				(-3.1pt,1pt) arc (180:360:3.1pt and 3pt) arc (360:180:3.1pt and 5pt);
		\fi
	\fi
}

\newcommand{\tikzpeople@santa@paintbuttons}{
	\if@tikzpeople@mirrored
		\draw[details, decorate, decoration={bumps,amplitude=.1*\scalingfactor,segment length=.7*\scalingfactor}]
			(0.75pt,-5.0pt) circle (.65pt);
		\draw[details, decorate, decoration={bumps,amplitude=.1*\scalingfactor,segment length=.7*\scalingfactor}]
			(1.00pt,-7.2pt) circle (.65pt);
	\else
		\draw[details, decorate, decoration={bumps,amplitude=-.1*\scalingfactor,segment length=.7*\scalingfactor}]
			(0.75pt,-5.0pt) circle (.65pt);
		\draw[details, decorate, decoration={bumps,amplitude=-.1*\scalingfactor,segment length=.7*\scalingfactor}]
			(1.00pt,-7.2pt) circle (.65pt);
	\fi
}

\newcommand{\tikzpeople@santa@colors}{
	shirt/190/{-1/-1}, hat/20/{.5/1.6}, skin/0/{.4/.75}, beard/340/{.25/.1}, 
	details/170/{.1/-.5,-1.5/1,-.5/1.1}%
}