%% 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{undershirt}
\tikzpeople@addcolorkey{tie}
\tikzpeople@addcolorkey{monogram}

\newcommand{\tikzpeople@businessman@paint}{
	\tikzpeople@person@paintshirt
	\tikzpeople@businessman@paintundershirt
	\tikzpeople@businessman@paintopenshirt
	\tikzpeople@person@paintrighthorn
	\tikzpeople@person@painthead
	\tikzpeople@person@painthair
	\tikzpeople@person@paintgoatee
	\tikzpeople@person@paintlefthorn
	\tikzpeople@person@painthalo
}

\newcommand{\tikzpeople@businessman@definecolors}{
	\definecolor{skin}{rgb}{0.84,0.58,0.24}
	\definecolor{hair}{rgb}{0.45,0.24,0}
	\definecolor{shirt}{rgb}{0.12,0.39,0.14}
	\definecolor{undershirt}{rgb}{0.9,0.9,0.9}
	\definecolor{tie}{rgb}{0.5,0.1,0.1}
	\definecolor{monogram}{rgb}{0,0,0.5}
}

\newcommand{\tikzpeople@businessman@definestyles}{
	\tikzstyle{undershirt}=[color=\tikzpeople@undershirt!80,top color=\tikzpeople@undershirt!40, bottom color=\tikzpeople@undershirt!80,shading angle=45]
	\tikzstyle{tie}=[color=\tikzpeople@tie!80,top color=\tikzpeople@tie!40, bottom color=\tikzpeople@tie!80,shading angle=45]
	\tikzstyle{shirt}=[color=\tikzpeople@shirt!80,top color=\tikzpeople@shirt!40, bottom color=\tikzpeople@shirt!80,shading angle=45]
	\tikzstyle{skin}=[color=\tikzpeople@skin!80,top color=\tikzpeople@skin!40, bottom color=\tikzpeople@skin!80,shading angle=45]
	\tikzstyle{hair}=[color=\tikzpeople@hair!80,top color=\tikzpeople@hair!40, bottom color=\tikzpeople@hair!80,shading angle=45]
	\tikzstyle{goatee}=[color=\tikzpeople@hair!80,top color=\tikzpeople@hair!40, bottom color=\tikzpeople@hair!80,shading angle=45]
	\tikzstyle{horns}=[color=red!80,top color=red!40, bottom color=red!80,shading angle=45]
	\tikzstyle{halo}=[color=yellow!80,top color=yellow!40, bottom color=yellow!80,shading angle=45]
}

\newcommand{\tikzpeople@businessman@paintundershirt}{
	\begin{scope}
		\clip 
			(-4pt,-8pt) .. controls (-2pt,-10pt) and (3pt,-9pt) .. 
			( 5pt,-7pt) .. controls ( 5pt,  0pt) and (-5pt,0pt) ..
			(-4pt,-8pt);
		\draw[undershirt]
			(-2.2pt,-1pt) -- (2pt,-8.5pt) -- (2pt,-1pt);
		\draw[tie]
			(0  pt,-2.5pt) -- (0.8pt,-3.2pt) -- (1.1pt,-6  pt) -- (1.7pt,-8.7pt) -- 
			(2pt,-8.7pt) -- (2  pt,-5.5pt) -- (1  pt,-3.1pt) -- (1.2pt,-2  pt) -- 
			(0.3pt,-2  pt);
		\draw[undershirt,shading angle=-45]
			(0.5pt,-3pt) -- (0.1pt,-3.7pt) -- (-1pt,-3pt);
		\draw[undershirt,shading angle=-45] 
			(0.9pt,-2.5pt) -- (1.8pt,-3.2pt) -- (2.2pt,-2.2pt);
	\end{scope}
		{
			\pgftransformrotate{20}
			\pgf@xa=0.5pt*\scalingfactor
			\if@tikzpeople@mirrored
				\pgftransformxscale{-1}
				\pgftext[at=\pgfpoint{1pt}{-4pt}]{\resizebox{\pgf@xa}{!}{\color{\tikzpeople@monogram}{$\mathcal{BP}$}}}
			\else
				\pgftext[at=\pgfpoint{0.3pt}{-4pt}]{\resizebox{\pgf@xa}{!}{\color{\tikzpeople@monogram}{$\mathcal{BP}$}}}
			\fi
		}
}

\newcommand{\tikzpeople@businessman@paintopenshirt}{
	\begin{scope}
		\clip 
			(-4pt,-8pt) .. controls (-2pt,-10pt) and (3pt,-9pt) .. 
			( 5pt,-7pt) .. controls ( 5pt,  0pt) and (-5pt,0pt) ..
			(-4pt,-8pt);
		\draw[shirt,shading angle=-45]
			(-2pt,-2.6 pt)   -- (-1.5pt,-5pt)   -- (-0.5pt,-5pt) -- (-1.1pt,-5.2pt) -- 
			(1.6pt,-8.75pt)  -- (1.9pt,-8.75pt) .. controls (1.7pt,-7pt) and 
			(-0pt,-3.2pt)    .. (-1.6pt,-2pt)   -- cycle;
		\draw[shirt,shading angle=-45]
			(1.9pt,-2pt) .. controls (1.9pt,-1.8pt)	and (1.9pt,-8.5pt) .. 
			(1.9pt,-8.75pt) -- (2.3pt,-8.5pt) -- (3.2pt,-5.2pt) -- 
			(2.6pt,-5.2 pt) -- (3.2pt,-5  pt) -- (2.3pt,-2.3pt) -- cycle;
	\end{scope}
	\draw[color=\tikzpeople@shirt!80]
		(-4pt,-8pt) .. controls (-2pt,-10pt) and ( 3pt,-9pt) .. 
		( 5pt,-7pt) .. controls ( 5pt,  0pt) and (-5pt, 0pt) ..
		(-4pt,-8pt);
}

\newcommand{\tikzpeople@businessman@colors}{
	shirt/200/{-1/-.75},	hair/150/{-.4/1.3}, skin/30/{.5/.8}, undershirt/180/{.1/-.2}, tie/330/{.32/-.7}, monogram/0/{.4/-.1}%
}
