%% 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{pearls}
\tikzpeople@addcolorkey{veil}

\newcommand{\tikzpeople@bride@paint}{
	\tikzpeople@person@paintshirt
	\tikzpeople@bride@paintshirtdetails
	\tikzpeople@person@paintrighthorn
	\tikzpeople@bride@paintveilright
	\tikzpeople@person@painthead
	\tikzpeople@person@paintfemalehairstylethree
	\tikzpeople@bride@paintveilleft
	\tikzpeople@person@paintgoatee
	\tikzpeople@person@paintlefthorn
	\tikzpeople@person@painthalo
}

\newcommand{\tikzpeople@bride@paintshirtdetails}{
	\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[skin,color=\tikzpeople@shirt!80]
			(240:3pt) .. controls +(315:4pt) and +(270:4pt) .. (316:3.1pt) -- cycle;
		\path[postaction={decorate},decoration={
			markings,
			mark=between positions 0.04 and 1 step 0.09 with {\pgftransformscale{\scalingfactor}\fill[pearls] (0pt,0pt) circle (.2pt);},
			mark=at position 0.58 with {\pgftransformscale{\scalingfactor}\fill[pearls] (216:.5pt) circle (.2pt) ++(288:.5pt) circle (.2pt) ++(0:.5pt) circle (.2pt) ++(72:.5pt) circle (.2pt);}}]
			(240:3.4pt) .. controls +(315:4pt) and +(270:4pt) .. (316:3.5pt);
	\end{scope}
}

\newcommand{\tikzpeople@bride@paintveilright}{
	\begin{scope}
		\pgftransformshift{\pgfpointpolar{20}{3pt}}
		\pgftransformrotate{25}
		\fill[veil] (0,0) -- ++(.5pt,-2.5pt) arc (80:140:.7pt) arc (60:120:.7pt) arc (40:100:.7pt) -- ++(.5pt,2.5pt) --cycle;
		\pgftransformshift{\pgfpoint{-.5pt}{0pt}}
		\pgftransformrotate{-17}
		\fill[veil] (0,0) -- ++(.5pt,-2.5pt) arc (80:140:.7pt) arc (60:120:.7pt) arc (40:100:.7pt) -- ++(.5pt,2.5pt) --cycle;
	\end{scope}
}

\newcommand{\tikzpeople@bride@paintveilleft}{
	\begin{scope}
		\fill[veil] 
			(-1.3pt,.6pt) -- ++(.5pt,-2.5pt) arc (80:140:.7pt) arc (60:120:.7pt) arc 
			(40:100:.7pt) -- ++(.5pt,2.5pt) --cycle;
		\pgftransformshift{\pgfpoint{-.5pt}{-.4pt}}
		\pgftransformrotate{-17}
		\fill[veil] 
			(-1.3pt,.6pt) -- ++(.5pt,-2.5pt) arc (80:140:.7pt) arc (60:120:.7pt) arc 
			(40:100:.7pt) -- ++(.5pt,2.5pt) --cycle;
		\pgftransformshift{\pgfpoint{-.5pt}{-.4pt}}
		\pgftransformrotate{-17}
		\fill[veil] 
			(-1.3pt,.6pt) -- ++(.5pt,-2.5pt) arc (80:140:.7pt) arc (60:120:.7pt) arc 
			(40:100:.7pt) -- ++(.5pt,2.5pt) --cycle;
		\pgftransformshift{\pgfpoint{-.5pt}{-.4pt}}
		\pgftransformrotate{-17}
		\fill[veil] 
			(-1.3pt,.6pt) -- ++(.5pt,-2.5pt) arc (80:140:.7pt) arc (60:120:.7pt) arc 
			(40:100:.7pt) -- ++(.5pt,2.5pt) --cycle;
		\pgftransformshift{\pgfpoint{-.5pt}{-.4pt}}
		\pgftransformrotate{-17}
		\fill[veil] 
			(-1.3pt,.6pt) -- ++(.5pt,-2.5pt) arc (80:140:.7pt) arc (60:120:.7pt) arc 
			(40:100:.7pt) -- ++(.5pt,2.5pt) --cycle;
	\end{scope}
	\path[postaction={decorate},decoration={markings,
		mark=between positions 0.1 and 1 step 0.27 with {\pgftransformscale{\scalingfactor}
			\fill[pearls] 
				(0,.3pt) circle (.2pt) ++(216:.5pt) circle (.2pt) ++(288:.5pt) circle 
				(.2pt) ++(0:.5pt) circle (.2pt) ++(72:.5pt) circle (.2pt);
		}}]
		(150:3.3pt) to [out=330,in=210] (35:3pt);
}

\newcommand{\tikzpeople@bride@definecolors}{
	\definecolor{shirt}{RGB}{236,240,255}
	\definecolor{pearls}{rgb}{.96,.96,1}
	\definecolor{undershirt}{rgb}{.8,.8,.8}
	\definecolor{veil}{RGB}{179,196,228}
}
\newcommand{\tikzpeople@bride@definestyles}{
	\if@tikzpeople@saturated
		\tikzset{
			veil/.style  ={color=\tikzpeople@veil!80!white,opacity=0.3},
			pearls/.style={top color=\tikzpeople@pearls!70,bottom color=\tikzpeople@pearls,shading angle=-45}
		}
	\else
		\tikzset{
			veil/.style  ={color=\tikzpeople@veil!50!white,opacity=0.3},
			pearls/.style={top color=\tikzpeople@pearls!40,bottom color=\tikzpeople@pearls!80,shading angle=-45}
		}
	\fi
}

\newcommand{\tikzpeople@bride@colors}{
	shirt/200/{-1/-.75},	veil/170/{-1.2/.8}, hair/150/{-.4/1.6}, skin/30/{.6/.8}, 
	pearls/340/{0/.97,.47/-.46}%
}
