summaryrefslogtreecommitdiff
path: root/graphics/pgf/contrib/tikzpeople/tikzpeople.sty
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pgf/contrib/tikzpeople/tikzpeople.sty')
-rw-r--r--graphics/pgf/contrib/tikzpeople/tikzpeople.sty924
1 files changed, 924 insertions, 0 deletions
diff --git a/graphics/pgf/contrib/tikzpeople/tikzpeople.sty b/graphics/pgf/contrib/tikzpeople/tikzpeople.sty
new file mode 100644
index 0000000000..64bac5de5a
--- /dev/null
+++ b/graphics/pgf/contrib/tikzpeople/tikzpeople.sty
@@ -0,0 +1,924 @@
+%% 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.devil.sty,
+%% tikzpeople.shape.duck.sty, tikzpeople.shape.graduate.sty,
+%% tikzpeople.shape.groom.sty, tikzpeople.shape.guard.sty,
+%% tikzpeople.shape.jester.sty, tikzpeople.shape.judge.sty,
+%% tikzpeople.shape.maninblack.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,
+%% tikzpeople.shape.surgeon.sty
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{tikzpeople}[2017/04/22 v0.4 People shaped nodes for Tikz]
+
+\RequirePackage{tikz}
+\RequirePackage{calc}
+\RequirePackage{etoolbox}
+\newif\if@tikzpeople@draft\@tikzpeople@draftfalse
+\DeclareOption{draft}{
+ \@tikzpeople@drafttrue
+}
+\newif\if@tikzpeople@demo\@tikzpeople@demofalse
+\DeclareOption{demo}{
+ \@tikzpeople@demotrue
+}
+\newif\if@tikzpeople@nobeards\@tikzpeople@nobeardsfalse
+\DeclareOption{nobeards}{
+ \@tikzpeople@nobeardstrue
+}
+\newif\if@tikzpeople@saturated\@tikzpeople@saturatedfalse
+\DeclareOption{saturated}{
+ \@tikzpeople@saturatedtrue
+}
+\ProcessOptions\relax
+\usepgflibrary{intersections}
+\usetikzlibrary{decorations.markings,decorations.pathmorphing,calc,positioning,arrows.meta}
+
+\newif\if@tikzpeople@mirrored
+\pgfkeys{/tikz/mirrored/.is if=@tikzpeople@mirrored}
+\newif\if@tikzpeople@female
+\pgfkeys{/tikz/female/.is if=@tikzpeople@female}
+\newif\if@tikzpeople@evil
+\pgfkeys{/tikz/evil/.is if=@tikzpeople@evil}
+\newif\if@tikzpeople@good
+\pgfkeys{/tikz/good/.is if=@tikzpeople@good}
+\newif\if@tikzpeople@monitor
+\pgfkeys{/tikz/monitor/.is if=@tikzpeople@monitor}
+\newif\if@tikzpeople@shield
+\pgfkeys{/tikz/shield/.is if=@tikzpeople@shield}
+\newif\if@tikzpeople@sword
+\pgfkeys{/tikz/sword/.is if=@tikzpeople@sword}
+\pgfkeys{/tikz/saturated/.is if=@tikzpeople@saturated}
+
+\newcommand{\tikzpeople@addcolorkey}[1]{
+ \expandafter\def\csname tikzpeople@#1\endcsname{#1}
+ \pgfkeys{/tikz/#1/.code=\expandafter\def\csname tikzpeople@#1\endcsname{##1}}
+}
+
+\newcommand{\tikzpeople@addtextkey}[2]{
+ \expandafter\def\csname tikzpeople@#1\endcsname{#2}
+ \pgfkeys{/tikz/#1/.code=\expandafter\def\csname tikzpeople@#1\endcsname{##1}}
+}
+
+\tikzpeople@addcolorkey{horns}
+\tikzpeople@addcolorkey{halo}
+\tikzpeople@addcolorkey{shirt}
+\tikzpeople@addcolorkey{undershirt}
+\tikzpeople@addcolorkey{skin}
+\tikzpeople@addcolorkey{hair}
+\tikzpeople@addcolorkey{hat}
+\tikzpeople@addcolorkey{pc}
+\tikzpeople@addcolorkey{shieldmid}
+\tikzpeople@addcolorkey{shieldedge}
+\tikzpeople@addcolorkey{shieldrivets}
+\tikzpeople@addcolorkey{swordblade}
+\tikzpeople@addcolorkey{swordgrip}
+\tikzpeople@addcolorkey{swordguard}
+\tikzpeople@addcolorkey{swordpommel}
+
+\pgfdeclareshape{person}{
+ \saveddimen{\scalingfactor}{
+ \setlength{\pgf@xa}{\pgfshapeminwidth}
+ \setlength{\pgf@xb}{9.075pt}
+ \ifdim\pgf@xa<\pgf@xb
+ \pgfsetshapeminwidth{9.075pt}
+ \fi
+ \setlength{\pgf@xa}{\pgfshapeminheight}
+ \setlength{\pgf@xb}{0.5cm}
+ \ifdim\pgf@xa<\pgf@xb
+ \pgfsetshapeminheight{0.5cm}
+ \fi
+ \setlength{\pgf@xa}{1pt*\ratio{\pgfshapeminwidth}{9.075pt}}
+ \setlength{\pgf@xb}{1pt*\ratio{\pgfshapeminheight}{12.1pt}}
+ \ifdim\pgf@xa<\pgf@xb
+ \setlength{\pgf@x}{1pt*\ratio{\pgfshapeminheight}{12.1pt}}
+ \else
+ \setlength{\pgf@x}{1pt*\ratio{\pgfshapeminwidth}{9.075pt}}
+ \fi
+ }
+
+ \saveddimen{\width}{
+ \pgf@x=\wd\pgfnodeparttextbox
+ }
+
+ \saveddimen{\height}{
+ \pgf@x=\ht\pgfnodeparttextbox
+ }
+
+ \saveddimen{\depth}{
+ \pgf@x=\dp\pgfnodeparttextbox
+ }
+
+ \savedanchor{\mouth}{
+ \if@tikzpeople@mirrored
+ \pgfpoint{-2.075}{1.7}
+ \else
+ \pgfpoint{2.4}{1.7}
+ \fi
+ }
+
+ \anchor{mouth}{
+ \pgfpointscale{\scalingfactor}{\mouth}
+ }
+ \anchor{north west}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{-4.375}{6.3}}
+ }
+ \anchor{north}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{0.1625}{6.3}}
+ }
+ \anchor{north east}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{4.7}{6.3}}
+ }
+ \anchor{east}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{4.7}{0.25}}
+ }
+ \anchor{south east}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{4.7}{-5.8}}
+ }
+ \anchor{south}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{0.1625}{-5.8}}
+ }
+ \anchor{south west}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{-4.375}{-5.8}}
+ }
+ \anchor{west}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{-4.375}{0.25}}
+ }
+ \anchor{center}{
+ \pgfpointscale{\scalingfactor}{\pgfpoint{0.1625}{0.25}}
+ }
+ \anchor{text}{
+ \pgfpoint{\scalingfactor*0.1625-0.5*\width}{\scalingfactor*-6.3-\depth-\height}
+ }
+ \anchor{base}{
+ \pgfpoint{\scalingfactor*0.1625}{\scalingfactor*-6.3-\depth-\height}
+ }
+ \anchor{base west}{
+ \pgfpoint{\scalingfactor*-4.375}{\scalingfactor*-6.3-\depth-\height}
+ }
+ \anchor{base east}{
+ \pgfpoint{\scalingfactor*4.7}{\scalingfactor*-6.3-\depth-\height}
+ }
+ \anchor{mid}{
+ \pgfpoint{\scalingfactor*0.1625}{\scalingfactor*-6.3-\depth-\height+.5ex}
+ }
+ \anchor{mid west}{
+ \pgfpoint{\scalingfactor*-4.375}{\scalingfactor*-6.3-\depth-\height+.5ex}
+ }
+ \anchor{mid east}{
+ \pgfpoint{\scalingfactor*4.7}{\scalingfactor*-6.3-\depth-\height+.5ex}
+ }
+
+ \anchorborder{
+ \@tempdima=\pgf@x
+ \@tempdimb=\pgf@y
+ \pgftransformshift{\pgfpoint{\scalingfactor*-0.1625}{\scalingfactor*0.4pt}}
+ \pgfpointborderellipse{\pgfpoint{\@tempdima}{\@tempdimb}}{\pgfpoint{\scalingfactor*5.9pt}{\scalingfactor*6.9pt}}
+ }
+
+
+ \beforebackgroundpath{
+ \pgftransformscale{\scalingfactor}
+ \if@tikzpeople@mirrored
+ \pgftransformxscale{-1}
+ \pgftransformxshift{-0.325}
+ \fi
+ \pgftransformshift{\pgfpoint{-0.3}{3.3}}
+ \if@tikzpeople@draft
+ \tikzpeople@person@draftstyles
+ \tikzpeople@person@paintshirt
+ \tikzpeople@person@paintrighthorn
+ \tikzpeople@person@painthead
+ \tikzpeople@person@paintgoatee
+ \tikzpeople@person@paintlefthorn
+ \tikzpeople@person@painthalo
+ \if@tikzpeople@shield
+ \tikzpeople@person@paintshield
+ \fi
+ \if@tikzpeople@sword
+ \tikzpeople@person@paintsword
+ \fi
+ \if@tikzpeople@monitor
+ \tikzpeople@person@paintmonitor
+ \fi
+ \else
+ \tikzpeople@definecommoncolors
+ \tikzpeople@definecommonstyles
+ \tikzpeople@person@paintshirt
+ \tikzpeople@person@paintrighthorn
+ \tikzpeople@person@painthead
+ \tikzpeople@person@painthair
+ \tikzpeople@person@paintlefthorn
+ \tikzpeople@person@paintgoatee
+ \tikzpeople@person@painthalo
+ \if@tikzpeople@shield
+ \tikzpeople@person@paintshield
+ \fi
+ \if@tikzpeople@sword
+ \tikzpeople@person@paintsword
+ \fi
+ \if@tikzpeople@monitor
+ \tikzpeople@person@paintmonitor
+ \fi
+ \fi
+ }
+}
+
+\newcommand{\tikzpeople@definecommonstyles}{
+ \if@tikzpeople@saturated
+ \tikzset{
+ shirt/.style= {color=\tikzpeople@shirt,top color=\tikzpeople@shirt!70, bottom color=\tikzpeople@shirt,shading angle=45},
+ hat/.style= {color=\tikzpeople@hat,top color=\tikzpeople@hat!70, bottom color=\tikzpeople@hat,shading angle=45},
+ undershirt/.style= {color=\tikzpeople@undershirt,top color=\tikzpeople@undershirt!70, bottom color=\tikzpeople@undershirt,shading angle=45},
+ skin/.style= {color=\tikzpeople@skin,top color=\tikzpeople@skin!70, bottom color=\tikzpeople@skin,shading angle=45},
+ hair/.style= {color=\tikzpeople@hair,top color=\tikzpeople@hair!70, bottom color=\tikzpeople@hair,shading angle=45},
+ goatee/.style= {color=\tikzpeople@hair,top color=\tikzpeople@hair!70, bottom color=\tikzpeople@hair,shading angle=45},
+ horns/.style= {color=\tikzpeople@horns,top color=\tikzpeople@horns!70, bottom color=\tikzpeople@horns,shading angle=45},
+ halo/.style= {color=\tikzpeople@halo,top color=\tikzpeople@halo!70, bottom color=\tikzpeople@halo,shading angle=45},
+ shieldmid/.style= {color=\tikzpeople@shieldmid,top color=\tikzpeople@shieldmid!70, bottom color=\tikzpeople@shieldmid,shading angle=45,line join=bevel},
+ shieldedge/.style= {color=\tikzpeople@shieldedge,top color=\tikzpeople@shieldedge!70, bottom color=\tikzpeople@shieldedge,shading angle=45,line join=bevel},
+ shieldrivets/.style={color=\tikzpeople@shieldrivets,top color=\tikzpeople@shieldrivets!70, bottom color=\tikzpeople@shieldrivets,shading angle=45},
+ swordblade/.style= {color=\tikzpeople@swordblade,top color=\tikzpeople@swordblade!70, bottom color=\tikzpeople@swordblade,shading angle=45},
+ swordguard/.style= {color=\tikzpeople@swordguard,top color=\tikzpeople@swordguard!70, bottom color=\tikzpeople@swordguard,shading angle=45},
+ swordpommel/.style= {color=\tikzpeople@swordpommel,top color=\tikzpeople@swordpommel!70, bottom color=\tikzpeople@swordpommel,shading angle=45},
+ swordgrip/.style= {color=\tikzpeople@swordgrip,top color=\tikzpeople@swordgrip!70, bottom color=\tikzpeople@swordgrip,shading angle=45},
+ monitor1/.style= {color=\tikzpeople@pc, top color=\tikzpeople@pc, bottom color=\tikzpeople@pc!70,shading angle=90},
+ monitor2/.style= {color=\tikzpeople@pc, top color=\tikzpeople@pc, bottom color=\tikzpeople@pc!90,shading angle=90},
+ monitor3/.style= {color=\tikzpeople@pc, top color=\tikzpeople@pc!80, bottom color=\tikzpeople@pc!70,shading angle=90},
+ monitor4/.style= {color=\tikzpeople@pc, top color=\tikzpeople@pc!60, bottom color=\tikzpeople@pc!50,shading angle=90},
+ }
+ \else
+ \tikzset{
+ shirt/.style= {color=\tikzpeople@shirt!80,top color=\tikzpeople@shirt!40, bottom color=\tikzpeople@shirt!80,shading angle=45},
+ hat/.style= {color=\tikzpeople@hat!80,top color=\tikzpeople@hat!40, bottom color=\tikzpeople@hat!80,shading angle=45},
+ undershirt/.style= {color=\tikzpeople@undershirt!80,top color=\tikzpeople@undershirt!40, bottom color=\tikzpeople@undershirt!80,shading angle=45},
+ skin/.style= {color=\tikzpeople@skin!80,top color=\tikzpeople@skin!40, bottom color=\tikzpeople@skin!80,shading angle=45},
+ hair/.style= {color=\tikzpeople@hair!80,top color=\tikzpeople@hair!40, bottom color=\tikzpeople@hair!80,shading angle=45},
+ goatee/.style= {color=\tikzpeople@hair!80,top color=\tikzpeople@hair!40, bottom color=\tikzpeople@hair!80,shading angle=45},
+ horns/.style= {color=\tikzpeople@horns!80,top color=\tikzpeople@horns!40, bottom color=\tikzpeople@horns!80,shading angle=45},
+ halo/.style= {color=\tikzpeople@halo!80,top color=\tikzpeople@halo!40, bottom color=\tikzpeople@halo!80,shading angle=45},
+ shieldmid/.style= {color=\tikzpeople@shieldmid!80,top color=\tikzpeople@shieldmid!40, bottom color=\tikzpeople@shieldmid!80,shading angle=45,line join=bevel},
+ shieldedge/.style= {color=\tikzpeople@shieldedge!80,top color=\tikzpeople@shieldedge!40, bottom color=\tikzpeople@shieldedge!80,shading angle=45,line join=bevel},
+ shieldrivets/.style={color=\tikzpeople@shieldrivets!80,top color=\tikzpeople@shieldrivets!40, bottom color=\tikzpeople@shieldrivets!80,shading angle=45},
+ swordblade/.style= {color=\tikzpeople@swordblade!80,top color=\tikzpeople@swordblade!40, bottom color=\tikzpeople@swordblade!80,shading angle=45},
+ swordguard/.style= {color=\tikzpeople@swordguard!80,top color=\tikzpeople@swordguard!40, bottom color=\tikzpeople@swordguard!80,shading angle=45},
+ swordpommel/.style= {color=\tikzpeople@swordpommel!80,top color=\tikzpeople@swordpommel!40, bottom color=\tikzpeople@swordpommel!80,shading angle=45},
+ swordgrip/.style= {color=\tikzpeople@swordgrip!80,top color=\tikzpeople@swordgrip!40, bottom color=\tikzpeople@swordgrip!80,shading angle=45},
+ monitor1/.style= {color=\tikzpeople@pc!80, top color=\tikzpeople@pc!80, bottom color=\tikzpeople@pc!40,shading angle=90},
+ monitor2/.style= {color=\tikzpeople@pc!80, top color=\tikzpeople@pc!80, bottom color=\tikzpeople@pc!70,shading angle=90},
+ monitor3/.style= {color=\tikzpeople@pc!80, top color=\tikzpeople@pc!60, bottom color=\tikzpeople@pc!50,shading angle=90},
+ monitor4/.style= {color=\tikzpeople@pc!80, top color=\tikzpeople@pc!40, bottom color=\tikzpeople@pc!30,shading angle=90},
+ }
+ \fi
+}
+
+\newcommand{\tikzpeople@person@draftstyles}{
+ \tikzset{
+ shirt/.style= {color=black,fill=white},
+ skin/.style= {color=black,fill=white},
+ goatee/.style= {color=black,fill=white},
+ horns/.style= {color=black,fill=white},
+ halo/.style= {color=black,fill=white},
+ shieldedge/.style= {color=black,fill=white},
+ swordblade/.style= {color=black,fill=white},
+ swordguard/.style= {color=black,fill=white},
+ swordpommel/.style= {color=black,fill=white},
+ swordgrip/.style= {color=black,fill=white},
+ }
+}
+
+\newcommand{\tikzpeople@definecommoncolors}{
+ \definecolor{horns}{named}{red}
+ \definecolor{halo}{named}{yellow}
+ \definecolor{skin}{rgb}{0.84,0.58,0.24}
+ \definecolor{shirt}{rgb}{0.34,0.56,0.22}
+ \definecolor{hair}{rgb}{0.45,0.24,0}
+ \definecolor{pc}{rgb}{.2,.2,.2}
+ \definecolor{shieldedge}{RGB}{83,84,85}
+ \definecolor{shieldrivets}{RGB}{25,25,26}
+ \definecolor{shieldmid}{RGB}{197,22,9}
+ \definecolor{swordblade}{RGB}{83,84,85}
+ \definecolor{swordguard}{RGB}{147,131,104}
+ \definecolor{swordpommel}{RGB}{147,131,104}
+ \definecolor{swordgrip}{RGB}{81,57,48}
+}
+
+\newcommand{\tikzpeople@person@paintshirt}{
+ \draw[shirt]
+ (-4.0pt,-8.0pt) .. controls (-2pt,-10pt) and ( 3pt,-9pt) ..
+ ( 5.0pt,-7.0pt) .. controls ( 5pt, 0pt) and (-5pt, 0pt) ..
+ (-4.0pt,-8.0pt) -- cycle;
+}
+
+\newcommand{\tikzpeople@person@painthead}{
+ \draw[skin] (0pt,0pt) circle (3pt);
+}
+
+\newcommand{\tikzpeople@person@painthair}{
+ \if@tikzpeople@female
+ \tikzpeople@person@paintfemalehair
+ \else
+ \draw[hair]
+ (25:3pt) arc (25:210:3pt) -- (-2.6pt,-0.5pt) -- (-1.7pt,-1pt) --
+ (-1.7pt,0.8pt) to[out=350,in=210] (25:3pt) -- cycle;
+ \fi
+}
+
+\newcommand{\tikzpeople@person@painthairstyletwo}{
+ \if@tikzpeople@female
+ \tikzpeople@person@paintfemalehairstyletwo
+ \else
+ \draw[hair]
+ (15:3pt) arc (15:210:3pt) -- ++(0.3pt,0pt) -- ++(0.1pt,0.5pt)
+ .. controls +(310:.2pt) .. ++(0.2pt,-0.6pt) -- ++(0.4pt,0pt)
+ .. controls +(90:1pt) .. (-1.7pt,0.4pt) to[out=350,in=210]
+ (15:3pt) -- cycle;
+ \fi
+}
+
+\newcommand{\tikzpeople@person@paintfemalehairstyletwo}{
+ \draw[hair]
+ (15:3pt) arc (15:165:3pt) .. controls +(260:1pt) .. (215:4.5pt) --
+ ++(4:0.5pt) -- ++(70:0.5pt) -- ++(285:0.4pt) -- ++(0:1.5pt) --
+ (-1.6pt,0pt) to [out=350,in=210] (15:3pt) -- cycle;
+}
+
+\newcommand{\tikzpeople@person@paintfemalehairstylethree}{
+ \draw[hair]
+ (15:3pt) arc (15:180:3.3pt) .. controls +(269:3pt) and +(190:1.5pt)
+ .. (250:3.4pt) .. controls +(118:1.2pt) .. (-1.6pt,0pt) to [out=350,in=210]
+ (15:3pt)-- cycle;
+}
+
+\newcommand{\tikzpeople@person@paintgoatee}{
+\if@tikzpeople@nobeards
+\else
+ \if@tikzpeople@evil
+ {
+ \pgftransformrotate{5}
+ \draw[goatee] (285:1.75pt)
+ -- ++(0:1pt) arc[start angle=90, end angle=0, x radius=.55pt, y radius=.5pt]
+ -- ++(270:.5pt) arc[start angle=0, end angle=-90, x radius=.55pt, y radius=.5pt]
+ -- ++(180:1pt) arc[start angle=-90, end angle=-180, x radius=.55pt, y radius=.5pt]
+ -- ++(90:.5pt) arc[start angle=180, end angle=90, x radius=.55pt, y radius=.5pt]
+ (285:1.75pt) ++(.1875pt,-.3pt)
+ arc[start angle=90,end angle=270,x radius=.45pt, y radius=.3pt]
+ -- ++(0:.6pt) arc[start angle=-90,end angle=90,x radius=.45pt, y radius=.3pt]
+ -- ++(180:.6pt);
+ }
+ \fi
+\fi
+}
+
+\newcommand{\tikzpeople@person@paintlefthorn}{
+ \if@tikzpeople@evil
+ \draw[horns]
+ (140:2.5pt) arc (-90:-170:2pt) arc (0:180:0.04pt) arc (190:240:4pt)
+ to[out=70,in=290] (140:2.5pt) -- cycle;
+ \fi
+}
+
+\newcommand{\tikzpeople@person@paintrighthorn}{
+ \if@tikzpeople@evil
+ \draw[horns]
+ (40:2.5pt) arc (-90:-10:2pt) arc (180:0:0.04pt) arc (-10:-60:4pt)
+ to[out=110,in=250] (40:2.5pt) -- cycle;
+ \fi
+}
+
+\newcommand{\tikzpeople@person@painthalo}{
+ \if@tikzpeople@good
+ \draw[fill,halo,even odd rule]
+ (0.1pt,4.5pt) ellipse (2.8pt and 0.8pt) ++(0pt,.1pt) ellipse
+ (2pt and 0.5pt);
+ \fi
+}
+
+\newcommand{\tikzpeople@person@paintfemalehair}{
+ \draw[hair]
+ (15:3pt) arc (15:180:3pt) .. controls +(273:2pt) and +(190:2pt) ..
+ (260:3.3pt) .. controls +(140:1pt) .. (-1.6pt,0pt) to [out=350,in=210]
+ (15:3pt) -- cycle;
+}
+
+\newcommand{\tikzpeople@person@paintshield}{
+ \path
+ (1pt,-3.7pt) coordinate (tikzpeople@shield1) +(-.2pt,.1pt) coordinate
+ (tikzpeople@shield6) ++(1.2pt,1.2pt) coordinate (tikzpeople@shield2)
+ ++(3.5pt,1.3pt) coordinate (tikzpeople@shield3) ++(.8pt,-.75pt) coordinate
+ (tikzpeople@shield4) ++(-2pt,-6.5pt) coordinate (tikzpeople@shield5)
+ --cycle;
+ \draw[shieldedge]
+ (tikzpeople@shield1) -- (tikzpeople@shield6) to[out=0,in=270]
+ ++(1.2pt,1.2pt) -- (tikzpeople@shield2) to[out=270,in=0]
+ (tikzpeople@shield1) --cycle;
+ \draw[shieldedge]
+ (tikzpeople@shield3) -- ++(-.2pt,.1pt) to[out=265,in=220]
+ ++(.8pt,-.75pt) -- (tikzpeople@shield4) to[out=220,in=265]
+ (tikzpeople@shield3) --cycle;
+ \draw[shieldedge]
+ (tikzpeople@shield2) -- ++(-.2pt,.1pt) .. controls +(5:1.5pt) and
+ +(220:1.5pt) .. ++(3.5pt,1.3pt) -- (tikzpeople@shield3) .. controls
+ +(220:1.5pt) and +(5:1.5pt) .. (tikzpeople@shield2) --cycle;
+ \draw[shieldedge]
+ (tikzpeople@shield5) -- ++(-.2pt,.1pt) .. controls +(170:1.5pt) and
+ +(270:3pt) .. (tikzpeople@shield6) -- (tikzpeople@shield1) .. controls
+ +(270:3pt) and +(170:1.5pt) .. (tikzpeople@shield5) --cycle;
+ \draw[shieldedge]
+ (tikzpeople@shield1) to[out=0,in=270] (tikzpeople@shield2) .. controls
+ +(5:1.5pt) and +(220:1.5pt) .. (tikzpeople@shield3) to[out=265,in=220]
+ (tikzpeople@shield4) .. controls +(270:3pt) and +(30:1.5pt) ..
+ (tikzpeople@shield5) .. controls +(170:1.5pt) and +(270:3pt) ..
+ (tikzpeople@shield1) --cycle;
+ \if@tikzpeople@draft\else
+ \draw[shieldmid]
+ ($(tikzpeople@shield1)+(315:.5pt)$) to[out=10,in=260]
+ ($(tikzpeople@shield2)+(315:.5pt)$) .. controls +(7:1.2pt) and
+ +(215:1.2pt) .. ($(tikzpeople@shield3)+(250:.75pt)$) to[out=280,in=180]
+ ($(tikzpeople@shield4)+(235:.625pt)$) .. controls +(270:2.2pt) and
+ +(30:1.1pt) .. ($(tikzpeople@shield5)+(90:.5pt)$) .. controls
+ +(172:1.1pt) and +(271:2.2pt) .. ($(tikzpeople@shield1)+(315:.5pt)$)
+ --cycle;
+ \begin{scope}
+ \clip
+ ($(tikzpeople@shield1)+(315:.3pt)$) coordinate (tikzpeople@rivet1) circle (.05pt)
+ ($(tikzpeople@shield2)+(315:.3pt)$) coordinate (tikzpeople@rivet2) circle (.05pt)
+ ($(tikzpeople@shield3)+(250:.45pt)$) coordinate (tikzpeople@rivet3) circle (.05pt)
+ ($(tikzpeople@shield4)+(235:.4pt)$) coordinate (tikzpeople@rivet4) circle (.05pt)
+ ($(tikzpeople@shield5)+(90:.3pt)$) coordinate (tikzpeople@rivet5) circle (.05pt);
+ \path[shieldrivets] (tikzpeople@rivet1) ++(-.025pt,.025pt) circle (.12pt);
+ \path[shieldrivets] (tikzpeople@rivet2) ++(-.025pt,.025pt) circle (.12pt);
+ \path[shieldrivets] (tikzpeople@rivet3) ++(-.025pt,.025pt) circle (.12pt);
+ \path[shieldrivets] (tikzpeople@rivet4) ++(-.025pt,.025pt) circle (.12pt);
+ \path[shieldrivets] (tikzpeople@rivet5) ++(-.025pt,.025pt) circle (.12pt);
+ \end{scope}
+ \fi
+}
+
+\newcommand{\tikzpeople@person@paintsword}{
+ \begin{scope}
+ \pgftransformrotate{-30}
+ \pgftransformshift{\pgfpoint{1.7pt}{-.2pt}}
+ \draw[swordpommel]
+ (-.4pt,-8.9pt) -- ++(0pt,-.1pt) arc (180:360:.4pt and .15pt) --
+ ++(0pt,.1pt); ellipse (.4pt and .15pt);
+ \draw[swordpommel] (0pt,-8.9pt) ellipse (.4pt and .15pt);
+ \draw[swordgrip]
+ (-.2pt,-7.1pt) to[out=265,in=95] (-.2pt,-8.9pt) to[out=345,in=195]
+ (.2pt,-8.9pt) to[out=85,in=275] (.2pt,-7.1pt);
+ \draw[skin] (0pt,-8.1pt) ellipse (.6pt and .7pt);
+ \draw[swordguard]
+ (0pt,-7.45pt) to[out=0,in=270] (1.4pt,-6.5pt) -- ++(-.1pt,-.1pt)
+ to[out=270,in=0] (0pt,-7.45pt); to[out=0,in=270] (1.2pt,-6.6pt) --
+ ++(.1pt,.1pt) to[out=270,in=0] (0pt,-6.8pt);
+ \draw[swordguard]
+ (0pt,-6.8pt) to[out=180,in=270] (-1.1pt,-6.5pt) -- ++(-.1pt,-.1pt)
+ to[out=270,in=180] (0pt,-7.2pt) to[out=0,in=270] (1.2pt,-6.6pt) --
+ ++(.1pt,.1pt) to[out=270,in=0] (0pt,-6.8pt);
+ \draw[swordguard]
+ (-1.2pt,-6.6pt) -- ++(0.1pt,0.1pt) -- ++(-0.1pt,0pt) -- ++(-0.1pt,-0.1pt)
+ --cycle;
+ \draw[swordguard]
+ (1.2pt,-6.6pt) -- ++(0.1pt,0.1pt) -- ++(0.1pt,0pt) -- ++(-0.1pt,-0.1pt)
+ --cycle;
+ \draw[swordguard]
+ (0pt,-7.2pt) to[out=180,in=270] (-1.2pt,-6.6pt) -- ++(-.1pt,0pt)
+ to[out=270,in=180] (0pt,-7.45pt) to[out=0,in=270] (1.3pt,-6.6pt) --
+ ++(-.1pt,0pt) to[out=270,in=0] (0pt,-7.2pt);
+ \draw[swordblade]
+ (-.4pt,-7pt) -- (-.4pt,-1.5pt) to[out=90,in=240] (0pt,2pt)
+ to[out=300,in=90] (.4pt,-1.5pt) -- (.4pt,-7pt) to[out=190,in=350]
+ (-.4pt,-7pt);
+ {
+ \clip
+ (-.4pt,-7pt) -- (-.4pt,-1.5pt) to[out=90,in=240] (0pt,1pt)
+ to[out=300,in=90] (.4pt,-1.5pt) -- (.4pt,-7pt) to[out=190,in=350]
+ (-.4pt,-7pt);
+ \draw[swordblade, line width=.05*\scalingfactor,cap=round]
+ (0pt,-7.04pt) -- (0pt,.7pt);
+ }
+ \end{scope}
+}
+
+\newcommand{\tikzpeople@person@paintmonitor}{
+ \if@tikzpeople@draft
+ \path[draw=black,fill=white]
+ (2.3pt,-2.3pt) -- ++(14:7.3pt) -- ++(340:.27pt) coordinate (tikzpeople@tmp) --
+ ++(264:6.2pt) -- ++(195.5:7.35pt) coordinate (tikzpeople@tmp2) -- ++(135:.3pt)
+ --cycle;
+ \path[draw=black]
+ (2.3pt,-2.3pt) ++(330:.28pt) coordinate (tikzpeople@tmp3)
+ (tikzpeople@tmp2) -- (tikzpeople@tmp3) -- (tikzpeople@tmp);
+ \path[draw=black]
+ (3pt,-3pt) -- ++(14.5:6.4pt) -- ++(264:5.3pt) -- ++(195.5:6.35pt)
+ coordinate (tikzpeople@tmp) --cycle;
+ \path[draw=black,line width=.15*\scalingfactor,cap=butt]
+ (tikzpeople@tmp) -- (3pt,-3pt) -- ++(14.5:6.4pt);
+ \path[draw=black,fill=white]
+ (6.1pt,-4.8pt) ++(190:.6pt) ++(280:4pt) ++(-1.5pt,.2pt) coordinate (tikzpeople@tmp)
+ -- ++(325:1.6pt) -- ++(15:3.7pt) -- ++(145:1.6pt) --cycle;
+ \path[draw=black]
+ (tikzpeople@tmp) -- ++(0,-.2pt) -- ++(325:1.6pt) -- ++(15:3.7pt) -- ++(0,.2pt);
+ \path (6.1pt,-4.8pt) ++(17:.8pt) coordinate (tikzpeople@tmp);
+ \path[draw=black,fill=white]
+ (tikzpeople@tmp) ++(0,.01pt) -- ++(194:1.5pt) -- ++(280:4pt) -- ++(0:.07pt) --
+ ++(17:.5pt) --cycle;
+ \path[draw=black,fill=white]
+ (6.1pt,-4.8pt) ++(190:.6pt) -- ++(280:4pt) coordinate (tikzpeople@tmp2) -- ++(15:2pt)
+ -- (tikzpeople@tmp) --cycle;
+ \else
+ \path[monitor1]
+ (2.3pt,-2.3pt) -- ++(14:7.3pt) -- ++(340:.27pt) coordinate (tikzpeople@tmp) --
+ ++(195:7.3pt) -- ++(264:6.2pt) coordinate (tikzpeople@tmp2) -- ++(150:.27pt) --cycle;
+ \path[monitor3]
+ (2.3pt,-2.3pt) ++(330:.28pt) -- (tikzpeople@tmp) -- ++(264:6.2pt) -- (tikzpeople@tmp2) --cycle;
+ \path[monitor4]
+ (3pt,-3pt) -- ++(14.5:6.4pt) -- ++(264:5pt) -- ++(195:6.35pt)
+ coordinate (tikzpeople@tmp) --cycle;
+ \path[draw,color=\tikzpeople@pc\if@tikzpeople@saturated\else!80\fi,line width=.15*\scalingfactor,cap=butt]
+ (tikzpeople@tmp) -- (3pt,-3pt) -- ++(14.5:6.4pt);
+ \begin{scope}
+ \pgftransformshift{\pgfpoint{6pt}{-4.7pt}}
+ \pgftransformxslant{0.15}
+ \path[monitor1]
+ (0,0) ellipse (1.3pt and 2pt);
+ \path[monitor3]
+ (.1pt,-.1pt) ellipse (1.3pt and 2pt);
+ \end{scope}
+ \path[monitor2]
+ (6.05pt,-4.8pt) ++(160:.9pt) -- ++(15:2pt) -- ++(265:1pt) -- ++(195:2pt)
+ --cycle;
+ \path (6.1pt,-4.8pt) ++(17:.8pt) coordinate (tikzpeople@tmp);
+ \path[monitor1]
+ (6.1pt,-4.8pt) ++(190:.6pt) ++(280:4pt) ++(-1.5pt,.2pt) -- ++(0,-.2pt) --
+ ++(325:1.6pt) -- ++(15:3.7pt) -- ++(0,.2pt) -- cycle;
+ \path[monitor3]
+ (6.1pt,-4.8pt) ++(190:.6pt) ++(280:4pt) ++(-1.5pt,.2pt) -- ++(325:1.6pt)
+ -- ++(15:3.7pt) -- ++(145:1.6pt) --cycle;
+ \path[monitor2]
+ (6.1pt,-4.8pt) ++(190:.6pt) ++(280:4pt) ++(-.6pt,.2pt) -- ++(325:.8pt) --
+ ++(15:2.5pt) -- ++(145:.8pt) --cycle;
+ \path[monitor2]
+ (tikzpeople@tmp) ++(0,.01pt) -- ++(194:1.5pt) -- ++(280:4pt) -- ++(0:.07pt) --
+ ++(17:.5pt) --cycle;
+ \path[monitor3]
+ (6.1pt,-4.8pt) ++(190:.6pt) -- ++(280:4pt) coordinate (tikzpeople@tmp2) -- ++(15:2pt)
+ -- (tikzpeople@tmp) --cycle;
+ \fi
+}
+
+
+\newcommand{\tikzpeople@declareshape}[1]{
+ \if@tikzpeople@draft
+ \pgfdeclareshape{#1}{
+ \inheritsavedanchors[from={person}]
+ \inheritanchor[from={person}]{north west}
+ \inheritanchor[from={person}]{north}
+ \inheritanchor[from={person}]{north east}
+ \inheritanchor[from={person}]{east}
+ \inheritanchor[from={person}]{south east}
+ \inheritanchor[from={person}]{south}
+ \inheritanchor[from={person}]{south west}
+ \inheritanchor[from={person}]{west}
+ \inheritanchor[from={person}]{center}
+ \inheritanchor[from={person}]{text}
+ \inheritanchor[from={person}]{base}
+ \inheritanchor[from={person}]{base west}
+ \inheritanchor[from={person}]{base east}
+ \inheritanchor[from={person}]{mid}
+ \inheritanchor[from={person}]{mid west}
+ \inheritanchor[from={person}]{mid east}
+ \inheritanchor[from={person}]{mouth}
+ \inheritanchorborder[from={person}]
+
+ \beforebackgroundpath{
+ \pgftransformscale{\scalingfactor}
+ \if@tikzpeople@mirrored
+ \pgftransformxscale{-1}
+ \pgftransformxshift{-0.325}
+ \fi
+ \pgftransformshift{\pgfpoint{-0.3}{3.3}}
+ \tikzpeople@person@draftstyles
+ \tikzpeople@person@paintshirt
+ \tikzpeople@person@paintrighthorn
+ \tikzpeople@person@painthead
+ \tikzpeople@person@paintgoatee
+ \tikzpeople@person@paintlefthorn
+ \tikzpeople@person@painthalo
+ \if@tikzpeople@shield
+ \tikzpeople@person@paintshield
+ \fi
+ \if@tikzpeople@sword
+ \tikzpeople@person@paintsword
+ \fi
+ \if@tikzpeople@monitor
+ \tikzpeople@person@paintmonitor
+ \fi
+ }
+ }
+ \else
+ \input{tikzpeople.shape.#1.sty}
+ \pgfdeclareshape{#1}{
+ \inheritsavedanchors[from={person}]
+ \inheritanchor[from={person}]{north west}
+ \inheritanchor[from={person}]{north}
+ \inheritanchor[from={person}]{north east}
+ \inheritanchor[from={person}]{east}
+ \inheritanchor[from={person}]{south east}
+ \inheritanchor[from={person}]{south}
+ \inheritanchor[from={person}]{south west}
+ \inheritanchor[from={person}]{west}
+ \inheritanchor[from={person}]{center}
+ \inheritanchor[from={person}]{text}
+ \inheritanchor[from={person}]{base}
+ \inheritanchor[from={person}]{base west}
+ \inheritanchor[from={person}]{base east}
+ \inheritanchor[from={person}]{mid}
+ \inheritanchor[from={person}]{mid west}
+ \inheritanchor[from={person}]{mid east}
+ \inheritanchor[from={person}]{mouth}
+ \inheritanchorborder[from={person}]
+
+ \beforebackgroundpath{
+ \pgftransformscale{\scalingfactor}
+ \if@tikzpeople@mirrored
+ \pgftransformxscale{-1}
+ \pgftransformxshift{-0.325}
+ \fi
+ \pgftransformshift{\pgfpoint{-0.3}{3.3}}
+ \tikzpeople@definecommoncolors
+ \csname tikzpeople@#1@definecolors\endcsname
+ \tikzpeople@definecommonstyles
+ \csname tikzpeople@#1@definestyles\endcsname
+ \begin{scope}
+ \csname tikzpeople@#1@paint\endcsname
+ \end{scope}
+ \if@tikzpeople@shield
+ \tikzpeople@person@paintshield
+ \fi
+ \if@tikzpeople@sword
+ \tikzpeople@person@paintsword
+ \fi
+ \if@tikzpeople@monitor
+ \tikzpeople@person@paintmonitor
+ \fi
+ }
+ }
+ \fi
+ \if@tikzpeople@demo
+ \ifdef{\tikzpeople@shapelist}{
+ \appto\tikzpeople@shapelist{,#1}
+ }{
+ \def\tikzpeople@shapelist{#1}
+ }
+ \stepcounter{tikzpeople@totalshapes}
+ \fi
+}
+
+\if@tikzpeople@demo
+ \RequirePackage{xparse}
+ \RequirePackage{capt-of}
+ \RequirePackage{xifthen}
+ \newcounter{tikzpeople@shaperow}
+ \newcounter{tikzpeople@shapecolumn}
+ \newcounter{tikzpeople@shapenum}
+ \newcounter{tikzpeople@totalshapes}
+ \newlength{\tikzpeople@figwidth}
+ \newlength{\tikzpeople@captionht}
+
+ \newcommand{\tikzpeople@horizontalseparation}[1]{
+ \draw
+ ($#1*(-1,1.25) + {2.5*#1}*(0,-\value{tikzpeople@shaperow})$) --
+ +(${2*#1}*(\value{tikzpeople@shapecolumn},0)$);
+ }
+
+ \newcommand{\tikzpeople@verticalseparation}[1]{
+ \draw
+ ($#1*(-1,1.25) + {2*#1}*(\value{tikzpeople@shapecolumn},0) + {2.5*#1}*(0,-\value{tikzpeople@shaperow})$)
+ -- +($2.5*(0,-#1)$);
+ }
+
+ \NewDocumentCommand\alltikzpeople{smm}{%
+ \setlength{\tikzpeople@figwidth}{#2cm}
+ \edef\tikzpeople@foreachshape{\noexpand\foreach \noexpand\tikzpeople@shape in {\tikzpeople@shapelist}}
+ \edef\tikzpeople@numcols{\the\numexpr(\textwidth-(\tikzpeople@figwidth))/(2*\tikzpeople@figwidth)\relax}
+ \addtocounter{figure}{10}
+ \settototalheight{\tikzpeople@captionht}{%
+ \vbox{\captionof{figure}{All available characters with \texttt{minimum width=#2cm} and no additional options.}}
+ }%
+ \addtocounter{figure}{-11}
+ \edef\tikzpeople@numrows{\the\numexpr(2*(\textheight-\tikzpeople@captionht)-(5*\tikzpeople@figwidth/2))/(5*\tikzpeople@figwidth)\relax}
+ \edef\tikzpeople@numshapes{\the\numexpr\tikzpeople@numcols*\tikzpeople@numrows\relax}
+ \edef\tikzpeople@numfigs{\the\numexpr\value{tikzpeople@totalshapes}/\tikzpeople@numshapes\relax}
+ \ifthenelse{\numexpr\tikzpeople@numfigs*\tikzpeople@numshapes\relax<\value{tikzpeople@totalshapes}}{
+ \edef\tikzpeople@numfigs{\the\numexpr\tikzpeople@numfigs+1\relax}
+ }{}
+ \foreach \tikzpeople@fignum in {1,...,\tikzpeople@numfigs}{
+ \begin{figure}[htp]
+ \centering
+ \setcounter{tikzpeople@shapecolumn}{0}
+ \setcounter{tikzpeople@shaperow}{0}
+ \setcounter{tikzpeople@shapenum}{0}
+ \begin{tikzpicture}
+ \tikzpeople@foreachshape{
+ \stepcounter{tikzpeople@shapenum}
+ \ifthenelse{\value{tikzpeople@shapenum} > \numexpr(\tikzpeople@fignum-1)*\tikzpeople@numshapes\relax}{
+ \ifthenelse{\value{tikzpeople@shapenum} < \numexpr\tikzpeople@fignum*\tikzpeople@numshapes+1\relax}{
+ \coordinate (\tikzpeople@shape) at (${2*#2}*(\value{tikzpeople@shapecolumn},0) + {2.5*#2}*(0,-\value{tikzpeople@shaperow})$);
+ \node[minimum width=#2cm,\tikzpeople@shape,#3] at (\tikzpeople@shape) {\texttt{\IfBooleanTF#1{}{\tikzpeople@shape}}};
+ \tikzpeople@verticalseparation{#2}
+ \stepcounter{tikzpeople@shapecolumn}
+ \ifthenelse{\value{tikzpeople@shapecolumn}=\tikzpeople@numcols}{
+ \tikzpeople@verticalseparation{#2}
+ \ifthenelse{\value{tikzpeople@shaperow}=0}{\tikzpeople@horizontalseparation{#2}}{}
+ \stepcounter{tikzpeople@shaperow}
+ \tikzpeople@horizontalseparation{#2}
+ \setcounter{tikzpeople@shapecolumn}{0}
+ }{}
+ }{}
+ }{}
+ }
+ \ifthenelse{\value{tikzpeople@shapecolumn}=0}{}{
+ \tikzpeople@verticalseparation{#2}
+ \ifthenelse{\value{tikzpeople@shaperow}=0}{\tikzpeople@horizontalseparation{#2}}{}
+ \stepcounter{tikzpeople@shaperow}
+ \tikzpeople@horizontalseparation{#2}
+ }
+ \end{tikzpicture}
+ \caption{\tikzpeople@captiontext{#2}{#3}}
+ \label{fig:tikzpeoplefigure\tikzpeople@fignum}
+ \end{figure}
+ }
+ }
+
+ \newcommand{\tikzpeople@captiontext}[2]{
+ \ifstrempty{#2}{
+ All available characters with \texttt{minimum width=#1cm} and no additional options. %
+ }{%
+ All available characters with \texttt{minimum width=#1cm} and \texttt{#2} options. %
+ }%
+ \ifnum\tikzpeople@numfigs>1%
+ (Part \tikzpeople@fignum~of \tikzpeople@numfigs)
+ \fi
+ }
+
+ \newcommand{\tikzpeoplecolors}[1]{
+ \begin{minipage}{.95\textwidth}
+ \begin{center}
+ \centering
+ \expandafter\let\expandafter\tikzpeople@peoplecolors\csname tikzpeople@#1@colors\endcsname
+ \begin{tikzpicture}
+ \node[minimum width=2.5cm,#1] {};
+ \foreach \tikzpeople@name/\tikzpeople@angle/\tikzpeople@coords in \tikzpeople@peoplecolors{
+ \node (label) at (\tikzpeople@angle:2.5) {\tikzpeople@name};
+ \foreach \x/\y in \tikzpeople@coords{
+ \draw (label) edge (\x,\y);
+ }
+ }
+ \end{tikzpicture}
+ \captionof{figure}{The available color-keys for \texttt{#1} tikzpeople.}
+ \end{center}
+ \end{minipage}
+ }
+
+\fi
+
+\tikzpeople@declareshape{alice}
+\tikzpeople@declareshape{bob}
+\tikzpeople@declareshape{bride}
+\tikzpeople@declareshape{builder}
+\tikzpeople@declareshape{businessman}
+\tikzpeople@declareshape{charlie}
+\tikzpeople@declareshape{chef}
+\tikzpeople@declareshape{conductor}
+\tikzpeople@declareshape{cowboy}
+\tikzpeople@declareshape{criminal}
+\tikzpeople@declareshape{dave}
+\tikzpeople@declareshape{devil}
+\tikzpeople@declareshape{duck}
+\tikzpeople@declareshape{graduate}
+\tikzpeople@declareshape{groom}
+\tikzpeople@declareshape{guard}
+\tikzpeople@declareshape{jester}
+\tikzpeople@declareshape{judge}
+\tikzpeople@declareshape{maninblack}
+\tikzpeople@declareshape{mexican}
+\tikzpeople@declareshape{nun}
+\tikzpeople@declareshape{nurse}
+\tikzpeople@declareshape{physician}
+\tikzpeople@declareshape{pilot}
+\tikzpeople@declareshape{police}
+\tikzpeople@declareshape{priest}
+\tikzpeople@declareshape{sailor}
+\tikzpeople@declareshape{santa}
+\tikzpeople@declareshape{surgeon}
+
+\let\pgfmath@function@veclen\relax
+\pgfmathdeclarefunction{veclen}{2}{%
+ \begingroup%
+ \pgfmath@x#1pt\relax%
+ \pgfmath@y#2pt\relax%
+ \ifdim\pgfmath@x<0pt\relax%
+ \pgfmath@x-\pgfmath@x%
+ \fi%
+ \ifdim\pgfmath@y<0pt\relax%
+ \pgfmath@y-\pgfmath@y%
+ \fi%
+ \ifdim\pgfmath@x=0pt\relax%
+ \pgfmath@x\pgfmath@y%
+ \else%
+ \ifdim\pgfmath@y=0pt\relax%
+ \else%
+ \ifdim\pgfmath@x>\pgfmath@y%
+ \pgfmath@xa\pgfmath@x%
+ \pgfmath@x\pgfmath@y%
+ \pgfmath@y\pgfmath@xa%
+ \fi%
+ % We use a scaling factor to reduce errors.
+ % First, see if we should scale down
+ \let\pgfmath@tmp@scale=\divide
+ \let\pgfmath@tmp@restore=\multiply
+ \ifdim\pgfmath@y>10000pt\relax%
+ \c@pgfmath@counta1500\relax%
+ \else%
+ \ifdim\pgfmath@y>1000pt\relax%
+ \c@pgfmath@counta150\relax%
+ \else%
+ \ifdim\pgfmath@y>100pt\relax%
+ \c@pgfmath@counta50\relax%
+ \else%
+ % Not scaling down, should we scale up?
+ \let\pgfmath@tmp@scale=\multiply
+ \let\pgfmath@tmp@restore=\divide
+ \ifdim\pgfmath@y<0.00001pt\relax%
+ \c@pgfmath@counta1500\relax%
+ \else%
+ \ifdim\pgfmath@y<0.0001pt\relax%
+ \c@pgfmath@counta150\relax%
+ \else%
+ \ifdim\pgfmath@y<0.001pt\relax%
+ \c@pgfmath@counta50\relax%
+ \else
+ \c@pgfmath@counta1\relax%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \pgfmath@tmp@scale\pgfmath@x\c@pgfmath@counta\relax%
+ \pgfmath@tmp@scale\pgfmath@y\c@pgfmath@counta\relax%
+ \pgfmathreciprocal@{\pgfmath@tonumber{\pgfmath@y}}%
+ \pgfmath@x\pgfmathresult\pgfmath@x%
+ \pgfmath@xa\pgfmath@tonumber{\pgfmath@x}\pgfmath@x%
+ \edef\pgfmath@temp{\pgfmath@tonumber{\pgfmath@xa}}%
+ %
+ % Use A+x^2*(B+x^2*(C+x^2*(D+E*x^2)))
+ % where
+ % A = +1.000012594
+ % B = +0.4993615349
+ % C = -0.1195159052
+ % D = +0.04453994279
+ % E = -0.01019210944
+ %
+ \pgfmath@x-0.01019210944\pgfmath@xa%
+ \advance\pgfmath@x0.04453994279pt\relax%
+ \pgfmath@x\pgfmath@temp\pgfmath@x%
+ \advance\pgfmath@x-0.1195159052pt\relax%
+ \pgfmath@x\pgfmath@temp\pgfmath@x%
+ \advance\pgfmath@x0.4993615349pt\relax%
+ \pgfmath@x\pgfmath@temp\pgfmath@x%
+ \advance\pgfmath@x1.000012594pt\relax%
+ \ifdim\pgfmath@y<0pt\relax%
+ \pgfmath@y-\pgfmath@y%
+ \fi%
+ \pgfmath@x\pgfmath@tonumber{\pgfmath@y}\pgfmath@x%
+ % Invert the scaling factor.
+ \pgfmath@tmp@restore\pgfmath@x\c@pgfmath@counta\relax%
+ \fi%
+ \fi%
+ \pgfmath@returnone\pgfmath@x%
+ \endgroup%
+}