%% 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.
%%
%% This work consists of the files tikzpeople.tex, tikzpeople.sty,
%% tikzpeople.shape.alice.sty, tikzpeople.shape.bob.sty, 
%% tikzpeople.shape.bride.sty, tikzpeople.shape.builder.sty,
%% tikzpeople.shape.businessman.sty, tikzpeople.shape.charlie.sty,
%% tikzpeople.shape.chef.sty, tikzpeople.shape.conductor.sty,
%% tikzpeople.shape.cowboy.sty, tikzpeople.shape.criminal.sty,
%% tikzpeople.shape.dave.sty, tikzpeople.shape.graduate.sty, 
%% tikzpeople.shape.groom.sty, tikzpeople.shape.guard.sty, 
%% tikzpeople.shape.jester.sty, tikzpeople.shape.judge.sty,
%% tikzpeople.shape.mexican.sty, tikzpeople.shape.nun.sty, 
%% tikzpeople.shape.nurse.sty, tikzpeople.shape.physician.sty,
%% tikzpeople.shape.pilot.sty, tikzpeople.shape.police.sty,
%% tikzpeople.shape.priest.sty, tikzpeople.shape.sailor.sty,
%% tikzpeople.shape.santa.sty and tikzpeople.shape.surgeon.sty
\tikzpeople@addcolorkey{details}
\tikzpeople@addcolorkey{beard}
\tikzpeople@addcolorkey{hat}

\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{skin}{rgb}{0.84,0.58,0.24}
	\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}{
	\tikzstyle{shirt}=[color=\tikzpeople@shirt!80,top color=\tikzpeople@shirt!40, bottom color=\tikzpeople@shirt!80,shading angle=45]
	\tikzstyle{hat}=[color=\tikzpeople@hat!80,top color=\tikzpeople@hat!40, bottom color=\tikzpeople@hat!80,shading angle=45]
	\tikzstyle{details}=[color=\tikzpeople@details!80,top color=\tikzpeople@details!30, bottom color=\tikzpeople@details!90,shading angle=45]
	\tikzstyle{skin}=[color=\tikzpeople@skin!80,top color=\tikzpeople@skin!40, bottom color=\tikzpeople@skin!80,shading angle=45];
	\tikzstyle{beard}=[color=\tikzpeople@beard!80, top color=\tikzpeople@beard!30, bottom color=\tikzpeople@beard!90,shading angle=45];
	\tikzstyle{hair}=[beard];
	\tikzstyle{horns}=[color=red!80,top color=red!40, bottom color=red!80,shading angle=45];
}

\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}%
}
