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