%%
%% This is file `tikzlibrarywargame.natoapp6c.code.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% natoapp6c/core.dtx  (with options: `natoapp6c')
%% natoapp6c/frames/base.dtx  (with options: `natoapp6c')
%% natoapp6c/frames/friendly.dtx  (with options: `natoapp6c')
%% natoapp6c/frames/hostile.dtx  (with options: `natoapp6c')
%% natoapp6c/frames/neutral.dtx  (with options: `natoapp6c')
%% natoapp6c/frames/unknown.dtx  (with options: `natoapp6c')
%% natoapp6c/echelon.dtx  (with options: `natoapp6c')
%% natoapp6c/text.dtx  (with options: `natoapp6c')
%% natoapp6c/shape.dtx  (with options: `natoapp6c')
%% natoapp6c/util.dtx  (with options: `natoapp6c')
%% natoapp6c/weaponry.dtx  (with options: `natoapp6c')
%% natoapp6c/symbols.dtx  (with options: `natoapp6c')
%% natoapp6c/list.dtx  (with options: `natoapp6c')
%% 
%% Copyright (C) 2019 Christian Holm.
%% 
%% This file is NOT the source for wargame, because almost all comments
%% have been stripped from it.  It is NOT the preferred form of universal
%% for making modifications to it.
%% 
%% Therefore you can NOT redistribute and/or modify THIS file.  You can
%% however redistribute the complete source (wargame.dtx and wargame.ins)
%% and/or modify it under the terms of the GNU General Public License as
%% published by the Free Software Foundation; either version 2, or (at
%% your option) any later version.
%% 
%% The wargame package is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%% General Public License for more details.
%% 
%% You should have received a copy of the GNU General Public
%% License along with this package; if not, write to the
%%   Free Software Foundation, Inc.,
%%   675 Mass Ave, Cambridge,
%%   MA 02139, USA.
%% 
%% See the file wargame.dtx for further comments and documentation.
%% 
\usetikzlibrary{wargame.util}
\usetikzlibrary{calc}
\usetikzlibrary{arrows.meta}
\usetikzlibrary{shapes.symbols}
\usetikzlibrary{positioning,intersections}
\newcount\natoappdbglvl\natoappdbglvl=\wargamedbglvl
\def\n@to@pp@dbg#1#2{%
  \ifnum#1>\natoappdbglvl\relax\else\message{^^J#2}\fi}
\definecolor{friendly}{RGB}{128, 224, 255}
\definecolor{hostile}{RGB}{255, 128, 128}
\definecolor{neutral}{RGB}{170, 255, 170}
\definecolor{unknown}{RGB}{255, 255, 128}
\tikzset{%
  faction/.code={%
    \@ifundefined{natoapp@fac}{%
    }{\tikzset{fill=\natoapp@fac}}}}
\newdimen\n@to@pp@inst@x\n@to@pp@inst@x=0.2cm
\newdimen\n@to@pp@inst@h\n@to@pp@inst@h=0.15cm
\newdimen\n@to@pp@act@w\n@to@pp@act@w=0.15cm
\newdimen\n@to@pp@space@h\n@to@pp@space@h=0.1cm
\newdimen\n@to@pp@r\n@to@pp@r=0.5cm
\newif\ifn@to@pp@isclip\n@to@pp@isclipfalse

\let\n@to@pp@saved@stroke@color\relax
\let\n@to@pp@saved@fill@color\relax
\newcommand\n@to@pp@stroke@to@fill{%
  %
  \expandafter\let\expandafter\n@to@pp@saved@stroke@color%
  \csname\string\color@pgfstrokecolor\endcsname%
  %
  \expandafter\let\expandafter\n@to@pp@saved@fill@color%
  \csname\string\color@pgffillcolor\endcsname%
  %
  \expandafter\pgf@setfillcolor\n@to@pp@saved@stroke@color%
  %
  % \message{^^J=== Set fill to stroke color
  %   ^^J  Old fill:   \meaning\n@to@pp@saved@fill@color
  %   ^^J  Old stroke: \meaning\n@to@pp@saved@stroke@color}
}
\newcommand\n@to@pp@restore@fill{%
  % \message{^^J=== Restore fill color
  %   ^^J  Old fill:   \meaning\n@to@pp@saved@fill@color
  %   ^^J  Old stroke: \meaning\n@to@pp@saved@stroke@color}
  %
  \ifx\n@to@pp@saved@fill@color\relax\else%
    \expandafter\pgf@setfillcolor\n@to@pp@saved@fill@color%
  \fi%
  \global\let\n@to@pp@saved@fill@color\relax
  \global\let\n@to@pp@saved@stroke@color\relax
}
\newenvironment{n@to@pp@stroketofill}{%
  \pgfscope%
  \n@to@pp@stroke@to@fill%
}{%
  \n@to@pp@restore@fill%
  \endpgfscope%
}
\def\n@to@pp@friendly{friendly}
\def\n@to@pp@hostile{hostile}
\def\n@to@pp@neutral{neutral}
\def\n@to@pp@unknown{unknown}
\pgfdeclareshape{natoapp6c base}{%
  \saveddimen\radius{\pgf@x=\n@to@pp@r}
  \saveddimen\liney{\pgf@x=.2cm}
  \saveddimen\linex{\pgf@x=0.41cm}
  \savedanchor\center{\pgf@x=0cm\pgf@y=0cm}
  \savedanchor\upper{\pgf@x=0cm\pgf@y=0.35cm}
  \anchor{north east}{\pgf@x=\radius\pgf@y=\radius}
  \anchor{south west}{\pgf@x=-\radius\pgf@y=-\radius}
  \anchor{north west}{\pgf@x=-\radius\pgf@y=\radius}
  \anchor{south east}{\pgf@x=\radius\pgf@y=-\radius}
  \anchor{south}{\pgf@x=0cm\pgf@y=-\radius}
  \anchor{north}{\pgf@x=0cm\pgf@y=\radius}
  \anchor{west}{\pgf@x=-\radius\pgf@y=0cm}
  \anchor{east}{\pgf@x=\radius\pgf@y=0cm}
  \anchor{center}{\center}
  \anchor{upper}{\upper}
  \anchor{lower}{\upper\pgf@y=-\pgf@y}
  \anchor{left}{\upper\pgf@x=-\pgf@y\pgf@y=0cm}
  \anchor{right}{\upper\pgf@x=\pgf@y\pgf@y=0cm}
  \savedmacro\init{
    \def\octagon{%
      \pgfpathmoveto{\pgfqpointpolar{0}  {\radius}}%
      \pgfpathlineto{\pgfqpointpolar{45} {\radius}}%
      \pgfpathlineto{\pgfqpointpolar{90} {\radius}}%
      \pgfpathlineto{\pgfqpointpolar{135}{\radius}}%
      \pgfpathlineto{\pgfqpointpolar{180}{\radius}}%
      \pgfpathlineto{\pgfqpointpolar{225}{\radius}}%
      \pgfpathlineto{\pgfqpointpolar{270}{\radius}}%
      \pgfpathlineto{\pgfqpointpolar{315}{\radius}}%
      \pgfpathclose}
    \def\topline{%
      \pgfpathmoveto{\pgfqpoint{\linex}{\liney}}%
      \pgfpathlineto{\pgfqpoint{-\linex}{\liney}}}
    \def\bottomline{%
      \pgfpathmoveto{\pgfqpoint{\linex}{-\liney}}%
      \pgfpathlineto{\pgfqpoint{-\linex}{-\liney}}}
  }
  \backgroundpath{%
    \init%
    \octagon}
  \behindforegroundpath{%
    \init%
    \octagon%
    \pgfusepath{stroke}%
    \topline%
    \pgfusepath{stroke}%
    \bottomline%
    \pgfusepath{stroke}%
  }
}
\def\n@to@friendly@@ir{%
  \southeast \wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
  \pgfpathmoveto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
  \cntrl \wg@tmpb=\pgf@y%
  \pgfpatharc{180}{0}{\wg@tmpa and \wg@tmpb}}
\pgfdeclareshape{natoapp6c friendly air}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\southeast{%
    \pgf@x=1.1\n@to@pp@r%
    \pgf@y=-\n@to@pp@r}
  \savedanchor\cntrl{\pgf@x=0cm\pgf@y=2.6\n@to@pp@r}
  \savedanchor\north{\pgf@x=0cm\pgf@y=1.6\n@to@pp@r}
  \anchor{south east}{\southeast}
  \anchor{south west}{\southeast\pgf@x=-\pgf@x}
  \anchor{north east}{\southeast\wg@tmpa=\pgf@x\north\pgf@x=\wg@tmpa}
  \anchor{north west}{\southeast\wg@tmpa=\pgf@x\north\pgf@x=-\wg@tmpa}
  \anchor{north}{\north}
  \anchor{east}{%
    \north\wg@tmpb\pgf@y%
    \southeast\wg@tmpc=\pgf@y\wg@tmpa=\pgf@x%
    \advance\wg@tmpb-\wg@tmpc
    \divide\wg@tmpb2%
    \advance\wg@tmpb\wg@tmpc%
    \pgf@x=\wg@tmpa%
    \pgf@y=\wg@tmpb}
  \anchor{west}{%
    \north\wg@tmpb\pgf@y%
    \southeast\wg@tmpc=\pgf@y\wg@tmpa=\pgf@x%
    \advance\wg@tmpb-\wg@tmpc
    \divide\wg@tmpb2%
    \advance\wg@tmpb\wg@tmpc%
    \pgf@x=-\wg@tmpa%
    \pgf@y=\wg@tmpb}
  \anchor{south}{\southeast\pgf@x=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \n@to@friendly@@ir%
  }
  \behindforegroundpath{%
    \n@to@friendly@@ir%
    \pgfusepath{stroke}%
  }
}
\def\n@to@friendly@l@nd{%
  \northeast \wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
  \pgfpathmoveto{\pgfqpoint{ \wg@tmpa}{ \wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{ \wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{ \wg@tmpa}{-\wg@tmpb}}%
  \pgfclosepath}
\pgfdeclareshape{natoapp6c friendly land}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\northeast{%
    \pgf@x=1.5\n@to@pp@r%
    \pgf@y=\n@to@pp@r}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south east}{\northeast\pgf@y=-\pgf@y}
  \anchor{south west}{\northeast\pgf@x=-\pgf@x\pgf@y=-\pgf@y}
  \anchor{north}{\northeast\pgf@x=0cm}
  \anchor{south}{\northeast\pgf@x=0cm\pgf@y=-\pgf@y}
  \anchor{east}{\northeast\pgf@y=0cm}
  \anchor{west}{\northeast\pgf@x=-\pgf@x\pgf@y=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \n@to@friendly@l@nd%
  }
  \behindforegroundpath{%
    \n@to@friendly@l@nd%
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c friendly activity}{%
  \inheritsavedanchors[from=natoapp6c friendly land]
  \inheritanchor[from=natoapp6c friendly land]{center}
  \inheritanchor[from=natoapp6c friendly land]{inner north east}
  \inheritanchor[from=natoapp6c friendly land]{inner north west}
  \inheritanchor[from=natoapp6c friendly land]{inner south west}
  \inheritanchor[from=natoapp6c friendly land]{inner south east}
  \inheritanchor[from=natoapp6c friendly land]{north east}
  \inheritanchor[from=natoapp6c friendly land]{north west}
  \inheritanchor[from=natoapp6c friendly land]{south east}
  \inheritanchor[from=natoapp6c friendly land]{south west}
  \inheritanchor[from=natoapp6c friendly land]{north}
  \inheritanchor[from=natoapp6c friendly land]{west}
  \inheritanchor[from=natoapp6c friendly land]{east}
  \inheritanchor[from=natoapp6c friendly land]{south}
  \inheritanchor[from=natoapp6c friendly land]{upper}
  \inheritanchor[from=natoapp6c friendly land]{lower}
  \inheritanchor[from=natoapp6c friendly land]{left}
  \inheritanchor[from=natoapp6c friendly land]{right}
  \inheritanchor[from=natoapp6c friendly land]{center}
  \inheritbackgroundpath[from=natoapp6c friendly land]
  \behindforegroundpath{
    \begin{n@to@pp@stroketofill}
      \n@to@friendly@l@nd%
      \pgfusepath{stroke}
      %
      \northeast \wg@tmpa=\pgf@x\wg@tmpb\pgf@y%
      \wg@tmpc=\wg@tmpa\advance\wg@tmpc-\n@to@pp@act@w
      \wg@tmpd=\wg@tmpb\advance\wg@tmpd-\n@to@pp@act@w
      %
      \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpa}{\wg@tmpd}}%
      \pgfclosepath
      %
      \pgfusepath{fill}%
      \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{-\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpa}{-\wg@tmpb}}%
      \pgfclosepath
      \pgfusepath{fill}%
      %
      \pgfpathmoveto{\pgfqpoint{-\wg@tmpc}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpc}{\wg@tmpd}}%
      \pgfclosepath
      \pgfusepath{fill}%
      %
      \pgfpathmoveto{\pgfqpoint{-\wg@tmpc}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpc}{-\wg@tmpb}}%
      \pgfclosepath
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c friendly equipment}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\northeast{%
    \pgf@x=1.2\n@to@pp@r%
    \pgf@y=1.2\n@to@pp@r}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south east}{\northeast\pgf@y=-\pgf@y}
  \anchor{south west}{\northeast\pgf@x=-\pgf@x\pgf@y=-\pgf@y}
  \anchor{north}{\northeast\pgf@x=0cm}
  \anchor{south}{\northeast\pgf@x=0cm\pgf@y=-\pgf@y}
  \anchor{east}{\northeast\pgf@y=0cm}
  \anchor{west}{\northeast\pgf@x=-\pgf@x\pgf@y=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \northeast\wg@tmpa\pgf@x%
    \pgfpathcircle{\pgfqpoint{0cm}{0cm}}{\wg@tmpa}
  }
  \behindforegroundpath{%
    \northeast\wg@tmpa\pgf@x%
    \pgfpathcircle{\pgfqpoint{0cm}{0cm}}{\wg@tmpa}
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c friendly installation}{%
  \inheritsavedanchors[from=natoapp6c friendly land]
  \inheritanchor[from=natoapp6c friendly land]{center}
  \inheritanchor[from=natoapp6c friendly land]{inner north east}
  \inheritanchor[from=natoapp6c friendly land]{inner north west}
  \inheritanchor[from=natoapp6c friendly land]{inner south west}
  \inheritanchor[from=natoapp6c friendly land]{inner south east}
  \inheritanchor[from=natoapp6c friendly land]{north east}
  \inheritanchor[from=natoapp6c friendly land]{north west}
  \inheritanchor[from=natoapp6c friendly land]{south east}
  \inheritanchor[from=natoapp6c friendly land]{south west}
  \inheritanchor[from=natoapp6c friendly land]{north}
  \inheritanchor[from=natoapp6c friendly land]{west}
  \inheritanchor[from=natoapp6c friendly land]{east}
  \inheritanchor[from=natoapp6c friendly land]{south}
  \inheritanchor[from=natoapp6c friendly land]{upper}
  \inheritanchor[from=natoapp6c friendly land]{lower}
  \inheritanchor[from=natoapp6c friendly land]{left}
  \inheritanchor[from=natoapp6c friendly land]{right}
  \inheritanchor[from=natoapp6c friendly land]{center}
  \inheritbackgroundpath[from=natoapp6c friendly land]
  \behindforegroundpath{
    \begin{n@to@pp@stroketofill}
      \n@to@friendly@l@nd%
      \pgfusepath{stroke}
      %
      \northeast \wg@tmpa=\pgf@y%
      \wg@tmpb=\wg@tmpa\advance\wg@tmpb\n@to@pp@inst@h%
      %
      \pgfpathmoveto{\pgfqpoint{ \n@to@pp@inst@x}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@inst@x}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@inst@x}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{ \n@to@pp@inst@x}{\wg@tmpa}}%
      \pgfclosepath
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c friendly sea surface}{%
  \inheritsavedanchors[from=natoapp6c friendly equipment]
  \inheritanchor[from=natoapp6c friendly equipment]{inner north east}
  \inheritanchor[from=natoapp6c friendly equipment]{inner north west}
  \inheritanchor[from=natoapp6c friendly equipment]{inner south west}
  \inheritanchor[from=natoapp6c friendly equipment]{inner south east}
  \inheritanchor[from=natoapp6c friendly equipment]{north east}
  \inheritanchor[from=natoapp6c friendly equipment]{north west}
  \inheritanchor[from=natoapp6c friendly equipment]{south east}
  \inheritanchor[from=natoapp6c friendly equipment]{south west}
  \inheritanchor[from=natoapp6c friendly equipment]{north}
  \inheritanchor[from=natoapp6c friendly equipment]{west}
  \inheritanchor[from=natoapp6c friendly equipment]{east}
  \inheritanchor[from=natoapp6c friendly equipment]{south}
  \inheritanchor[from=natoapp6c friendly equipment]{upper}
  \inheritanchor[from=natoapp6c friendly equipment]{lower}
  \inheritanchor[from=natoapp6c friendly equipment]{left}
  \inheritanchor[from=natoapp6c friendly equipment]{right}
  \inheritanchor[from=natoapp6c friendly equipment]{center}
  \inheritbackgroundpath[from=natoapp6c friendly equipment]
  \inheritbehindforegroundpath[from=natoapp6c friendly equipment]
}
\pgfdeclareshape{natoapp6c friendly space}{%
  \inheritsavedanchors[from=natoapp6c friendly air]
  \inheritanchor[from=natoapp6c friendly air]{north east}
  \inheritanchor[from=natoapp6c friendly air]{north west}
  \inheritanchor[from=natoapp6c friendly air]{south east}
  \inheritanchor[from=natoapp6c friendly air]{south west}
  \inheritanchor[from=natoapp6c friendly air]{north}
  \inheritanchor[from=natoapp6c friendly air]{west}
  \inheritanchor[from=natoapp6c friendly air]{east}
  \inheritanchor[from=natoapp6c friendly air]{south}
  \inheritanchor[from=natoapp6c friendly air]{upper}
  \inheritanchor[from=natoapp6c friendly air]{lower}
  \inheritanchor[from=natoapp6c friendly air]{left}
  \inheritanchor[from=natoapp6c friendly air]{right}
  \inheritanchor[from=natoapp6c friendly air]{center}
  \inheritbackgroundpath[from=natoapp6c friendly air]
  \behindforegroundpath{%
    \begin{n@to@pp@stroketofill}
      \n@to@friendly@@ir%
      \pgfusepath{stroke,clip}%
      %
      \cntrl\wg@tmpa=\pgf@y%
      \north\wg@tmpb=\pgf@y
      \advance\wg@tmpb-\n@to@pp@space@h
      %
      \pgfpathmoveto{\pgfqpoint{ \n@to@pp@r}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@r}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@r}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{ \n@to@pp@r}{\wg@tmpb}}%
      \pgfclosepath%
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\def\n@to@friendly@sub{%
  \northeast \wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
  \pgfpathmoveto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
  \cntrl \wg@tmpb=\pgf@y%
  \pgfpatharc{180}{0}{\wg@tmpa and \wg@tmpb}}
\pgfdeclareshape{natoapp6c friendly sub surface}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\northeast{%
    \pgf@x=1.1\n@to@pp@r%
    \pgf@y=\n@to@pp@r}
  \savedanchor\cntrl{\pgf@x=0cm\pgf@y=-2.6\n@to@pp@r}
  \savedanchor\south{\pgf@x=0cm\pgf@y=-1.6\n@to@pp@r}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south east}{\northeast\wg@tmpa=\pgf@x\south\pgf@x=\wg@tmpa}
  \anchor{south west}{\northeast\wg@tmpa=\pgf@x\south\pgf@x=-\wg@tmpa}
  \anchor{south}{\south}
  \anchor{east}{
    \northeast\wg@tmpb=\pgf@y\wg@tmpa=\pgf@x%
    \south\wg@tmpc\pgf@y%
    \advance\wg@tmpb-\wg@tmpc
    \divide\wg@tmpb2%
    \advance\wg@tmpb\wg@tmpc%
    \pgf@x=\wg@tmpa%
    \pgf@y=\wg@tmpb}
  \anchor{west}{
    \northeast\wg@tmpb=\pgf@y\wg@tmpa=\pgf@x%
    \south\wg@tmpc\pgf@y%
    \advance\wg@tmpb-\wg@tmpc
    \divide\wg@tmpb2%
    \advance\wg@tmpb\wg@tmpc%
    \pgf@x=-\wg@tmpa%
    \pgf@y=\wg@tmpb}
  \anchor{north}{\northeast\pgf@x=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \n@to@friendly@sub%
  }
  \behindforegroundpath{%
    \n@to@friendly@sub%
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c friendly none}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\northeast{%
    \pgf@x=1.5\n@to@pp@r%
    \pgf@y=\n@to@pp@r}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south east}{\northeast\pgf@y=-\pgf@y}
  \anchor{south west}{\northeast\pgf@x=-\pgf@x\pgf@y=-\pgf@y}
  \anchor{north}{\northeast\pgf@x=0cm}
  \anchor{south}{\northeast\pgf@x=0cm\pgf@y=-\pgf@y}
  \anchor{east}{\northeast\pgf@y=0cm}
  \anchor{west}{\northeast\pgf@x=-\pgf@x\pgf@y=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{}
  \behindforegroundpath{}
}
\def\n@to@friendly@l@nd{%
  \northeast \wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
  \pgfpathmoveto{\pgfqpoint{ \wg@tmpa}{ \wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{ \wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{ \wg@tmpa}{-\wg@tmpb}}%
  \pgfclosepath}
\def\n@to@pp@friendl@dismounted{%
  \northeast\wg@tmpa=\pgf@x\wg@tmpb\pgf@y%
  \pgfpathmoveto{\pgfpoint{-\wg@tmpa}{-.5\wg@tmpb}}%
  \pgfpathlineto{\pgfpoint{-\wg@tmpa}{ .5\wg@tmpb}}%
  \pgfpathlineto{\pgfpoint{0cm}      {   \wg@tmpb}}%
  \pgfpathlineto{\pgfpoint{ \wg@tmpa}{ .5\wg@tmpb}}%
  \pgfpathlineto{\pgfpoint{ \wg@tmpa}{-.5\wg@tmpb}}%
  \pgfpathlineto{\pgfpoint{0cm}      {  -\wg@tmpb}}%
  \pgfclosepath%
}%
\pgfdeclareshape{natoapp6c friendly dismounted}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\northeast{%
    \pgf@x=1.1\n@to@pp@r%
    \pgf@y=1.1\n@to@pp@r}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south east}{\northeast\pgf@y=-\pgf@y}
  \anchor{south west}{\northeast\pgf@x=-\pgf@x\pgf@y=-\pgf@y}
  \anchor{north}{\northeast\pgf@x=0cm}
  \anchor{south}{\northeast\pgf@x=0cm\pgf@y=-\pgf@y}
  \anchor{east}{\northeast\pgf@y=0cm}
  \anchor{west}{\northeast\pgf@x=-\pgf@x\pgf@y=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \n@to@pp@friendl@dismounted%
  }
  \behindforegroundpath{%
    \n@to@pp@friendl@dismounted%
    \pgfusepath{stroke}%
  }
}
\def\n@to@hostile@@ir{%
  \southeast \wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
  \cntrl \wg@tmpc=\pgf@y%
  \north \wg@tmpd=\pgf@y%
  \pgfpathmoveto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpc}}%
  \pgfpathlineto{\pgfqpoint{ 0cm}{\wg@tmpd}}%
  \pgfpathlineto{\pgfqpoint{\wg@tmpa}{\wg@tmpc}}%
  \pgfpathlineto{\pgfqpoint{\wg@tmpa}{\wg@tmpb}}%
}
\pgfdeclareshape{natoapp6c hostile air}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\southeast{%
    \pgf@x=\n@to@pp@r%
    \pgf@y=-\n@to@pp@r}
  \savedanchor\cntrl{%
    \pgf@x=\n@to@pp@r%
    \pgf@y=0.414\n@to@pp@r% (sqrt(2)-1)
  }
  \savedanchor\north{\pgf@x=0cm\pgf@y=1.414\n@to@pp@r}
  \anchor{south east}{\southeast}
  \anchor{south west}{\southeast\pgf@x=-\pgf@x}
  \anchor{north east}{\southeast\wg@tmpa=\pgf@x\north\pgf@x=\wg@tmpa}
  \anchor{north west}{\southeast\wg@tmpa=\pgf@x\north\pgf@x=-\wg@tmpa}
  \anchor{north}{\north}
  \anchor{east}{%
    \north\wg@tmpb\pgf@y%
    \southeast\wg@tmpc=\pgf@y\wg@tmpa=\pgf@x%
    \advance\wg@tmpb-\wg@tmpc
    \divide\wg@tmpb2%
    \advance\wg@tmpb\wg@tmpc%
    \pgf@x=\wg@tmpa%
    \pgf@y=\wg@tmpb}
  \anchor{west}{%
    \north\wg@tmpb\pgf@y%
    \southeast\wg@tmpc=\pgf@y\wg@tmpa=\pgf@x%
    \advance\wg@tmpb-\wg@tmpc
    \divide\wg@tmpb2%
    \advance\wg@tmpb\wg@tmpc%
    \pgf@x=-\wg@tmpa%
    \pgf@y=\wg@tmpb}
  \anchor{south}{\southeast\pgf@x=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \n@to@hostile@@ir%
  }
  \behindforegroundpath{%
    \n@to@hostile@@ir%
    \pgfusepath{stroke}%
  }
}
\def\n@to@hostile@l@nd{%
  \northeast \wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
  \pgfpathmoveto{\pgfqpoint{ \wg@tmpa}{ 0cm}}%
  \pgfpathlineto{\pgfqpoint{ 0cm}{ \wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{ 0cm}}%
  \pgfpathlineto{\pgfqpoint{ 0cm}{-\wg@tmpb}}%
  \pgfclosepath}
\pgfdeclareshape{natoapp6c hostile land}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\northeast{%
    \pgf@x=1.414\n@to@pp@r%
    \pgf@y=1.414\n@to@pp@r}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south east}{\northeast\pgf@y=-\pgf@y}
  \anchor{south west}{\northeast\pgf@x=-\pgf@x\pgf@y=-\pgf@y}
  \anchor{north}{\northeast\pgf@x=0cm}
  \anchor{south}{\northeast\pgf@x=0cm\pgf@y=-\pgf@y}
  \anchor{east}{\northeast\pgf@y=0cm}
  \anchor{west}{\northeast\pgf@x=-\pgf@x\pgf@y=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \n@to@hostile@l@nd%
  }
  \behindforegroundpath{%
    \n@to@hostile@l@nd%
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c hostile activity}{%
  \inheritsavedanchors[from=natoapp6c hostile land]
  \inheritanchor[from=natoapp6c hostile land]{center}
  \inheritanchor[from=natoapp6c hostile land]{inner north east}
  \inheritanchor[from=natoapp6c hostile land]{inner north west}
  \inheritanchor[from=natoapp6c hostile land]{inner south west}
  \inheritanchor[from=natoapp6c hostile land]{inner south east}
  \inheritanchor[from=natoapp6c hostile land]{north east}
  \inheritanchor[from=natoapp6c hostile land]{north west}
  \inheritanchor[from=natoapp6c hostile land]{south east}
  \inheritanchor[from=natoapp6c hostile land]{south west}
  \inheritanchor[from=natoapp6c hostile land]{north}
  \inheritanchor[from=natoapp6c hostile land]{west}
  \inheritanchor[from=natoapp6c hostile land]{east}
  \inheritanchor[from=natoapp6c hostile land]{south}
  \inheritanchor[from=natoapp6c hostile land]{upper}
  \inheritanchor[from=natoapp6c hostile land]{lower}
  \inheritanchor[from=natoapp6c hostile land]{left}
  \inheritanchor[from=natoapp6c hostile land]{right}
  \inheritanchor[from=natoapp6c hostile land]{center}
  \inheritbackgroundpath[from=natoapp6c hostile land]
  \behindforegroundpath{
    \begin{n@to@pp@stroketofill}
      \n@to@hostile@l@nd%
      \pgfusepath{stroke}
      %
      \northeast \wg@tmpb=\pgf@y%
      \wg@tmpa=0.707\n@to@pp@act@w
      \wg@tmpc=\wg@tmpb\advance\wg@tmpc-1.414\n@to@pp@act@w
      \wg@tmpd=\wg@tmpb\advance\wg@tmpd-\wg@tmpa
      %
      \pgfpathmoveto{\pgfqpoint{ \wg@tmpa}{\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{      0cm}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{      0cm}{\wg@tmpc}}%
      \pgfclosepath
      \pgfusepath{fill}%
      %
      \pgfpathmoveto{\pgfqpoint{-\wg@tmpc}{0cm}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpd}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpb}{0cm}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpd}{-\wg@tmpa}}%
      \pgfclosepath
      \pgfusepath{fill}%
      %
      \pgfpathmoveto{\pgfqpoint{ \wg@tmpa}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{      0cm}{-\wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{      0cm}{-\wg@tmpb}}%
      \pgfclosepath
      \pgfusepath{fill}%
      %
      \pgfpathmoveto{\pgfqpoint{\wg@tmpb}{0cm}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpd}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{0cm}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpd}{-\wg@tmpa}}%
      \pgfclosepath
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c hostile equipment}{%
  \inheritsavedanchors[from=natoapp6c hostile land]
  \inheritanchor[from=natoapp6c hostile land]{inner north east}
  \inheritanchor[from=natoapp6c hostile land]{inner north west}
  \inheritanchor[from=natoapp6c hostile land]{inner south west}
  \inheritanchor[from=natoapp6c hostile land]{inner south east}
  \inheritanchor[from=natoapp6c hostile land]{north east}
  \inheritanchor[from=natoapp6c hostile land]{north west}
  \inheritanchor[from=natoapp6c hostile land]{south east}
  \inheritanchor[from=natoapp6c hostile land]{south west}
  \inheritanchor[from=natoapp6c hostile land]{north}
  \inheritanchor[from=natoapp6c hostile land]{west}
  \inheritanchor[from=natoapp6c hostile land]{east}
  \inheritanchor[from=natoapp6c hostile land]{south}
  \inheritanchor[from=natoapp6c hostile land]{upper}
  \inheritanchor[from=natoapp6c hostile land]{lower}
  \inheritanchor[from=natoapp6c hostile land]{left}
  \inheritanchor[from=natoapp6c hostile land]{right}
  \inheritanchor[from=natoapp6c hostile land]{center}
  \inheritbackgroundpath[from=natoapp6c hostile land]
  \inheritbehindforegroundpath[from=natoapp6c hostile land]
}
\pgfdeclareshape{natoapp6c hostile installation}{%
  \inheritsavedanchors[from=natoapp6c hostile land]
  \inheritanchor[from=natoapp6c hostile land]{center}
  \inheritanchor[from=natoapp6c hostile land]{inner north east}
  \inheritanchor[from=natoapp6c hostile land]{inner north west}
  \inheritanchor[from=natoapp6c hostile land]{inner south west}
  \inheritanchor[from=natoapp6c hostile land]{inner south east}
  \inheritanchor[from=natoapp6c hostile land]{north east}
  \inheritanchor[from=natoapp6c hostile land]{north west}
  \inheritanchor[from=natoapp6c hostile land]{south east}
  \inheritanchor[from=natoapp6c hostile land]{south west}
  \inheritanchor[from=natoapp6c hostile land]{north}
  \inheritanchor[from=natoapp6c hostile land]{west}
  \inheritanchor[from=natoapp6c hostile land]{east}
  \inheritanchor[from=natoapp6c hostile land]{south}
  \inheritanchor[from=natoapp6c hostile land]{upper}
  \inheritanchor[from=natoapp6c hostile land]{lower}
  \inheritanchor[from=natoapp6c hostile land]{left}
  \inheritanchor[from=natoapp6c hostile land]{right}
  \inheritanchor[from=natoapp6c hostile land]{center}
  \inheritbackgroundpath[from=natoapp6c hostile land]
  \behindforegroundpath{
    \begin{n@to@pp@stroketofill}
      \n@to@hostile@l@nd%
      \pgfusepath{stroke}
      %
      \northeast \wg@tmpa=\pgf@x\wg@tmpb\pgf@y%
      \wg@tmpc=\wg@tmpb
      \advance\wg@tmpc\n@to@pp@inst@h%
      \advance\wg@tmpc-0.05cm%
      %
      \pgfpathmoveto{\pgfqpoint{ \wg@tmpa}{0cm}}
      \pgfpathlineto{\pgfqpoint{ \wg@tmpa}{\wg@tmpc}}
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpc}}
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{0cm}}
      \pgfpathlineto{\pgfqpoint{ 0cm}{\wg@tmpb}}
      \pgfclosepath%
      \pgfusepath{clip}
      %
      \wg@tmpd=\wg@tmpb%
      \advance\wg@tmpd-\n@to@pp@inst@h%
      %
      \pgfpathmoveto{\pgfqpoint{ \n@to@pp@inst@x}{\wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@inst@x}{\wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@inst@x}{\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{ \n@to@pp@inst@x}{\wg@tmpd}}%
      \pgfclosepath
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c hostile sea surface}{%
  \inheritsavedanchors[from=natoapp6c hostile equipment]
  \inheritanchor[from=natoapp6c hostile equipment]{inner north east}
  \inheritanchor[from=natoapp6c hostile equipment]{inner north west}
  \inheritanchor[from=natoapp6c hostile equipment]{inner south west}
  \inheritanchor[from=natoapp6c hostile equipment]{inner south east}
  \inheritanchor[from=natoapp6c hostile equipment]{north east}
  \inheritanchor[from=natoapp6c hostile equipment]{north west}
  \inheritanchor[from=natoapp6c hostile equipment]{south east}
  \inheritanchor[from=natoapp6c hostile equipment]{south west}
  \inheritanchor[from=natoapp6c hostile equipment]{north}
  \inheritanchor[from=natoapp6c hostile equipment]{west}
  \inheritanchor[from=natoapp6c hostile equipment]{east}
  \inheritanchor[from=natoapp6c hostile equipment]{south}
  \inheritanchor[from=natoapp6c hostile equipment]{upper}
  \inheritanchor[from=natoapp6c hostile equipment]{lower}
  \inheritanchor[from=natoapp6c hostile equipment]{left}
  \inheritanchor[from=natoapp6c hostile equipment]{right}
  \inheritanchor[from=natoapp6c hostile equipment]{center}
  \inheritbackgroundpath[from=natoapp6c hostile equipment]
  \inheritbehindforegroundpath[from=natoapp6c hostile equipment]
}
\pgfdeclareshape{natoapp6c hostile space}{%
  \inheritsavedanchors[from=natoapp6c hostile air]
  \inheritanchor[from=natoapp6c hostile air]{north east}
  \inheritanchor[from=natoapp6c hostile air]{north west}
  \inheritanchor[from=natoapp6c hostile air]{south east}
  \inheritanchor[from=natoapp6c hostile air]{south west}
  \inheritanchor[from=natoapp6c hostile air]{north}
  \inheritanchor[from=natoapp6c hostile air]{west}
  \inheritanchor[from=natoapp6c hostile air]{east}
  \inheritanchor[from=natoapp6c hostile air]{south}
  \inheritanchor[from=natoapp6c hostile air]{upper}
  \inheritanchor[from=natoapp6c hostile air]{lower}
  \inheritanchor[from=natoapp6c hostile air]{left}
  \inheritanchor[from=natoapp6c hostile air]{right}
  \inheritanchor[from=natoapp6c hostile air]{center}
  \inheritbackgroundpath[from=natoapp6c hostile air]
  \behindforegroundpath{%
    \begin{n@to@pp@stroketofill}
      \n@to@hostile@@ir%
      \pgfusepath{stroke,clip}%
      %
      \north\wg@tmpa=\pgf@y\wg@tmpb=\pgf@y
      \advance\wg@tmpb-\n@to@pp@space@h
      %
      \pgfpathmoveto{\pgfqpoint{ \n@to@pp@r}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@r}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@r}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{ \n@to@pp@r}{\wg@tmpb}}%
      \pgfclosepath%
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\def\n@to@hostile@sub{%
  \northeast \wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
  \cntrl \wg@tmpc=\pgf@y%
  \south \wg@tmpd=\pgf@y%
  \pgfpathmoveto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
  \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpc}}%
  \pgfpathlineto{\pgfqpoint{ 0cm}{\wg@tmpd}}%
  \pgfpathlineto{\pgfqpoint{\wg@tmpa}{\wg@tmpc}}%
  \pgfpathlineto{\pgfqpoint{\wg@tmpa}{\wg@tmpb}}%
}
\pgfdeclareshape{natoapp6c hostile sub surface}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\northeast{%
    \pgf@x=\n@to@pp@r%
    \pgf@y=\n@to@pp@r}
  \savedanchor\cntrl{\pgf@x=\n@to@pp@r\pgf@y=-0.414\n@to@pp@r}
  \savedanchor\south{\pgf@x=0cm\pgf@y=-1.414\n@to@pp@r}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south east}{\northeast\wg@tmpa=\pgf@x\south\pgf@x=\wg@tmpa}
  \anchor{south west}{\northeast\wg@tmpa=\pgf@x\south\pgf@x=-\wg@tmpa}
  \anchor{south}{\south}
  \anchor{east}{
    \northeast\wg@tmpb=\pgf@y\wg@tmpa=\pgf@x%
    \south\wg@tmpc\pgf@y%
    \advance\wg@tmpb-\wg@tmpc
    \divide\wg@tmpb2%
    \advance\wg@tmpb\wg@tmpc%
    \pgf@x=\wg@tmpa%
    \pgf@y=\wg@tmpb}
  \anchor{west}{
    \northeast\wg@tmpb=\pgf@y\wg@tmpa=\pgf@x%
    \south\wg@tmpc\pgf@y%
    \advance\wg@tmpb-\wg@tmpc
    \divide\wg@tmpb2%
    \advance\wg@tmpb\wg@tmpc%
    \pgf@x=-\wg@tmpa%
    \pgf@y=\wg@tmpb}
  \anchor{north}{\northeast\pgf@x=0cm}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \n@to@hostile@sub%
  }
  \behindforegroundpath{%
    \n@to@hostile@sub%
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c hostile dismounted}{%
  \inheritsavedanchors[from=natoapp6c hostile land]
  \inheritanchor[from=natoapp6c hostile land]{inner north east}
  \inheritanchor[from=natoapp6c hostile land]{inner north west}
  \inheritanchor[from=natoapp6c hostile land]{inner south west}
  \inheritanchor[from=natoapp6c hostile land]{inner south east}
  \inheritanchor[from=natoapp6c hostile land]{north east}
  \inheritanchor[from=natoapp6c hostile land]{north west}
  \inheritanchor[from=natoapp6c hostile land]{south east}
  \inheritanchor[from=natoapp6c hostile land]{south west}
  \inheritanchor[from=natoapp6c hostile land]{north}
  \inheritanchor[from=natoapp6c hostile land]{west}
  \inheritanchor[from=natoapp6c hostile land]{east}
  \inheritanchor[from=natoapp6c hostile land]{south}
  \inheritanchor[from=natoapp6c hostile land]{upper}
  \inheritanchor[from=natoapp6c hostile land]{lower}
  \inheritanchor[from=natoapp6c hostile land]{left}
  \inheritanchor[from=natoapp6c hostile land]{right}
  \inheritanchor[from=natoapp6c hostile land]{center}
  \inheritbackgroundpath[from=natoapp6c hostile land]
  \inheritbehindforegroundpath[from=natoapp6c hostile land]
}
\def\n@to@pp@neutr@l@init{%
  \northeast\wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
  \def\n@to@pp@neutr@l@left  {\pgflineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpb}}}%
  \def\n@to@pp@neutr@l@right {\pgflineto{\pgfqpoint{ \wg@tmpa}{ \wg@tmpb}}}%
  \def\n@to@pp@neutr@l@top   {\pgflineto{\pgfqpoint{-\wg@tmpa}{ \wg@tmpb}}}%
  \def\n@to@pp@neutr@l@bottom{\pgflineto{\pgfqpoint{ \wg@tmpa}{-\wg@tmpb}}}%
  \def\n@to@pp@neutr@l@nw    {\pgfmoveto{\pgfqpoint{-\wg@tmpa}{ \wg@tmpb}}}%
  \def\n@to@pp@neutr@l@ne    {\pgfmoveto{\pgfqpoint{ \wg@tmpa}{ \wg@tmpb}}}%
  \def\n@to@pp@neutr@l@se    {\pgfmoveto{\pgfqpoint{ \wg@tmpa}{-\wg@tmpb}}}%
  \def\n@to@pp@neutr@l@sw    {\pgfmoveto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpb}}}%
}
\pgfdeclareshape{natoapp6c neutral air}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\northeast{\pgf@x=\n@to@pp@r\pgf@y=\n@to@pp@r}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south east}{\northeast\pgf@y=-\pgf@y}
  \anchor{south west}{\northeast\pgf@x=-\pgf@x\pgf@y=-\pgf@y}
  \anchor{north}{\northeast\pgf@x=0cm}
  \anchor{east}{\northeast\pgf@y=0cm}
  \anchor{west}{\northeast\pgf@x=-\pgf@x\pgf@y=0cm}
  \anchor{south}{\northeast\pgf@x=0cm\pgf@y=-\pgf@y}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \inheritanchor[from=natoapp6c base]{center}
  \backgroundpath{%
    \n@to@pp@neutr@l@init%
    \n@to@pp@neutr@l@se
    \n@to@pp@neutr@l@right%
    \n@to@pp@neutr@l@top%
    \n@to@pp@neutr@l@left%
  }
  \behindforegroundpath{%
    \n@to@pp@neutr@l@init%
    \n@to@pp@neutr@l@se
    \n@to@pp@neutr@l@right%
    \n@to@pp@neutr@l@top%
    \n@to@pp@neutr@l@left%
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c neutral land}{%
  \inheritsavedanchors[from=natoapp6c neutral air]
  \inheritanchor[from=natoapp6c neutral air]{north east}
  \inheritanchor[from=natoapp6c neutral air]{north west}
  \inheritanchor[from=natoapp6c neutral air]{south east}
  \inheritanchor[from=natoapp6c neutral air]{south west}
  \inheritanchor[from=natoapp6c neutral air]{north}
  \inheritanchor[from=natoapp6c neutral air]{west}
  \inheritanchor[from=natoapp6c neutral air]{east}
  \inheritanchor[from=natoapp6c neutral air]{south}
  \inheritanchor[from=natoapp6c neutral air]{upper}
  \inheritanchor[from=natoapp6c neutral air]{lower}
  \inheritanchor[from=natoapp6c neutral air]{left}
  \inheritanchor[from=natoapp6c neutral air]{right}
  \inheritanchor[from=natoapp6c neutral air]{center}
  \backgroundpath{%
    \n@to@pp@neutr@l@init%
    \n@to@pp@neutr@l@ne
    \n@to@pp@neutr@l@top%
    \n@to@pp@neutr@l@left%
    \n@to@pp@neutr@l@bottom%
    \pgfclosepath
  }
  \behindforegroundpath{%
    \n@to@pp@neutr@l@init%
    \n@to@pp@neutr@l@ne
    \n@to@pp@neutr@l@top%
    \n@to@pp@neutr@l@left%
    \n@to@pp@neutr@l@bottom%
    \pgfclosepath
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c neutral activity}{%
  \inheritsavedanchors[from=natoapp6c neutral land]
  \inheritanchor[from=natoapp6c neutral land]{center}
  \inheritanchor[from=natoapp6c neutral land]{inner north east}
  \inheritanchor[from=natoapp6c neutral land]{inner north west}
  \inheritanchor[from=natoapp6c neutral land]{inner south west}
  \inheritanchor[from=natoapp6c neutral land]{inner south east}
  \inheritanchor[from=natoapp6c neutral land]{north east}
  \inheritanchor[from=natoapp6c neutral land]{north west}
  \inheritanchor[from=natoapp6c neutral land]{south east}
  \inheritanchor[from=natoapp6c neutral land]{south west}
  \inheritanchor[from=natoapp6c neutral land]{north}
  \inheritanchor[from=natoapp6c neutral land]{west}
  \inheritanchor[from=natoapp6c neutral land]{east}
  \inheritanchor[from=natoapp6c neutral land]{south}
  \inheritanchor[from=natoapp6c neutral land]{upper}
  \inheritanchor[from=natoapp6c neutral land]{lower}
  \inheritanchor[from=natoapp6c neutral land]{left}
  \inheritanchor[from=natoapp6c neutral land]{right}
  \inheritanchor[from=natoapp6c neutral land]{center}
  \inheritbackgroundpath[from=natoapp6c neutral land]
  \behindforegroundpath{
    \begin{n@to@pp@stroketofill}
      \n@to@pp@neutr@l@init%
      \n@to@pp@neutr@l@ne
      \n@to@pp@neutr@l@top%
      \n@to@pp@neutr@l@left%
      \n@to@pp@neutr@l@bottom%
      \pgfclosepath
      \pgfusepath{stroke}
      %
      \northeast \wg@tmpa=\pgf@x\wg@tmpb\pgf@y%
      \wg@tmpc=\wg@tmpa\advance\wg@tmpc-\n@to@pp@act@w
      \wg@tmpd=\wg@tmpb\advance\wg@tmpd-\n@to@pp@act@w
      %
      \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpa}{\wg@tmpd}}%
      \pgfclosepath
      \pgfusepath{fill}%
      %
      \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpc}{-\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{\wg@tmpa}{-\wg@tmpb}}%
      \pgfclosepath
      \pgfusepath{fill}%
      %
      \pgfpathmoveto{\pgfqpoint{-\wg@tmpc}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpc}{\wg@tmpd}}%
      \pgfclosepath
      \pgfusepath{fill}%
      %
      \pgfpathmoveto{\pgfqpoint{-\wg@tmpc}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpd}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpc}{-\wg@tmpb}}%
      \pgfclosepath
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c neutral equipment}{%
  \inheritsavedanchors[from=natoapp6c neutral land]
  \inheritanchor[from=natoapp6c neutral land]{center}
  \inheritanchor[from=natoapp6c neutral land]{inner north east}
  \inheritanchor[from=natoapp6c neutral land]{inner north west}
  \inheritanchor[from=natoapp6c neutral land]{inner south west}
  \inheritanchor[from=natoapp6c neutral land]{inner south east}
  \inheritanchor[from=natoapp6c neutral land]{north east}
  \inheritanchor[from=natoapp6c neutral land]{north west}
  \inheritanchor[from=natoapp6c neutral land]{south east}
  \inheritanchor[from=natoapp6c neutral land]{south west}
  \inheritanchor[from=natoapp6c neutral land]{north}
  \inheritanchor[from=natoapp6c neutral land]{west}
  \inheritanchor[from=natoapp6c neutral land]{east}
  \inheritanchor[from=natoapp6c neutral land]{south}
  \inheritanchor[from=natoapp6c neutral land]{upper}
  \inheritanchor[from=natoapp6c neutral land]{lower}
  \inheritanchor[from=natoapp6c neutral land]{left}
  \inheritanchor[from=natoapp6c neutral land]{right}
  \inheritanchor[from=natoapp6c neutral land]{center}
  \inheritbackgroundpath[from=natoapp6c neutral land]
  \inheritbehindbackgroundpath[from=natoapp6c neutral land]
}
\pgfdeclareshape{natoapp6c neutral installation}{%
  \inheritsavedanchors[from=natoapp6c neutral land]
  \inheritanchor[from=natoapp6c neutral land]{center}
  \inheritanchor[from=natoapp6c neutral land]{inner north east}
  \inheritanchor[from=natoapp6c neutral land]{inner north west}
  \inheritanchor[from=natoapp6c neutral land]{inner south west}
  \inheritanchor[from=natoapp6c neutral land]{inner south east}
  \inheritanchor[from=natoapp6c neutral land]{north east}
  \inheritanchor[from=natoapp6c neutral land]{north west}
  \inheritanchor[from=natoapp6c neutral land]{south east}
  \inheritanchor[from=natoapp6c neutral land]{south west}
  \inheritanchor[from=natoapp6c neutral land]{north}
  \inheritanchor[from=natoapp6c neutral land]{west}
  \inheritanchor[from=natoapp6c neutral land]{east}
  \inheritanchor[from=natoapp6c neutral land]{south}
  \inheritanchor[from=natoapp6c neutral land]{upper}
  \inheritanchor[from=natoapp6c neutral land]{lower}
  \inheritanchor[from=natoapp6c neutral land]{left}
  \inheritanchor[from=natoapp6c neutral land]{right}
  \inheritanchor[from=natoapp6c neutral land]{center}
  \inheritbackgroundpath[from=natoapp6c neutral land]
  \behindforegroundpath{
    \begin{n@to@pp@stroketofill}
      \n@to@pp@neutr@l@init%
      \n@to@pp@neutr@l@ne
      \n@to@pp@neutr@l@top%
      \n@to@pp@neutr@l@left%
      \n@to@pp@neutr@l@bottom%
      \pgfclosepath
      \pgfusepath{stroke}
      %
      \northeast \wg@tmpa=\pgf@y%
      \wg@tmpb=\wg@tmpa\advance\wg@tmpb\n@to@pp@inst@h%
      %
      \pgfpathmoveto{\pgfqpoint{ \n@to@pp@inst@x}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@inst@x}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@inst@x}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{ \n@to@pp@inst@x}{\wg@tmpa}}%
      \pgfclosepath
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c neutral sea surface}{%
  \inheritsavedanchors[from=natoapp6c neutral equipment]
  \inheritanchor[from=natoapp6c neutral equipment]{inner north east}
  \inheritanchor[from=natoapp6c neutral equipment]{inner north west}
  \inheritanchor[from=natoapp6c neutral equipment]{inner south west}
  \inheritanchor[from=natoapp6c neutral equipment]{inner south east}
  \inheritanchor[from=natoapp6c neutral equipment]{north east}
  \inheritanchor[from=natoapp6c neutral equipment]{north west}
  \inheritanchor[from=natoapp6c neutral equipment]{south east}
  \inheritanchor[from=natoapp6c neutral equipment]{south west}
  \inheritanchor[from=natoapp6c neutral equipment]{north}
  \inheritanchor[from=natoapp6c neutral equipment]{west}
  \inheritanchor[from=natoapp6c neutral equipment]{east}
  \inheritanchor[from=natoapp6c neutral equipment]{south}
  \inheritanchor[from=natoapp6c neutral equipment]{upper}
  \inheritanchor[from=natoapp6c neutral equipment]{lower}
  \inheritanchor[from=natoapp6c neutral equipment]{left}
  \inheritanchor[from=natoapp6c neutral equipment]{right}
  \inheritanchor[from=natoapp6c neutral equipment]{center}
  \inheritbackgroundpath[from=natoapp6c neutral equipment]
  \inheritbehindforegroundpath[from=natoapp6c neutral equipment]
}
\pgfdeclareshape{natoapp6c neutral space}{%
  \inheritsavedanchors[from=natoapp6c neutral air]
  \inheritanchor[from=natoapp6c neutral air]{north east}
  \inheritanchor[from=natoapp6c neutral air]{north west}
  \inheritanchor[from=natoapp6c neutral air]{south east}
  \inheritanchor[from=natoapp6c neutral air]{south west}
  \inheritanchor[from=natoapp6c neutral air]{north}
  \inheritanchor[from=natoapp6c neutral air]{west}
  \inheritanchor[from=natoapp6c neutral air]{east}
  \inheritanchor[from=natoapp6c neutral air]{south}
  \inheritanchor[from=natoapp6c neutral air]{upper}
  \inheritanchor[from=natoapp6c neutral air]{lower}
  \inheritanchor[from=natoapp6c neutral air]{left}
  \inheritanchor[from=natoapp6c neutral air]{right}
  \inheritanchor[from=natoapp6c neutral air]{center}
  \inheritbackgroundpath[from=natoapp6c neutral air]
  \behindforegroundpath{%
    \begin{n@to@pp@stroketofill}
      \n@to@pp@neutr@l@init%
      \n@to@pp@neutr@l@se
      \n@to@pp@neutr@l@right%
      \n@to@pp@neutr@l@top%
      \n@to@pp@neutr@l@left%
      \pgfusepath{stroke}%
      %
      \n@to@pp@neutr@l@ne
      \n@to@pp@neutr@l@top%
      \northeast\wg@tmpa=\pgf@x\wg@tmpb=\pgf@y%
      \advance\wg@tmpb-\n@to@pp@space@h
      %
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{ \wg@tmpa}{\wg@tmpb}}%
      \pgfclosepath%
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c neutral sub surface}{%
  \inheritsavedanchors[from=natoapp6c neutral air]
  \inheritanchor[from=natoapp6c neutral air]{north east}
  \inheritanchor[from=natoapp6c neutral air]{north west}
  \inheritanchor[from=natoapp6c neutral air]{south east}
  \inheritanchor[from=natoapp6c neutral air]{south west}
  \inheritanchor[from=natoapp6c neutral air]{north}
  \inheritanchor[from=natoapp6c neutral air]{west}
  \inheritanchor[from=natoapp6c neutral air]{east}
  \inheritanchor[from=natoapp6c neutral air]{south}
  \inheritanchor[from=natoapp6c neutral air]{upper}
  \inheritanchor[from=natoapp6c neutral air]{lower}
  \inheritanchor[from=natoapp6c neutral air]{left}
  \inheritanchor[from=natoapp6c neutral air]{right}
  \inheritanchor[from=natoapp6c neutral air]{center}
  \backgroundpath{%
    \n@to@pp@neutr@l@init%
    \n@to@pp@neutr@l@nw
    \n@to@pp@neutr@l@left%
    \n@to@pp@neutr@l@bottom%
    \n@to@pp@neutr@l@right%
  }
  \behindforegroundpath{%
    \n@to@pp@neutr@l@init%
    \n@to@pp@neutr@l@nw
    \n@to@pp@neutr@l@left%
    \n@to@pp@neutr@l@bottom%
    \n@to@pp@neutr@l@right%
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c neutral dismounted}{%
  \inheritsavedanchors[from=natoapp6c neutral land]
  \inheritanchor[from=natoapp6c neutral land]{center}
  \inheritanchor[from=natoapp6c neutral land]{inner north east}
  \inheritanchor[from=natoapp6c neutral land]{inner north west}
  \inheritanchor[from=natoapp6c neutral land]{inner south west}
  \inheritanchor[from=natoapp6c neutral land]{inner south east}
  \inheritanchor[from=natoapp6c neutral land]{north east}
  \inheritanchor[from=natoapp6c neutral land]{north west}
  \inheritanchor[from=natoapp6c neutral land]{south east}
  \inheritanchor[from=natoapp6c neutral land]{south west}
  \inheritanchor[from=natoapp6c neutral land]{north}
  \inheritanchor[from=natoapp6c neutral land]{west}
  \inheritanchor[from=natoapp6c neutral land]{east}
  \inheritanchor[from=natoapp6c neutral land]{south}
  \inheritanchor[from=natoapp6c neutral land]{upper}
  \inheritanchor[from=natoapp6c neutral land]{lower}
  \inheritanchor[from=natoapp6c neutral land]{left}
  \inheritanchor[from=natoapp6c neutral land]{right}
  \inheritanchor[from=natoapp6c neutral land]{center}
  \inheritbackgroundpath[from=natoapp6c neutral land]
  \inheritbehindbackgroundpath[from=natoapp6c neutral land]
}
\def\n@to@pp@unknown@init{%
  \def\n@to@pp@unknown@top{%
    \innernortheast \wg@tmpa=\pgf@x%
    \cntrlnortheast \wg@tmpb=\pgf@x%
    \pgfpathcurveto{%
      \pgfqpoint{ \wg@tmpa}{\wg@tmpb}}{%
      \pgfqpoint{-\wg@tmpa}{\wg@tmpb}}{%
      \pgfqpoint{-\wg@tmpa}{\wg@tmpa}}}
  \def\n@to@pp@unknown@left{%
    \innernortheast \wg@tmpa=\pgf@x%
    \cntrlnortheast \wg@tmpb=\pgf@x%
    \pgfpathcurveto{%
      \pgfqpoint{-\wg@tmpb}{ \wg@tmpa}}{%
      \pgfqpoint{-\wg@tmpb}{-\wg@tmpa}}{%
      \pgfqpoint{-\wg@tmpa}{-\wg@tmpa}}}
  \def\n@to@pp@unknown@bottom{%
    \innernortheast \wg@tmpa=\pgf@x%
    \cntrlnortheast \wg@tmpb=\pgf@x%
    \pgfpathcurveto{%
      \pgfqpoint{-\wg@tmpa}{-\wg@tmpb}}{%
      \pgfqpoint{ \wg@tmpa}{-\wg@tmpb}}{%
      \pgfqpoint{ \wg@tmpa}{-\wg@tmpa}}}
  \def\n@to@pp@unknown@right{%
    \innernortheast \wg@tmpa=\pgf@x%
    \cntrlnortheast \wg@tmpb=\pgf@x%
    \pgfpathcurveto{%
      \pgfqpoint{ \wg@tmpb}{-\wg@tmpa}}{%
      \pgfqpoint{ \wg@tmpb}{ \wg@tmpa}}{%
      \pgfqpoint{ \wg@tmpa}{ \wg@tmpa}}}
}
\pgfdeclareshape{natoapp6c unknown land}{%
  \inheritsavedanchors[from=natoapp6c base]
  \savedanchor\innernortheast{\pgf@x=.7\n@to@pp@r\pgf@y=.7\n@to@pp@r}
  \savedanchor\cntrlnortheast{\pgf@x=1.6\n@to@pp@r\pgf@y=1.6\n@to@pp@r}
  \savedanchor\northeast{\pgf@x=1.4\n@to@pp@r\pgf@y=1.4\n@to@pp@r}
  \anchor{inner north east}{\innernortheast}
  \anchor{inner north west}{\innernortheast\pgf@x=-\pgf@x}
  \anchor{inner south west}{\innernortheast\pgf@x=-\pgf@x\pgf@y=-\pgf@y}
  \anchor{inner south east}{\innernortheast\pgf@y=-\pgf@y}
  \anchor{north east}{\northeast}
  \anchor{north west}{\northeast\pgf@x=-\pgf@x}
  \anchor{south west}{\northeast\pgf@x=-\pgf@x\pgf@y=-\pgf@y}
  \anchor{south east}{\northeast\pgf@y=-\pgf@y}
  \anchor{north}{\northeast\pgf@x=0cm}
  \anchor{east}{\northeast\pgf@y=0cm}
  \anchor{south}{\northeast\pgf@x=0cm\pgf@y=-\pgf@y}
  \anchor{west}{\northeast\pgf@x=-\pgf@x\pgf@y=0cm}
  \inheritanchor[from=natoapp6c base]{center}
  \inheritanchor[from=natoapp6c base]{upper}
  \inheritanchor[from=natoapp6c base]{lower}
  \inheritanchor[from=natoapp6c base]{left}
  \inheritanchor[from=natoapp6c base]{right}
  \backgroundpath{%
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%
    \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpa}}%
    \n@to@pp@unknown@right %
    \n@to@pp@unknown@top   %
    \n@to@pp@unknown@left  %
    \n@to@pp@unknown@bottom%
  }
  \behindforegroundpath{%
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%
    \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpa}}%
    \n@to@pp@unknown@right %
    \n@to@pp@unknown@top   %
    \n@to@pp@unknown@left  %
    \n@to@pp@unknown@bottom%
    \pgfusepath{stroke}}
}
\pgfdeclareshape{natoapp6c unknown air}{%
  \inheritsavedanchors[from=natoapp6c unknown land]
  \inheritanchor[from=natoapp6c unknown land]{inner north east}
  \inheritanchor[from=natoapp6c unknown land]{inner north west}
  \inheritanchor[from=natoapp6c unknown land]{inner south west}
  \inheritanchor[from=natoapp6c unknown land]{inner south east}
  \inheritanchor[from=natoapp6c unknown land]{north east}
  \inheritanchor[from=natoapp6c unknown land]{north west}
  \inheritanchor[from=natoapp6c unknown land]{north}
  \inheritanchor[from=natoapp6c unknown land]{west}
  \inheritanchor[from=natoapp6c unknown land]{east}
  \inheritanchor[from=natoapp6c unknown land]{upper}
  \inheritanchor[from=natoapp6c unknown land]{lower}
  \inheritanchor[from=natoapp6c unknown land]{left}
  \inheritanchor[from=natoapp6c unknown land]{right}
  \inheritanchor[from=natoapp6c unknown land]{center}
  \anchor{south}{\innernortheast\pgf@x=0cm\pgf@y=-\pgf@y}
  \anchor{south east}{
    \northeast\wg@tmpa=\pgf@x
    \innernortheast\pgf@y=-\pgf@y
    \pgf@x=\wg@tmpa}
  \anchor{south west}{
    \northeast\wg@tmpa=\pgf@x
    \innernortheast\pgf@y=-\pgf@y
    \pgf@x=-\wg@tmpa}
  \backgroundpath{%
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%
    \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpa}}%
    \n@to@pp@unknown@right %
    \n@to@pp@unknown@top   %
    \n@to@pp@unknown@left  %
    \ifn@to@pp@isclip
    \pgfpathlineto{\pgfqpoint{0cm}{-\radius}}
    \pgfpathclose
    \fi
  }
  \behindforegroundpath{%
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%
    \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpa}}%
    \n@to@pp@unknown@right %
    \n@to@pp@unknown@top   %
    \n@to@pp@unknown@left  %
    \pgfusepath{stroke}%
  }
}
\pgfdeclareshape{natoapp6c unknown activity}{%
  \inheritsavedanchors[from=natoapp6c unknown land]
  \inheritanchor[from=natoapp6c unknown land]{inner north east}
  \inheritanchor[from=natoapp6c unknown land]{inner north west}
  \inheritanchor[from=natoapp6c unknown land]{inner south west}
  \inheritanchor[from=natoapp6c unknown land]{inner south east}
  \inheritanchor[from=natoapp6c unknown land]{north east}
  \inheritanchor[from=natoapp6c unknown land]{north west}
  \inheritanchor[from=natoapp6c unknown land]{south east}
  \inheritanchor[from=natoapp6c unknown land]{south west}
  \inheritanchor[from=natoapp6c unknown land]{north}
  \inheritanchor[from=natoapp6c unknown land]{west}
  \inheritanchor[from=natoapp6c unknown land]{east}
  \inheritanchor[from=natoapp6c unknown land]{south}
  \inheritanchor[from=natoapp6c unknown land]{upper}
  \inheritanchor[from=natoapp6c unknown land]{lower}
  \inheritanchor[from=natoapp6c unknown land]{left}
  \inheritanchor[from=natoapp6c unknown land]{right}
  \inheritanchor[from=natoapp6c unknown land]{center}
  \inheritbackgroundpath[from=natoapp6c unknown land]
  \behindforegroundpath{
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%
    \begin{n@to@pp@stroketofill}
      \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpa}}%
      \n@to@pp@unknown@right %
      \n@to@pp@unknown@top   %
      \n@to@pp@unknown@left  %
      \n@to@pp@unknown@bottom%
      \pgfusepath{stroke,clip}
      %
      \northeast\wg@tmpa\pgf@x
      \advance\wg@tmpa0.005cm
      \wg@tmpb=\wg@tmpa
      \advance\wg@tmpb-\n@to@pp@act@w
      \wg@tmpc=\n@to@pp@act@w
      \divide\wg@tmpc2
      %
      \pgfpathmoveto{\pgfqpoint{ \wg@tmpc}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpc}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpc}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{ \wg@tmpc}{\wg@tmpb}}%
      \pgfclosepath%
      \pgfusepath{fill}
      %
      \pgfpathmoveto{\pgfqpoint{ \wg@tmpc}{-\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpc}{-\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpc}{-\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{ \wg@tmpc}{-\wg@tmpa}}%
      \pgfclosepath%
      \pgfusepath{fill}
      %
      \pgfpathmoveto{\pgfqpoint{ \wg@tmpa}{ \wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{ \wg@tmpb}{ \wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{ \wg@tmpb}{-\wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{ \wg@tmpa}{-\wg@tmpc}}%
      \pgfclosepath%
      \pgfusepath{fill}
      %
      \pgfpathmoveto{\pgfqpoint{-\wg@tmpb}{ \wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{ \wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{-\wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{-\wg@tmpb}{-\wg@tmpc}}%
      \pgfclosepath%
      \pgfusepath{fill}
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c unknown equipment}{%
  \inheritsavedanchors[from=natoapp6c unknown land]
  \inheritanchor[from=natoapp6c unknown land]{inner north east}
  \inheritanchor[from=natoapp6c unknown land]{inner north west}
  \inheritanchor[from=natoapp6c unknown land]{inner south west}
  \inheritanchor[from=natoapp6c unknown land]{inner south east}
  \inheritanchor[from=natoapp6c unknown land]{north east}
  \inheritanchor[from=natoapp6c unknown land]{north west}
  \inheritanchor[from=natoapp6c unknown land]{south east}
  \inheritanchor[from=natoapp6c unknown land]{south west}
  \inheritanchor[from=natoapp6c unknown land]{north}
  \inheritanchor[from=natoapp6c unknown land]{west}
  \inheritanchor[from=natoapp6c unknown land]{east}
  \inheritanchor[from=natoapp6c unknown land]{south}
  \inheritanchor[from=natoapp6c unknown land]{upper}
  \inheritanchor[from=natoapp6c unknown land]{lower}
  \inheritanchor[from=natoapp6c unknown land]{left}
  \inheritanchor[from=natoapp6c unknown land]{right}
  \inheritanchor[from=natoapp6c unknown land]{center}
  \inheritbackgroundpath[from=natoapp6c unknown land]
  \inheritbehindforegroundpath[from=natoapp6c unknown land]
}
\pgfdeclareshape{natoapp6c unknown installation}{%
  \inheritsavedanchors[from=natoapp6c unknown land]
  \inheritanchor[from=natoapp6c unknown land]{center}
  \inheritanchor[from=natoapp6c unknown land]{inner north east}
  \inheritanchor[from=natoapp6c unknown land]{inner north west}
  \inheritanchor[from=natoapp6c unknown land]{inner south west}
  \inheritanchor[from=natoapp6c unknown land]{inner south east}
  \inheritanchor[from=natoapp6c unknown land]{north east}
  \inheritanchor[from=natoapp6c unknown land]{north west}
  \inheritanchor[from=natoapp6c unknown land]{south east}
  \inheritanchor[from=natoapp6c unknown land]{south west}
  \inheritanchor[from=natoapp6c unknown land]{north}
  \inheritanchor[from=natoapp6c unknown land]{west}
  \inheritanchor[from=natoapp6c unknown land]{east}
  \inheritanchor[from=natoapp6c unknown land]{south}
  \inheritanchor[from=natoapp6c unknown land]{upper}
  \inheritanchor[from=natoapp6c unknown land]{lower}
  \inheritanchor[from=natoapp6c unknown land]{left}
  \inheritanchor[from=natoapp6c unknown land]{right}
  \inheritanchor[from=natoapp6c unknown land]{center}
  \inheritbackgroundpath[from=natoapp6c unknown land]
  \behindforegroundpath{
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%

    \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpa}}%
    \n@to@pp@unknown@right %
    \n@to@pp@unknown@top   %
    \n@to@pp@unknown@left  %
    \n@to@pp@unknown@bottom%
    \pgfusepath{stroke}
    %
    \begin{n@to@pp@stroketofill}
      \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{\wg@tmpa}}%
      \n@to@pp@unknown@top   %
      %
      \northeast\wg@tmpb=\pgf@y\wg@tmpc=\pgf@y%
      \advance\wg@tmpb\n@to@pp@inst@h%
      \advance\wg@tmpb-0.05cm%
      \advance\wg@tmpc-\n@to@pp@inst@h%
      \advance\wg@tmpc-\n@to@pp@inst@h%
      %
      \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{ \wg@tmpa}{\wg@tmpb}}%
      \pgfclosepath%
      \pgfusepath{clip}%
      %
      \pgfpathmoveto{\pgfqpoint{ \n@to@pp@inst@x}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@inst@x}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{-\n@to@pp@inst@x}{\wg@tmpc}}%
      \pgfpathlineto{\pgfqpoint{ \n@to@pp@inst@x}{\wg@tmpc}}%
      \pgfclosepath%
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c unknown sea surface}{%
  \inheritsavedanchors[from=natoapp6c unknown land]
  \inheritanchor[from=natoapp6c unknown land]{inner north east}
  \inheritanchor[from=natoapp6c unknown land]{inner north west}
  \inheritanchor[from=natoapp6c unknown land]{inner south west}
  \inheritanchor[from=natoapp6c unknown land]{inner south east}
  \inheritanchor[from=natoapp6c unknown land]{north east}
  \inheritanchor[from=natoapp6c unknown land]{north west}
  \inheritanchor[from=natoapp6c unknown land]{south east}
  \inheritanchor[from=natoapp6c unknown land]{south west}
  \inheritanchor[from=natoapp6c unknown land]{north}
  \inheritanchor[from=natoapp6c unknown land]{west}
  \inheritanchor[from=natoapp6c unknown land]{east}
  \inheritanchor[from=natoapp6c unknown land]{south}
  \inheritanchor[from=natoapp6c unknown land]{upper}
  \inheritanchor[from=natoapp6c unknown land]{lower}
  \inheritanchor[from=natoapp6c unknown land]{left}
  \inheritanchor[from=natoapp6c unknown land]{right}
  \inheritanchor[from=natoapp6c unknown land]{center}
  \inheritbackgroundpath[from=natoapp6c unknown land]
  \inheritbehindforegroundpath[from=natoapp6c unknown land]
}
\pgfdeclareshape{natoapp6c unknown space}{%
  \inheritsavedanchors[from=natoapp6c unknown air]
  \inheritanchor[from=natoapp6c unknown air]{inner north east}
  \inheritanchor[from=natoapp6c unknown air]{inner north west}
  \inheritanchor[from=natoapp6c unknown air]{inner south west}
  \inheritanchor[from=natoapp6c unknown air]{inner south east}
  \inheritanchor[from=natoapp6c unknown air]{north east}
  \inheritanchor[from=natoapp6c unknown air]{north west}
  \inheritanchor[from=natoapp6c unknown air]{south east}
  \inheritanchor[from=natoapp6c unknown air]{south west}
  \inheritanchor[from=natoapp6c unknown air]{north}
  \inheritanchor[from=natoapp6c unknown air]{west}
  \inheritanchor[from=natoapp6c unknown air]{east}
  \inheritanchor[from=natoapp6c unknown air]{south}
  \inheritanchor[from=natoapp6c unknown air]{upper}
  \inheritanchor[from=natoapp6c unknown air]{lower}
  \inheritanchor[from=natoapp6c unknown air]{left}
  \inheritanchor[from=natoapp6c unknown air]{right}
  \inheritanchor[from=natoapp6c unknown air]{center}
  \inheritbackgroundpath[from=natoapp6c unknown air]
  \behindforegroundpath{%
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%
    \begin{n@to@pp@stroketofill}
      \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{-\wg@tmpa}}%
      \n@to@pp@unknown@right %
      \n@to@pp@unknown@top   %
      \n@to@pp@unknown@left  %
      \pgfusepath{stroke,clip}%
      %
      \northeast\wg@tmpa=\pgf@y\wg@tmpb=\pgf@y
      \advance\wg@tmpb-\n@to@pp@space@h
      %
      \pgfpathmoveto{\pgfqpoint{ \radius}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\radius}{\wg@tmpa}}%
      \pgfpathlineto{\pgfqpoint{-\radius}{\wg@tmpb}}%
      \pgfpathlineto{\pgfqpoint{ \radius}{\wg@tmpb}}%
      \pgfclosepath%
      \pgfusepath{fill}%
    \end{n@to@pp@stroketofill}
  }
}
\pgfdeclareshape{natoapp6c unknown sub surface}{%
  \inheritsavedanchors[from=natoapp6c unknown land]
  \inheritanchor[from=natoapp6c unknown land]{inner north east}
  \inheritanchor[from=natoapp6c unknown land]{inner north west}
  \inheritanchor[from=natoapp6c unknown land]{inner south west}
  \inheritanchor[from=natoapp6c unknown land]{inner south east}
  \inheritanchor[from=natoapp6c unknown land]{south east}
  \inheritanchor[from=natoapp6c unknown land]{south west}
  \inheritanchor[from=natoapp6c unknown land]{south}
  \inheritanchor[from=natoapp6c unknown land]{west}
  \inheritanchor[from=natoapp6c unknown land]{east}
  \inheritanchor[from=natoapp6c unknown land]{upper}
  \inheritanchor[from=natoapp6c unknown land]{lower}
  \inheritanchor[from=natoapp6c unknown land]{left}
  \inheritanchor[from=natoapp6c unknown land]{right}
  \inheritanchor[from=natoapp6c unknown land]{center}
  \anchor{north}{\innernortheast\pgf@x=0cm}
  \anchor{north east}{
    \northeast\wg@tmpa=\pgf@x
    \innernortheast\pgf@y=\pgf@y
    \pgf@x=\wg@tmpa}
  \anchor{north west}{
    \northeast\wg@tmpa=\pgf@x
    \innernortheast\pgf@y=\pgf@y
    \pgf@x=-\wg@tmpa}
  \backgroundpath{%
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%
    \pgfpathmoveto{\pgfqpoint{-\wg@tmpa}{\wg@tmpa}}%
    \n@to@pp@unknown@left %
    \n@to@pp@unknown@bottom   %
    \n@to@pp@unknown@right  %
    \ifn@to@pp@isclip
    \pgfpathlineto{\pgfqpoint{0cm}{\radius}}
    \pgfpathclose
    \fi
  }
  \behindforegroundpath{%
    \n@to@pp@unknown@init
    \innernortheast \wg@tmpa=\pgf@x%
    \pgfpathmoveto{\pgfqpoint{-\wg@tmpa}{\wg@tmpa}}%
    \n@to@pp@unknown@left %
    \n@to@pp@unknown@bottom   %
    \n@to@pp@unknown@right  %
    \pgfusepath{stroke}}
}
\pgfdeclareshape{natoapp6c unknown dismounted}{%
  \inheritsavedanchors[from=natoapp6c unknown land]
  \inheritanchor[from=natoapp6c unknown land]{inner north east}
  \inheritanchor[from=natoapp6c unknown land]{inner north west}
  \inheritanchor[from=natoapp6c unknown land]{inner south west}
  \inheritanchor[from=natoapp6c unknown land]{inner south east}
  \inheritanchor[from=natoapp6c unknown land]{north east}
  \inheritanchor[from=natoapp6c unknown land]{north west}
  \inheritanchor[from=natoapp6c unknown land]{south east}
  \inheritanchor[from=natoapp6c unknown land]{south west}
  \inheritanchor[from=natoapp6c unknown land]{north}
  \inheritanchor[from=natoapp6c unknown land]{west}
  \inheritanchor[from=natoapp6c unknown land]{east}
  \inheritanchor[from=natoapp6c unknown land]{south}
  \inheritanchor[from=natoapp6c unknown land]{upper}
  \inheritanchor[from=natoapp6c unknown land]{lower}
  \inheritanchor[from=natoapp6c unknown land]{left}
  \inheritanchor[from=natoapp6c unknown land]{right}
  \inheritanchor[from=natoapp6c unknown land]{center}
  \inheritbackgroundpath[from=natoapp6c unknown land]
  \inheritbehindforegroundpath[from=natoapp6c unknown land]
}
\def\n@to@pp@e@y{.12}
\def\n@to@pp@e@yy{.24}
\def\n@to@pp@e@d#1{($(#1*\n@to@pp@e@y,0)$) circle(0.09)}
\def\n@to@pp@e@b#1{%
  ($(#1*\n@to@pp@e@y,-\n@to@pp@e@y)$) -- ($(#1*\n@to@pp@e@y,\n@to@pp@e@y)$)}
\def\n@to@pp@e@x#1{%
  ($(-\n@to@pp@e@y,-\n@to@pp@e@y)+(#1*\n@to@pp@e@y,0)$)--
  ++(\n@to@pp@e@yy,\n@to@pp@e@yy)
  ($(-\n@to@pp@e@y, \n@to@pp@e@y)+(#1*\n@to@pp@e@y,0)$)--
  ++(\n@to@pp@e@yy,-\n@to@pp@e@yy)}
\tikzset{
  pics/natoapp6c/s/echelon/.is choice,
  pics/natoapp6c/s/echelon/squad/.style={code={
      \path[draw,fill=pgfstrokecolor,pic actions]
      \foreach \o in {0}{\n@to@pp@e@d{\o}};}},
  pics/natoapp6c/s/echelon/section/.style={code={
      \path[draw,fill=pgfstrokecolor,pic actions]
      \foreach \o in {-1,1}{\n@to@pp@e@d{\o}};}},
  pics/natoapp6c/s/echelon/platoon/.style={code={
      \path[draw,fill=pgfstrokecolor,pic actions]
      \foreach \o in {-2,0,2}{\n@to@pp@e@d{\o}};}},
  pics/natoapp6c/s/echelon/company/.style={code={
      \path[draw,pic actions]
      \foreach \o in {0}{\n@to@pp@e@b{\o}};}},
  pics/natoapp6c/s/echelon/battalion/.style={code={
      \path[draw,pic actions]
      \foreach \o in {-1,1}{\n@to@pp@e@b{\o}};}},
  pics/natoapp6c/s/echelon/regiment/.style={code={
      \path[draw,pic actions]
      \foreach \o in {-2,0,2}{\n@to@pp@e@b{\o}};}},
  pics/natoapp6c/s/echelon/brigade/.style={code={
      \path[draw,pic actions]
      \foreach \o in {0}{\n@to@pp@e@x{\o}};}},
  pics/natoapp6c/s/echelon/division/.style={code={
      \path[draw,pic actions]
      \foreach \o in {-1,1}{\n@to@pp@e@x{\o}};}},
  pics/natoapp6c/s/echelon/corps/.style={code={
      \path[draw,pic actions]
      \foreach \o in {-2,0,2}{\n@to@pp@e@x{\o}};}},
  pics/natoapp6c/s/echelon/army/.style={code={
      \path[draw,pic actions]
      \foreach \o in {-3,-1,1,3}{\n@to@pp@e@x{\o}};}},
  pics/natoapp6c/s/echelon/army group/.style={code={
      \path[draw,pic actions]
      \foreach \o in {-4,-2,0,2,4}{\n@to@pp@e@x{\o}};}},
  pics/natoapp6c/s/echelon/theatre/.style={code={
      \path[draw,pic actions]
      \foreach \o in {-5,-3,-1,1,3,5}{\n@to@pp@e@x{\o}};}},
  pics/natoapp6c/s/echelon/command/.style={code={
      \path[draw,pic actions]
      (-.3,-.1) -- (-.3,.1) (-.4,  0) -- (-.2, 0)
      ( .3,-.1) -- ( .3,.1) ( .4,  0) -- ( .2, 0);}},
  pics/natoapp6c/s/echelon/dummy/.style={code={%
      \path[draw,pic actions] (M.north west) rectangle
      ($(M.north east)+(0,.1)$);}},
}
\newcommand\n@to@ppfont[2][b]{%
  \fontencoding{T1}\fontfamily{qhv}\fontseries{#1}\fontsize{#2}{0}\selectfont}
\tikzset{%
  natoapp6c/text/.style={%
    shape=rectangle,%
    draw=none,%
    fill=none,%
    transform shape,%
    anchor=center},
  natoapp6c/normal text/.style={font=\n@to@ppfont{12}},
  natoapp6c/squashed text/.style={font=\n@to@ppfont[bc]{12}},
  natoapp6c/small text/.style={font=\n@to@ppfont{10}},
  natoapp6c/squashed small text/.style={font=\n@to@ppfont[bc]{10}},
}
\newcommand\n@to@pp@text@normal[2][]  {%
  \node[natoapp6c/text,natoapp6c/normal text,#1]{#2}}
\newcommand\n@to@pp@text@squashed[2][]{%
  \node[natoapp6c/text,natoapp6c/squashed text,#1]{#2}}
\newcommand\n@to@pp@text@small[2][]   {%
  \node[natoapp6c/text,natoapp6c/small text,#1]{#2}}
\newcommand\n@to@pp@text@smallsquashed[2][]{%
  \node[natoapp6c/text,natoapp6c/squashed small text,#1]{#2}}
\def\natoapp@report{}
\tikzset{
  /natoapp6c/.search also={/tikz},
  /natoapp6c/.cd,
}
\tikzset{
  /natoapp6c/.cd,
  id/.store in=\natoapp@id,
  fac/.store in=\natoapp@fac,
  cmd/.store in=\natoapp@cmd,
  ech/.store in=\natoapp@ech,
  path/.store in=\n@to@ppp@th
}
\tikzset{
  /natoapp6c/.cd,
  faction/.is choice,
  faction/none/.code={\let\natoapp@fac\@undefined},
  faction/friendly/.style={fac=friendly},
  faction/friend/.style={fac=friendly},
  faction/hostile/.style={fac=hostile},
  faction/enemy/.style={fac=hostile},
  faction/neutral/.style={fac=neutral},
  faction/unknown/.style={fac=unknown},
  faction/?/.style={fac=unknown},
  faction/.initial=friendly,
}
\tikzset{
  /natoapp6c/.cd,
  command/.is choice,
  command/base/.style={cmd=base},
  command/activity/.style={cmd=activity},
  command/air/.style={cmd=air},
  command/missile/.style={cmd=air},
  command/equipment/.style={cmd=equipment},
  command/installation/.style={cmd=installation},
  command/land/.style={cmd=land},
  command/sea surface/.style={cmd=sea surface},
  command/space/.style={cmd=space},
  command/sub surface/.style={cmd=sub surface},
  command/sea mine/.style={cmd=sub surface},
  command/dismounted/.style={cmd=dismounted},
  command/none/.style={cmd=none},
}
\tikzset{
  /natoapp6c/.cd,
  echelon/.is choice,
  echelon/none/.style={ech=},
  echelon/team/.style={ech=},
  echelon/squad/.style={ech=squad},
  echelon/section/.style={ech=section},
  echelon/platoon/.style={ech=platoon},
  echelon/company/.style={ech=company},
  echelon/battalion/.style={ech=battalion},
  echelon/regiment/.style={ech=regiment},
  echelon/brigade/.style={ech=brigade},
  echelon/division/.style={ech=division},
  echelon/corps/.style={ech=corps},
  echelon/army/.style={ech=army},
  echelon/army group/.style={ech=army group},
  echelon/theatre/.style={ech=theatre},
  echelon/command/.style={ech=command},
  echelon/dummy/.style={ech=dummy},
}
\newif\ifnatoapp@decoy\natoapp@decoyfalse
\tikzset{
  /natoapp6c/.cd,
  main/.store in=\natoapp@main,   main/.initial=,%
  left/.store in=\natoapp@left,   left/.initial=,%
  right/.store in=\natoapp@right, right/.initial=,%
  upper/.store in=\natoapp@upper, upper/.initial=,%
  lower/.store in=\natoapp@lower, lower/.initial=,%
  top/.store in=\natoapp@upper,%
  bottom/.store in=\natoapp@lower,%
  below/.store in=\natoapp@below, below/.initial=,%
  frame/.store in=\natoapp@frame, frame/.initial=,%
  decoy/.is if=natoapp@decoy,%
}
\tikzset{
  natoapp6c/parts/.style={
    scale line widths,
    draw,
    shape=rectangle,
    transform shape},
  natoapp6c/main/.style={natoapp6c/parts},
  natoapp6c/modifiers/.style={natoapp6c/parts,scale=.6},
  natoapp6c/lower/.style={natoapp6c/parts},
  natoapp6c/upper/.style={natoapp6c/parts},
  natoapp6c/left/.style={natoapp6c/parts},
  natoapp6c/right/.style={natoapp6c/parts},
  natoapp6c/echelon/.style={natoapp6c/parts},
  natoapp6c/below/.style={natoapp6c/parts}
}
\tikzset{%
  natoapp6c/.code={%
    \pgfkeys{/tikz/transform shape,/tikz/shape=natoapp6c}
    \pgfkeys{/natoapp6c/.cd,path=natoapp6c/s/,#1}}}
\newcounter{natoappid}\setcounter{natoappid}{0}
\newif\ifn@to@pp@below\n@to@pp@belowfalse%
\newif\ifn@to@pp@mod\n@to@pp@modfalse%
\pgfdeclareshape{natoapp6c}{%
  \savedanchor\center{\pgf@x=0cm\pgf@y=0cm}
  \savedmacro\id{%
    \n@to@pp@dbg{3}{NATO App6(c) id (set): \meaning\natoapp@id}
    \@ifundefined{natoapp@id}{\let\natoapp@id\pgfutil@empty}{}%
    \ifx\natoapp@id\pgfutil@empty\relax%
      \wg@r@ndom@id%
      \edef\id{natoapp6c\wg@uuid}%
    \else%
      \edef\id{\natoapp@id}%
    \fi%
    \n@to@pp@dbg{3}{NATO App6(c) id: \meaning\id}}
  \savedmacro\frameshape{%
    \let\frameshape\pgfutil@empty%
    \@ifundefined{natoapp@cmd}{\def\frameshape{base}}{%
      \edef\frameshape{\natoapp@cmd}
      \@ifundefined{natoapp@fac}{\def\frameshape{base}}{%
        \edef\frameshape{\natoapp@fac\space\frameshape}}}
    \n@to@pp@dbg{3}{NATO App6(c) frame shape: \meaning\frameshape}}
  \savedmacro\frameopt{%
    \let\frameopt\pgfutil@empty%
    \@ifundefined{natoapp@frame}{}{%
      \edef\frameopt{\natoapp@frame}}
    \n@to@pp@dbg{3}{NATO App6(c) Frame options: \meaning\frameopt}%
  }
  \savedmacro\thisname{\def\thisname{natoapp6c}}
  \anchor{center}    {\center}
  \anchor{north east}{\wg@sub@nchor{M\id}{north east}}
  \anchor{north west}{\wg@sub@nchor{M\id}{north west}}
  \anchor{south east}{\wg@sub@nchor{M\id}{south east}}
  \anchor{south west}{\wg@sub@nchor{M\id}{south west}}
  \anchor{north}     {\wg@sub@nchor{M\id}{north}}
  \anchor{west}      {\wg@sub@nchor{M\id}{west}}
  \anchor{south}     {\wg@sub@nchor{M\id}{south}}
  \anchor{east}      {\wg@sub@nchor{M\id}{east}}
  \anchor{upper}     {\wg@sub@nchor{M\id}{upper}}
  \anchor{lower}     {\wg@sub@nchor{M\id}{lower}}
  \anchor{left}      {\wg@sub@nchor{M\id}{left}}
  \anchor{right}     {\wg@sub@nchor{M\id}{right}}
  \anchor{echelon}   {%
    \wg@sub@nchor{M}{north}%
    \wg@tmpa\pgflinewidth% by 1.5%
    %\wg@getscale%
    %\pgfmathparse{ifthenelse(\wg@scale>0.00001,\wg@tmpa/\wg@scale,\wg@tmpa)}
    %\edef\wg@a{\pgfmathresult}\pgfmathsetlength{\wg@tmpa}{\wg@a pt}
    %\n@to@pp@dbg{0}{Scale is `\wg@scale' -> `\the\wg@tmpa'}%
    %\divide\wg@tmpa by \wg@scale%
    \advance\wg@tmpa by\n@to@pp@e@y cm%
    \advance\pgf@y\wg@tmpa%
  }
  \anchor{below}     {%
    \n@to@pp@dbg{3}{NATO App6(c) get below anchor}%
    \wg@sub@nchor{M}{south}%
    \wg@tmpa=\n@to@pp@e@yy cm%
    \advance\wg@tmpa-\pgflinewidth% by 1.5%
    \advance\pgf@y-\wg@tmpa%
  }
  \behindbackgroundpath{%
    \wg@ignore@sub@nchortrue%
    \n@to@pp@dbg{3}{NATO App6(c) Before print}
    \n@to@pp@dbg{3}{NATO App6(c) background path: \meaning\id
      ^^J  ID:      \meaning\natoapp@id
      ^^J  Faction: \meaning\natoapp@fac
      ^^J  Command: \meaning\natoapp@cmd
      ^^J  Echelon: \meaning\natoapp@ech
      ^^J  Main:    \meaning\natoapp@main
      ^^J  Left:    \meaning\natoapp@left
      ^^J  Right:   \meaning\natoapp@right
      ^^J  Upper:   \meaning\natoapp@upper
      ^^J  Lower:   \meaning\natoapp@lower
      ^^J  Below:   \meaning\natoapp@below
      ^^J  Shape:   \meaning\frameshape
      ^^J  Options: \meaning\frameopt}
    \natoapp@report
    \n@to@pp@modfalse
    \n@to@pp@belowfalse
    \ifx\frameshape\pgfutil@empty%
    \n@to@pp@dbg{2}{NATO App6(c) has no frame!}
    \else
    \begin{scope}
      \pgfinterruptboundingbox
      %% Clip to shape in scope
      %% \message{^^JClipping to NATO App6(c) shape}
      \n@to@pp@iscliptrue%
      \n@to@pp@dbg{1}{NATO App6(c) frame node M (clip)}
      \pgfnode{natoapp6c \frameshape}{center}{}{M}{\pgfusepath{clip}}
      \n@to@pp@isclipfalse%
      %% Start new scope including frame key options
      \edef\tmp@opt{[\frameopt]}
      \expandafter\scope\tmp@opt
      % Get fill color {possibly from frame key}
      \expandafter\let\expandafter\tmp@fill%
      \csname\string\color@pgffillcolor\endcsname%
      % Check if we need to fill shape (fill colour us not \relax)
      \ifx\tmp@fill\relax\else%
      \n@to@pp@dbg{2}{NATO App6(c) frame fill}
      \pgfnode{natoapp6c \frameshape}{center}{}{}{\pgfusepath{fill}}%
      \fi%
      % End the fill scope
      \endscope%
      % Render mains
      \@ifundefined{natoapp@main}{}{
        \n@to@pp@dbg{1}{NATO App6(c) mains: \meaning\natoapp@main}
        \begin{scope}[natoapp6c/main]
          \n@to@pp@dbg{1}{NATO symbol path `\n@to@ppp@th'}
          \wg@pic@all{\natoapp@main}{\n@to@ppp@th}{M.center}{natoapp6c/main}%
        \end{scope}}%
      % Modififiers flagged
      \n@to@pp@modtrue
      \n@to@pp@dbg{2}{NATO App6(c) modifiers}
      % Render lowers
      \@ifundefined{natoapp@lower}{}{%
        \begin{scope}%
          \wg@pic@all{\natoapp@lower}{natoapp6c/s/}{M.lower}{%
            natoapp6c/modifiers,natoapp6c/lower}%
        \end{scope}}%
      % Render uppers
      \@ifundefined{natoapp@upper}{}{%
        \begin{scope}[]
          \wg@pic@all{\natoapp@upper}{natoapp6c/s/}{M.upper}{%
            natoapp6c/modifiers,natoapp6c/upper}%
        \end{scope}}%
      % Render lefts
      \@ifundefined{natoapp@left}{}{%
        \begin{scope}[]
          \wg@pic@all{\natoapp@left}{natoapp6c/s/}{M.left}{%
            natoapp6c/modifiers,natoapp6c/left}%
        \end{scope}}%
      % Render rights
      \@ifundefined{natoapp@right}{}{%
        \begin{scope}[]
          \wg@pic@all{\natoapp@right}{natoapp6c/s/}{M.right}{%
            natoapp6c/modifiers,natoapp6c/right}%
        \end{scope}}%
      % Modififiers end
      \n@to@pp@modfalse%
      \endpgfinterruptboundingbox
    \end{scope}%
    \fi%
    \wg@ignore@sub@nchorfalse%
  }
  \behindforegroundpath{%
    \wg@ignore@sub@nchortrue%
    \n@to@pp@dbg{2}{NATO App6(c) foreground path: `\meaning\id'
      ^^J  Echelon: \meaning\natoapp@ech
      ^^J  Symbol:  \meaning\frameshape
      ^^J  Below:   \meaning\natoapp@below
      ^^J  Frame:   \meaning\frameopt}
    %
    %
    \ifx\frameshape\pgfutil@empty%
      \n@to@pp@dbg{2}{NATO App6(c) has no frame shape!}%
    \else%
      \edef\tmp@opt{[\frameopt]}
      \expandafter\scope\tmp@opt
      \edef\mid{M\id{}}
      \n@to@pp@dbg{1}{NATO App6(c) inner node `M\id' ===}
      \pgfnode{natoapp6c \frameshape}{center}{}{M\id}{\pgfusepath{stroke}}
      \wg@ignore@sub@nchorfalse%
    % Put in the echelon
      \n@to@pp@dbg{2}{Echelon}
      \@ifundefined{natoapp@ech}{}{%
        \ifx\natoapp@ech\pgfutil@empty\else%
          \def\args{echelon=\natoapp@ech}
          \n@to@pp@dbg{3}{Make the echelon}%
          \wg@nchor{\thisname}{echelon}%
          \expandafter\wg@pic\args\@endwg@pic%
          {natoapp6c/s/}{\pgf@x,\pgf@y}{natoapp6c/echelon}
        \fi%
      }
      % Put in stuff below main
      \n@to@pp@dbg{2}{Below}
      \@ifundefined{natoapp@below}{}{%
        \n@to@pp@belowtrue
        \begin{scope}
          \n@to@pp@dbg{3}{Make below}%
          \wg@nchor{\thisname}{below}%
          \wg@pic@all{\natoapp@below}{natoapp6c/s/}{\pgf@x,\pgf@y}{%
            natoapp6c/below}%
        \end{scope}%
        \n@to@pp@belowfalse}
      \n@to@pp@dbg{2}{Decoy}
      \ifnatoapp@decoy%
        \scope[dash pattern=on 3\pgflinewidth off 2\pgflinewidth]%
        \n@to@pp@dbg{1}{Drawing decoy modifier}%
        \wg@sub@nchor{M\id}{north east}
        \wg@tmpa=\pgf@x%
        \wg@tmpb=\pgf@y%
        \pgfpathmoveto{\pgfqpoint{\wg@tmpa}{\wg@tmpb}}%
        \wg@tmpc=\n@to@pp@e@yy cm%
        \advance\wg@tmpc\n@to@pp@e@yy cm%
        \advance\wg@tmpc\wg@tmpb%
        \pgfpathlineto{\pgfqpoint{0cm}{\wg@tmpc}}%
        \pgfpathlineto{\pgfqpoint{-\wg@tmpa}{\wg@tmpb}}%
        \pgfusepath{stroke}%
        \endscope%
      \fi%
      \endscope%
    \fi%
    \wg@ignore@sub@nchorfalse%
  }
}
\newcommand\natoapp[1][]{%
  \n@to@pp@dbg{2}{NATO App6(c) macro -> `#1'}
  \tikzset{/natoapp6c/.cd,faction=friendly,command=land}%
  \@ifnextchar({\n@toapp{#1}}{\n@toapp{#1}(0,0)}%)
}
\def\n@toapp#1(#2){%
  \n@to@pp@dbg{2}{NATO App6(c) second macro -> `#1', `#2'}
  \@ifnextchar({\n@to@pp{#1}{#2}}{\n@to@pp{#1}{#2}()}%)
}
\def\n@to@pp#1#2(#3){%
  \node[draw,transform shape,natoapp6c={#1}] (#3) at (#2) {};%
  \@ifnextchar;{\@gobble}{}}
\tikzset{
  kriegspiel symbol/.code={
    \pgfkeys{%
      /tikz/transform shape,%
      /tikz/shape=kriegspiel symbol}
    \n@to@pp@dbg{10}{Args for symbol `#1'}
    \pgfkeys{/natoapp6c/.cd,%
      path=kriegspiel/s/,%
      #1}
  }
}
\pgfdeclareshape{kriegspiel symbol}{
  \inheritsavedanchors[from=natoapp6c]
  \savedmacro\frameshape{%
    \def\frameshape{kriegspiel}}
  \inheritanchor[from=natoapp6c]{center}
  \inheritanchor[from=natoapp6c]{north east}
  \inheritanchor[from=natoapp6c]{north west}
  \inheritanchor[from=natoapp6c]{south east}
  \inheritanchor[from=natoapp6c]{south west}
  \inheritanchor[from=natoapp6c]{north}
  \inheritanchor[from=natoapp6c]{west}
  \inheritanchor[from=natoapp6c]{south}
  \inheritanchor[from=natoapp6c]{east}
  \inheritanchor[from=natoapp6c]{upper}
  \inheritanchor[from=natoapp6c]{lower}
  \inheritanchor[from=natoapp6c]{left}
  \inheritanchor[from=natoapp6c]{right}
  \anchor{echelon}   {%
    \wg@sub@nchor{M\id}{north west}%
    \wg@tmpa=\n@to@pp@e@y cm%
    \divide\wg@tmpa by 2%
    \advance\pgf@y\wg@tmpa%
  }%
  \inheritbackgroundpath[from=natoapp6c]
  \inheritbehindforegroundpath[from=natoapp6c]
  \inheritbehindbackgroundpath[from=natoapp6c]
  \savedmacro\thisname{\def\thisname{kriegspiel symbol}}
}
\pgfdeclareshape{natoapp6c kriegspiel}{
  \inheritsavedanchors[from=rectangle]
  \inheritbackgroundpath[from=rectangle]
  \savedanchor\northeast{\pgf@x=1.4cm\pgf@y=.3125cm}
  \savedanchor\southwest{\pgf@x=-1.4cm\pgf@y=-.3125cm}
  \inheritanchor[from=rectangle]{center}
  \inheritanchor[from=rectangle]{north east}
  \inheritanchor[from=rectangle]{north west}
  \inheritanchor[from=rectangle]{south east}
  \inheritanchor[from=rectangle]{south west}
  \inheritanchor[from=rectangle]{north}
  \inheritanchor[from=rectangle]{west}
  \inheritanchor[from=rectangle]{south}
  \inheritanchor[from=rectangle]{east}
  \backgroundpath{}
}
\tikzset{
  ks debug frame/.style={
    draw=none,
    %draw=magenta,
    %dashed,
  },
  kriegspiel/s/infantry/.pic={
    \coordinate(a) at (M.south west);
    \coordinate(b) at ($(M.north east)+(0,-.2)$);
    \@ifundefinedcolor{pgffillcolor}{}{
      \path[fill=pgffillcolor](a)rectangle(b);}
    \path[pic actions,fill=none](a)rectangle(b);
    \path[pic actions,fill=none](a)--(b);
    \path[pic actions,fill=none] let
    \p1=(a),\p2=(b) in (\x2,\y1)--(\x1,\y2);
    \path[fill=pgfstrokecolor] let
    \p2=(b) in (-.05,\y2)rectangle++(.1,.2);
    \draw[ks debug frame](M.south west)rectangle(M.north east);
  },
  kriegspiel/s/reconnaissance/.pic={
    \coordinate(a) at (M.south west);
    \coordinate(b) at ($(M.north east)+(0,-.2)$);
    \@ifundefinedcolor{pgffillcolor}{}{
      \path[fill=pgffillcolor](a)rectangle(b);}
    \path[pic actions,fill=none](a)rectangle(b);
    \path[fill=pgfstrokecolor] (a)--(b)--(a|-b)--cycle;
    \path[fill=pgfstrokecolor] let
    \p2=(b) in
    (-.05,\y2)--++(0,.2)--++(-10:.4)--++(-170:.3)--(.05,\y2)--cycle;
    \draw[ks debug frame](M.south west)rectangle(M.north east);
  },
  kriegspiel/s/artillery/.pic={
    \coordinate(a) at (M.south west);
    \coordinate(b) at ($(M.north east)+(0,-.5)$);
    \@ifundefinedcolor{pgffillcolor}{}{
      \path[fill=pgffillcolor](a)rectangle(b);}
    \path[pic actions,fill=none](a)rectangle(b);
    \foreach \s in {-.8,0,.8}{
      \path[fill=pgfstrokecolor] let
      \p2=(b),%
      \n1={\y2+\pgflinewidth} in
      (\s-.04,\y2)rectangle++( .08,.5)
      ($(\s-.18,\n1)+(0,.05)$)rectangle++( .08,.2)
      ($(\s+.18,\n1)+(0,.05)$)rectangle++(-.08,.2);
    }
    \draw[ks debug frame](M.south west)rectangle(M.north east);
  },
  kriegspiel/s/reconnaissance artillery/.pic={
    \coordinate(a) at (M.south west);
    \coordinate(b) at ($(M.north east)+(0,-.5)$);
    \@ifundefinedcolor{pgffillcolor}{}{
      \path[fill=pgffillcolor](a)rectangle(b);}
    \path[pic actions,fill=none](a)rectangle(b);
    \path[fill=pgfstrokecolor] (a)--(b)--(a|-b)--cycle;
    \foreach \s in {-.8,0,.8}{
      \path[fill=pgfstrokecolor] let
      \p2=(b),%
      \n1={\y2+\pgflinewidth} in
      (\s-.04,\y2)rectangle++( .08,.5)
      ($(\s-.18,\n1)+(0,.05)$)rectangle++( .08,.2)
      ($(\s+.18,\n1)+(0,.05)$)rectangle++(-.08,.2);
    }
    \draw[ks debug frame](M.south west)rectangle(M.north east);
  }
}

\providecommand\natoappmark[2][]{%
  \tikz[transform shape,
  scale=.25,
  baseline=(natoapp6c mark.south east),
  natoapp6c mark/.try,
  #1]{%1
    \node[draw,transform
    shape,natoapp6c={faction=friendly,command=land,
      main=#2}] (natoapp6c mark){}}}
\providecommand\echelonmark[2][]{\tikz[transform shape,scale=.5,#1]{%
    \pic[scale line widths,line width=1pt] {natoapp6c/s/echelon=#2};}}
\DeclareRobustCommand\armouredmark[1][]{\natoappmark[#1]{armoured}}
\DeclareRobustCommand\infantrymark[1][]{\natoappmark[#1]{infantry}}
\DeclareRobustCommand\artillerymark[1][]{%
  \natoappmark[#1]{{[fill=pgfstrokecolor]artillery}}}
\DeclareRobustCommand\combinedmark[1][]{\natoappmark[#1]{combined arms}}
\DeclareRobustCommand\pgmark[1][]      {\natoappmark[#1]{{armoured,infantry}}}
\DeclareRobustCommand\reconnaissancemark[1][]{\natoappmark[#1]{reconnaissance}}
\DeclareRobustCommand\corpsmark[1][]{\natoappmark[#1]{,echelon=corps}}
\DeclareRobustCommand\divisionmark[1][]{\natoappmark[#1]{,echelon=division}}
\DeclareRobustCommand\brigademark[1][] {\natoappmark[#1]{,echelon=brigade}}
\DeclareRobustCommand\regimentmark[1][]{\natoappmark[#1]{,echelon=regiment}}
\DeclareRobustCommand\sofmark[1][]     {\natoappmark[#1]{{infantry,text=SOF}}}
\DeclareRobustCommand\mountaineermark[1][]{%
  \natoappmark[#1]{infantry,lower=mountain}}
\DeclareRobustCommand\airbornemark[1][]{%
  \natoappmark[#1]{infantry,lower=airborne}}
\DeclareRobustCommand\amphibiousmark[1][]{\natoappmark[#1]{,lower=amphibious}}
\DeclareRobustCommand\airassaultmark[1][]{%
  \natoappmark[#1]{infantry,upper=air assault}}
\def\testpath#1{\csname n@toapp@#1\endcsname}
\def\n@toapp@corps@sup@friendly{(.75,.5)--(.5,0)--(.75,-.5)}
\def\n@toapp@corps@sup@hostile{(.95,.5)--(.45,0)--(.95,-.5)}
\def\n@toapp@corps@sup@neutral{(.5,.5)--(.35,0)--(.5,-.5)}
\def\n@toapp@corps@sup@unknown{(.75,.5)--(.5,0)--(.75,-.5)}
\def\n@toapp@corps@support#1{
  \ifx\n@to@pp@friendly#1\n@toapp@corps@sup@friendly%
  \else\ifx\n@to@pp@hostile#1\n@toapp@corps@sup@hostile%
  \else\ifx\n@to@pp@neutral#1\n@toapp@corps@sup@neutral%
  \else\ifx\n@to@pp@unknown#1\n@toapp@corps@sup@unknown%
  \fi\fi\fi\fi}
\tikzset{
  natoapp6c/s/TBD/.pic={\n@to@pp@text@normal{\color{magenta}TBD};}
}
\tikzset{
  pics/natoapp6c/s/weapon/.is choice,
  pics/natoapp6c/s/weapon/base/.style={
    code={\path [pic actions] (0,-0.2)--(0,.2);}},
  pics/natoapp6c/s/weapon/top/.style={
    code={\path [pic actions] (0,.2)--(0,.35);}},
  pics/natoapp6c/s/weapon/bottom/.style={
    code={\path [pic actions] (0,.-.35)--(0,-.2);}},
  pics/natoapp6c/s/weapon/rifle/.style={
    code={\path [pic actions] (0.2, 0.1)--(0, 0.35)--(-0.2,0.1);}},
  pics/natoapp6c/s/weapon/machine gun/.style={
    code={\path [pic actions] (0.2, -0.35)--(-0.2, -0.35);}},
  pics/natoapp6c/s/weapon/grenade launcher/.style={
    code={\path [pic actions] (0,0) circle (0.1);}},
  pics/natoapp6c/s/weapon/missile launcher/.style={
    code={%
      \path [pic actions] (0.2, 0.15)
      to[out=90,in=90,looseness=1.75] (-0.2, 0.15);}},
  pics/natoapp6c/s/weapon/non lethal/.style={
    code={\path [pic actions] (-.2,.35) -- (.2,.35);}},
  pics/natoapp6c/s/weapon/multi fire/.style={
    code={\path[pic actions] (.2,-.2)--(.2, .2) (-.2,-.2)--(-.2,0.2);}},
  pics/natoapp6c/s/weapon/air defence/.style={
    code={%
      \path[pic actions] (0.2, -0.4)
      to[out=90,in=90,looseness=1.7] (-0.2, -0.4) -- cycle;}},
  pics/natoapp6c/s/weapon/anti tank/.style={
    code={\path[pic actions]  (0.2, -0.4)--(0,-0.2)--(-0.2,-0.4);}},
  pics/natoapp6c/s/weapon/full/.style={
    code={%
      \pic[draw]{natoapp6c/s/weapon=base};
      \pic[draw]{natoapp6c/s/weapon=top};
      \pic[draw]{natoapp6c/s/weapon=bottom};}},
  pics/natoapp6c/s/weapon/.default=full
}
\tikzset{
  pics/natoapp6c/s/type/.is choice,
  pics/natoapp6c/s/type/light/.style={
    code={\path [fill=pgfstrokecolor,pic actions] (-0.2, -0.12) rectangle (.2,-.08);}},
  pics/natoapp6c/s/type/medium/.style={
    code={
      \path [fill=pgfstrokecolor,pic actions]
      (-0.2, -0.12) rectangle (.2,-.08)
      (-0.2, -0.22) rectangle (.2,-.18);}},
  pics/natoapp6c/s/type/heavy/.style={
    code={
      \path [fill=pgfstrokecolor,pic actions]
      (-0.2, -0.12) rectangle (.2,-.08)
      (-0.2, -0.22) rectangle (.2,-.18)
      (-0.2, -0.32) rectangle (.2,-.28);}},
  pics/natoapp6c/s/type/vlight/.style={
    code={\path [fill=pgfstrokecolor,pic actions]
      (-.025,-0.2) rectangle (.025,.2);}},
  pics/natoapp6c/s/type/vmedium/.style={
    code={\path [fill=pgfstrokecolor,pic actions]
      (-.075,-0.2) rectangle (-.025,.2)
      ( .025, -0.2) rectangle (.075,.2);}},
  pics/natoapp6c/s/type/vheavy/.style={
    code={\path [fill=pgfstrokecolor,pic actions]
      (-.125,-0.2) rectangle (-.075,.2)
      (-.025,-0.2) rectangle ( .025,.2)
      ( .075,-0.2) rectangle ( .125,.2);}},
  pics/natoapp6c/s/type/.default=light,
}
\tikzset{%
  natoapp6c/s/above corps support/.pic={%
    \edef\n@toapp@path{\n@toapp@corps@support{\natoapp@fac}}
    \expandafter\path[draw] \n@toapp@path;
    \expandafter\path[draw,xscale=-1] \n@toapp@path;},
}
\tikzset{%
  natoapp6c/s/air assault with organic lift/.pic={%
    \ifx\n@to@pp@hostile\natoapp@fac%
    \def\n@toapp@path{(-.75,-.2)--(-.15,-.2)--(0,-.5)--(.15,-.2)--(.75,-.2)}
    \else
    \def\n@toapp@path{(-.75,-.2)--(-.1,-.2)--(0,-.325)--(.1,-.2)--(.75,-.2)}
    \fi
    \path[draw] \n@toapp@path;},
}
\tikzset{%
  natoapp6c/s/air decoy/.pic={%
    \pic[pic actions]{natoapp6c/s/decoy};
    \path[fill=pgfstrokecolor,pic actions] (0.4, -0.2) rectangle (-0.4, -0.15);},
}
\tikzset{%
  natoapp6c/s/air assault/.pic={%
    \path[draw] ([shift={(150:.4)}]0,-.1)--(0,-.1)--([shift={(30:.4)}]0,-.1);},
}
\tikzset{%
  natoapp6c/s/air defence/.pic={%
    \ifx\natoapp@fac\n@to@pp@friendly%
    \def\n@toapp@opt{[out=90,in=90,looseness=.675]}%
    \else\ifx\natoapp@fac\n@to@pp@neutral%
    \def\n@toapp@opt{[out=90,in=90,looseness=1]}%
    \else%
    \def\n@toapp@opt{[out=45,in=135,looseness=1.5]}%
    \fi\fi%
    \edef\n@toapp@path{(M.south west) to\n@toapp@opt (M.south east)}
    \path[draw] \n@toapp@path;},
}
\tikzset{%
  natoapp6c/s/air strip/.pic={%
    \path[fill=pgfstrokecolor] (-.4,-.1) rectangle(.4,0);
    \path[rotate=45,fill=pgfstrokecolor] (-.4,0) rectangle (.4,.1);
  }
}
\tikzset{%
  natoapp6c/s/air traffic/.pic={
    \path[fill=pgfstrokecolor]
    (0.33,0.21)--
    (0.33, -0.21)--
    (-0.33, 0.21)--
    (-0.33,-0.21)--
    cycle;},
}
\tikzset{%
  natoapp6c/s/airship/.pic={%
    % \path (0.45, 0.175) rectangle (-0.45, -0.175);
    \path[pic actions] (0, 0) ellipse (0.45 and 0.15);
    \begin{scope}
      \clip (0, 0) ellipse (0.45 and 0.15) [reverseclip];
      \path[pic actions]
      (0.2,0)--(0.3,0.175)--(0.4,0.175)--(0.375,0)
      --(0.4,-0.175)--(0.3, -0.175)--cycle;
    \end{scope}},
}
\tikzset{%
  natoapp6c/s/airborne/.pic={%
    \ifx\n@to@pp@neutral\natoapp@fac%
      \draw (0,-0.05) arc(0:180:0.15);
      \draw (0,-0.05) arc(180:0:0.15);
    \else%
      \draw (0,-0.05) arc(0:180:0.2);
      \draw (0,-0.05) arc(180:0:0.2);
    \fi},
}
\tikzset{%
  natoapp6c/s/ammunition/.pic={\path[draw]
    (0.175,-0.175)--(-0.175,-0.175)
    (0.125,-0.175)--(0.125, 0) to[out=90,in=90,looseness=2.75]
    (-0.125, 0)--(-0.125, -0.175);},
}
\tikzset{%
  natoapp6c/s/amphibious/.pic={
    \def\n@to@pp@tmp{0}
    \ifn@to@pp@below\def\n@to@pp@tmp{-.1}\fi
    \ifn@to@pp@mod
    \path[draw,shift={(0,\n@to@pp@tmp)}](1.21,0)
    to[out=-90,in=-90, looseness=2.25]  (1.05, 0)
    to[out= 90,in= 90, looseness=2.25]  (0.89, 0)
    to[out=-90,in=-90, looseness=2.25]  (0.73, 0)
    to[out= 90,in= 90, looseness=2.25]  (0.57, 0)
    to[out=-90,in=-90, looseness=2.25]  (0.41, 0)
    to[out= 90,in= 90, looseness=2.25]  (0.25, 0)
    to[out=-90,in=-90, looseness=2.25]  (0.08, 0)
    to[out= 90,in= 90, looseness=2.25] (-0.08, 0)
    to[out=-90,in=-90, looseness=2.25] (-0.25, 0)
    to[out= 90,in= 90, looseness=2.25] (-0.41, 0)
    to[out=-90,in=-90, looseness=2.25] (-0.57, 0)
    to[out= 90,in= 90, looseness=2.25] (-0.73, 0)
    to[out=-90,in=-90, looseness=2.25] (-0.89, 0)
    to[out= 90,in= 90, looseness=2.25] (-1.05, 0)
    to[out=-90,in=-90, looseness=2.25] (-1.21, 0)
    \else
    \path[draw,shift={(0,\n@to@pp@tmp)}](0.73, 0)
    to[out= 90,in= 90, looseness=2.25]  (0.57, 0)
    to[out=-90,in=-90, looseness=2.25]  (0.41, 0)
    to[out= 90,in= 90, looseness=2.25]  (0.25, 0)
    to[out=-90,in=-90, looseness=2.25]  (0.08, 0)
    to[out= 90,in= 90, looseness=2.25] (-0.08, 0)
    to[out=-90,in=-90, looseness=2.25] (-0.25, 0)
    to[out= 90,in= 90, looseness=2.25] (-0.41, 0)
    to[out=-90,in=-90, looseness=2.25] (-0.57, 0)
    to[out= 90,in= 90, looseness=2.25] (-0.73, 0)
    \fi
    ;
  },
}
\tikzset{%
  natoapp6c/s/amphibious warfare ship/.pic={
    \pic{natoapp6c/s/warfare vessel};
    \path[draw,fill=pgfstrokecolor]
    (0.15, 0.05) --
    (0.15, 0.2) --
    (-0.15, 0.2) --
    (-0.15, 0.05) -- cycle
    (0, -0.2) rectangle (0.25, -0.175);},
}
\tikzset{%
  natoapp6c/s/analysis/.pic={
    \path[pic actions]
      (-0.3,-0.2)--(0.3,-0.2)--(0, -0.4)--cycle (0,-0.2)--(0,0.4);},
}
\tikzset{%
  natoapp6c/s/arrest/.pic={
    \path[pic actions] circle(0.2);
    \pic[scale=.8]{natoapp6c/s/individual};},
}
\tikzset{%
  natoapp6c/s/artillery/.pic={
    \path[pic actions] circle(0.2);},
}
\tikzset{%
  natoapp6c/s/anti tank anti armour/.pic={%
    \ifx\natoapp@fac\n@to@pp@unknown%
    \path[draw,pic actions] (225:.5)--(M.north)--(315:.5);
    \else%
    \path[draw,pic actions] (M.south west)--(M.north)--(M.south east);%
    \fi},
}
\tikzset{%
  natoapp6c/s/antenna/.pic={\path[draw]
    (0, -0.3) -- (0, 0.3) (-0.125, 0.3) -- (0, 0.2) -- (0.125, 0.3);},
}
\tikzset{%
  natoapp6c/s/armoured/.pic={\path[draw]
    (-0.275,0.2) arc(90:270:0.2)--(0.275, -0.2) arc(270:450:0.2)--cycle;},
}
\tikzset{%
  natoapp6c/s/armoured fighting vehicle/.pic={
    \path[fill=pgfstrokecolor] (-.4,-.2) rectangle (-.3,.2) (.3,-.2) rectangle (.4,.2);
    \path[pic actions] (-.3,0) -- (0,.2) -- (.3,0) -- (0,-.2) -- cycle;},
}
\tikzset{%
  natoapp6c/s/armoured personnel carrier/.pic={
    \pic[sub pic actions,draw]{natoapp6c/s/vehicle};
    \path[pic actions] (.35,.15)--(0,.3)--(-.35,.15);},
}
\tikzset{%
  natoapp6c/s/arctic/.pic={
    \draw (-0.325,0.135) arc(180:270:0.075 and 0.15) --
       +(0.5, 0) arc(-90:0:0.075 and 0.15);},
}
\tikzset{%
  natoapp6c/s/automobile/.pic={
    \begin{scope}
      \clip (0.2,-0.15) circle(0.05) (-0.2,-0.15) circle(0.05) [reverseclip];
      \path[pic actions]
      (0.3,   -0.15)  --
      (-0.3,  -0.15)  --
      (-0.3,   0.025) --
      (-0.1,   0.025) --
      (-0.1,   0.2)   --
      ( 0.1,   0.2)   --
      ( 0.1,   0.025) --
      ( 0.3,   0.025) -- cycle
      ( 0.075, 0.025) rectangle (-0.075, 0.175);
    \end{scope}
    \path[pic actions]
    ( 0.2, -0.15) circle (0.05)
    (-0.2, -0.15) circle (0.05);
  },
}
\tikzset{%
 natoapp6c/s/balloon/.pic={%
   \path[pic actions] (0, 0.025) circle (0.175);
   \begin{scope}
     \clip (0, 0.025) circle (0.175) [reverseclip];
     \path[pic actions] (-0.05,0) rectangle (0.05,-0.2)--(0.05,0);
    \end{scope}},
}
\tikzset{
  natoapp6c/s/bar/.pic={
    \path[fill=pgfstrokecolor] (-.3,-.1) rectangle (.3,.1);},
}
\tikzset{
  natoapp6c/s/base/.pic={
    \path[pic actions] circle(.2);
    \path[pic actions]
    (-.2,0)   -- (.2,0)
    (  0,-.2) -- (0 ,.2)
    (225:.2) -- (45:.2)
    (135:.2) -- (-45:.2);
  }
}
\tikzset{%
  natoapp6c/s/bicycle equipped/.pic={\draw(0,0) circle(.1);},
}
\tikzset{%
  natoapp6c/s/boat/.pic={
    \path[pic actions]
    (-0.2,  -0.2)  --
    ( 0.2,  -0.2)  --
    ( 0.35,  0.05) --
    (-0.15,  0.05) --
    (-0.075, 0.2)  --
    (-0.175, 0.2)  --
    (-0.25,  0.05) --
    (-0.35,  0.05) --
    cycle;},
}
\tikzset{%
  natoapp6c/s/booby trap/.pic={
    \path[draw] (0, -0.2) ellipse(0.2 and 0.065);
    \begin{scope}
      \clip (0, -0.2) ellipse(0.2 and 0.065) [reverseclip];
      \path[draw] (-0.2, -0.2) -- (0, 0.2) -- (0.2, -0.2);
    \end{scope}},
}
\tikzset{%
  natoapp6c/s/bottomed/.pic={
    \path[draw,fill=pgfstrokecolor] (-0.33,.1) rectangle(0.33,.2);},
}
\tikzset{%
  pics/natoapp6c/s/bridge/.is choice,
  pics/natoapp6c/s/bridge/none/.style={
    code={\path[pic actions]
      (0.35,-0.15)--(0.25,-0.05)--(-0.25,-0.05)--(-0.35,-0.15)
      (0.35, 0.15)--(0.25, 0.05)--(-0.25, 0.05)--(-0.35, 0.15);}},
  pics/natoapp6c/s/bridge/fixed/.style={
    code={\pic{natoapp6c/s/bridge};\pic{natoapp6c/s/type=vlight};}},
  pics/natoapp6c/s/bridge/folding/.style={
    code={\pic{natoapp6c/s/bridge=none};
      \path[draw] (.1,-.2) -- (-.1,-.2) -- (-.1,.2) -- (.1,.2);}},
  pics/natoapp6c/s/bridge/hollow/.style={
    code={\pic{natoapp6c/s/bridge=none};
      \path[draw] (.1,-.2) -- (-.1,-.2) -- (-.1,.2) -- (.1,.2) -- cycle;}},
  pics/natoapp6c/s/bridge/.default=none,
}
\tikzset{%
  natoapp6c/s/capsule/.pic={
    \path[pic actions]
    ($(0.25, -0.2)!0.1!(0, 0.5)$) --
    ($(0.25, -0.2)!0.5!(0, 0.5)$) to[in=75, out=105, looseness=0.75]
    ($(0, 0.5)!0.5!(-0.25, -0.2)$) --
    ($(0, 0.5)!0.9!(-0.25, -0.2)$) to[in=285, out=255, looseness=0.55]
    cycle;},
}
\tikzset{%
  natoapp6c/s/carrier/.pic={
    \pic{natoapp6c/s/warfare vessel};
    \path[draw,fill=pgfstrokecolor]
    (-0.15, 0.05) --
    (-0.15, 0.2)  --
    (-0.3,  0.2)  --
    (-0.3, 0.05)  -- cycle;},
}
\tikzset{%
  natoapp6c/s/chemical biological radiological nuclear/.pic={
    \path[draw,fill=pgfstrokecolor] (-0.29,0.1) circle(0.096) (0.29,0.1) circle(0.096);
    \path[pic actions]  (0.15,-0.2) arc(0:90:0.45 and 0.375)
    (-0.15,-0.2) arc(180:90:0.45 and 0.375);},
}
\tikzset{%
  natoapp6c/s/civilian military cooperation/.pic={%
    \path[draw] (.375,.2)--(-.375,.2)--(-.375,-.025)
    to[in=270, out=270, looseness=0.75] (.375,-.025)--cycle;},
}
\tikzset{%
  natoapp6c/s/civilian police/.pic={%
    \path[draw] (0.225, 0.2)
    to[in=270, out=270, looseness=3] (-0.225, 0.2)
    to [in=270, out=270, looseness=1.5] (0,0.2)
    to [in=270, out=270, looseness=1.5] (0.225, 0.2) -- cycle;},
}
\tikzset{%
  natoapp6c/s/civilian telecommunications/.pic={
    \path[draw] (0.075, -0.2){[line join=bevel] -- (0, 0.1) -- (-0.075, -0.2)}
       (0.065, -0.05) -- (-0.065, -0.05)
       (-0.325, 0.2) -- (-0.15, 0.125) -- (-0.15, 0.175) -- (0, 0.1) -- (0.15, 0.175) -- (0.15, 0.125) -- (0.325, 0.2);
  },
}
\tikzset{%
  natoapp6c/s/coast guard vessel/.pic={%
    \pic[draw] {natoapp6c/s/ship};
    \path[pic actions] (0.15, 0.05) -- (0, -0.2) (0.2, 0.05)--(0.05, -0.2);},
}
\tikzset{%
  natoapp6c/s/combat support/.pic={%
    \path[fill=pgfstrokecolor]
    (.15,.2)--(-.15,.2)--(-.15,-.05)--(0,-.2)--(.15,-.05) -- cycle;},
}
\tikzset{%
  natoapp6c/s/combatant/.pic={%
    \begin{scope}[xshift=-4.5, yshift=-5]
      \path[pic actions]
      (0.3213,0.0534) .. controls (0.3186,0.0295)  and (0.3072,0.0136) ..
      (0.2925,0.0063) .. controls (0.2777,-0.0010) and (0.2605,0.0001) ..
      (0.2461,0.0068) .. controls (0.2317,0.0136)  and (0.2198,0.0265) ..
      (0.2163,0.0433) .. controls (0.2147,0.0513)  and (0.2150,0.0601) ..
      (0.2179,0.0694) .. controls (0.1304,0.1129)  and (0.0223,0.1961) ..
      (0.0013,0.3209) .. controls (0.0601,0.1809)  and (0.1770,0.0912) ..
      (0.3213,0.0534) -- cycle
      (0.2304,0.0633) .. controls (0.2287,0.0570)  and (0.2287,0.0513) ..
      (0.2298,0.0461) .. controls (0.2323,0.0340)  and (0.2409,0.0245) ..
      (0.2520,0.0193) .. controls (0.2630,0.0141)  and (0.2760,0.0135) ..
      (0.2864,0.0186) .. controls (0.2932,0.0220)  and (0.2992,0.0277) ..
      (0.3033,0.0370) .. controls (0.2845,0.0413)  and (0.2597,0.0498) ..
      (0.2304,0.0633) -- cycle
      (0.1785,0.1137) .. controls (0.2446,0.1612)  and (0.3061,0.2300) ..
      (0.3214,0.3209) .. controls (0.2864,0.2377)  and (0.2310,0.1723) ..
      (0.1614,0.1249)
      (0.1443,0.1138) .. controls (0.1011,0.0871)  and (0.0530,0.0670) ..
      (0.0014,0.0535) .. controls (0.0041,0.0295)  and (0.0154,0.0136) ..
      (0.0302,0.0063) .. controls (0.0449,-0.0010) and (0.0621,0.0001) ..
      (0.0765,0.0069) .. controls (0.0909,0.0137)  and (0.1028,0.0265) ..
      (0.1063,0.0433) .. controls (0.1079,0.0513)  and (0.1076,0.0602) ..
      (0.1047,0.0694) .. controls (0.1230,0.0785)  and (0.1422,0.0893) ..
      (0.1613,0.1019)
      (0.0928,0.0461) .. controls (0.0903,0.0340)  and (0.0816,0.0245) ..
      (0.0706,0.0193) .. controls (0.0596,0.0141)  and (0.0466,0.0135) ..
      (0.0362,0.0186) .. controls (0.0294,0.0220)  and (0.0234,0.0277) ..
      (0.0193,0.0370) .. controls (0.0381,0.0413)  and (0.0629,0.0498) ..
      (0.0921,0.0633) --
      (0.0921,0.0633) .. controls (0.0938,0.0570)  and (0.0938,0.0512) ..
      (0.0928,0.0461) -- cycle;
    \end{scope}
  },
}
\tikzset{%
  natoapp6c/s/combined arms/.pic={%
    \path[draw] pic {natoapp6c/s/armoured};
    \path[draw] (0.275, 0.2) -- (-0.275, -0.2) (0.275, -0.2) -- (-0.275, 0.2);},
}
\tikzset{%
  natoapp6c/s/computer system/.pic={
    \path[draw,fill=pgfstrokecolor,pic actions]
    (-.3,  .28) rectangle ( .3,  .3)
    (-.3, -.18) rectangle ( .3, -.2)
    (-.3, -.18) rectangle (-.3,  .28)
    ( .3, -.18) rectangle ( .3,  .28)
    (-.3, -.3)  rectangle ( .3, -.28)
    (-.05,-.28) rectangle ( .05,-.18);},
}
\tikzset{%
  natoapp6c/s/control/.pic={
    \path[pic actions]
    [{Stealth[inset=0pt,scale=0.5]}-{Stealth[inset=0pt,scale=0.5]}]
    (0, .2) -- (0, -.2);
    \path[pic actions]
    [{Stealth[inset=0pt,scale=0.5]}-{Stealth[inset=0pt,scale=0.5]}]
    (-.2, 0) -- (.2, 0);},
}
\tikzset{%
  natoapp6c/s/convoy/.pic={
    \path[draw,fill=pgfstrokecolor]
    (0.35, 0.175) --
    (-0.35, 0.175) --
    (-0.35, -0.175) --
    (-0.2, -0.175) --
    (-0.2, 0.025) --
    (0.2, 0.025) --
    (0.2, -0.175) --
    (0.35, -0.175) -- cycle;},
}
\tikzset{%
  natoapp6c/s/corps support/.pic={%
    \edef\n@toapp@path{\n@toapp@corps@support{\natoapp@fac}}
    \expandafter\path[draw] \n@toapp@path;},
}
\tikzset{%
  natoapp6c/s/crime/.pic={\path[draw,dashed] (-.45,.25)--(.45,-.25);},
}
\tikzset{%
  natoapp6c/s/decoy/.pic={%
    \path[fill=pgfstrokecolor,draw,yshift=1.5]
    (0.2, 0) -- (0.4, 0.15) -- (0.4, -0.15) -- cycle
    (-0.1, 0) -- (0.1, 0.15) -- (0.1, -0.15) -- cycle
    (-0.4, 0) -- (-0.2, 0.15) -- (-0.2, -0.15) -- cycle;},
}
\tikzset{%
  natoapp6c/s/direct communications/.pic={
    \path[draw] (-.35,0) circle(.1) (.35,0) circle(.1);
    \pic[fill=pgfstrokecolor]{natoapp6c/s/intermodal};
  },
}
\tikzset{%
  natoapp6c/s/direction finding/.pic={%
    \path[draw] (-.3,.2)--(0,.4)--(.3,.2) (0,.4)--(0,-.4);},
}
\tikzset{%
  pics/natoapp6c/s/diving/.is choice,
  pics/natoapp6c/s/diving/none/.style={
    code={
      \path[pic actions] (0,0) circle(.1) (0,0) circle(.25);
      \begin{scope}
        \clip (0,0) circle(.25) [reverseclip];
        \path[pic actions] (-.3,-.1) rectangle(.3,.1)
        (0,0) -- (-45:.4) -- (-135:.4) -- cycle;
      \end{scope}}},
  pics/natoapp6c/s/diving/military/.style={
    code={
      \begin{scope}[even odd rule]
        \clip (0,0) circle(0.1)[reverseclip];
        \pic[fill=pgfstrokecolor]{natoapp6c/s/diving=none};
      \end{scope}
      \path[fill=pgfstrokecolor] (0,0) circle(0.08);
    }},
  pics/natoapp6c/s/diving/.default=none,
}
\tikzset{%
  natoapp6c/s/drilling/.pic={\path[fill=pgfstrokecolor]
    (-0.1,-0.2) -- (0.1,-0.2) -- (0.2, 0.2) -- (-0.2, 0.2) -- cycle;},
}
\tikzset{%
  natoapp6c/s/earthmover/.pic={
    \pic{natoapp6c/s/tank};
    \path[pic actions] (.3,
    .3)--(.175,.35)--(-.175,.35)--(-.3,.3)
    (0,.2)--(0,.35);
  },
}
\tikzset{%
  natoapp6c/s/electric power/.pic={
    \path[pic actions]
    (-0.05, 0)    .. controls(-0.06, 0.14) ..
    ( 0,    0.09) .. controls( 0.03, 0.06) ..
    ( 0,    0.06) .. controls(-0.03, 0.06) ..
    ( 0,    0.09) .. controls( 0.06, 0.14) ..
    (0.05, 0)
    ($(-55:0.125) + (0, 0.075)$) arc(-55:235:0.125) arc(415:360:0.05) --
    +(0, -0.08) arc(180:360:0.05035) --
    +(0,  0.08) arc(180:125:0.05) -- cycle;
  },
}
\tikzset{%
  natoapp6c/s/electronic ranging/.pic={%
    \path[draw] (135:.225) arc (135:315:.225)--cycle (0,0)--(225:-.225);},
}
\tikzset{%
  natoapp6c/s/electronic warfare wide/.pic={%
    % OBS
    \node[natoapp6c/text,natoapp6c/normal text] at(-.25,0){E};
    \node[natoapp6c/text,natoapp6c/normal text] at(.25,0){W};
  },
}
\tikzset{%
  natoapp6c/s/engineer/.pic={\path[draw]
    (.4,-.2)--(.4,.2)--(-.4,.2)--(-.4,-.2) (0,.2)--(0,-.2);},
}
\tikzset{%
  natoapp6c/s/enhanced location reporting system/.pic={\path[draw]
    (0, -0.3) -- (0, 0.3) (-0.2, -.3) -- (0, 0.-.1) -- (0.2, -.3);},
}
\tikzset{%
  natoapp6c/s/environmental protection/.pic={%
    \path[draw] (0, 0.2)
    -- (0.1, 0.05)
    -- (0.05, 0.05)
    -- (0.15, -0.05)
    -- (0.1, -0.05)
    -- (0.2, -0.15)
    -- (0.15, -0.15)
    -- (0.05, -0.15)
    -- (0.05, -0.2)
    -- (-0.05, -0.2)
    -- (-0.05, -0.15)
    -- (-0.2, -0.15)
    -- (-0.1, -0.05)
    -- (-0.15, -0.05)
    -- (-0.05, 0.05)
    -- (-0.1, 0.05)
    -- cycle;},
}
\tikzset{%
  natoapp6c/s/explosion/.pic={%
    \node [shape=rectangle,
    starburst,
    draw,
    minimum width=0.9cm,
    minimum height=0.9cm,
    starburst point height=0.25cm,
    starburst points=12] {};},
}
\tikzset{%
  natoapp6c/s/finance/.pic={%
    \path[draw] (-.3,-.25) rectangle(.3,0)
    (-.3,0) -- ++(60:.28) -- ([shift=(120:.28)].3,0) -- (.3,0);},
}
\tikzset{%
  natoapp6c/s/fishing vessel/.pic={
    \path[pic actions]
      (-0.15, -0.2)  --
      ( 0.15, -0.2)  --
      ( 0.25, 0.025) --
      (-0.05, 0.025) --
      (-0.05, 0.125) --
      (-0.2,  0.125) --
      (-0.2,  0.025) --
      (-0.25, 0.025) -- cycle
      (0.025, 0.025) -- (0.025, 0.2)
      (0.025, 0.025) -- +(45:0.2);},
}
\tikzset{%
  natoapp6c/s/fire protection/.pic={%
    \path[fill=pgfstrokecolor] (0,0) circle(.2)
      (0,0) -- (60:.3) -- (120:.3) -- cycle
      (0,0) -- (-30:.3) -- (30:.3) -- cycle
      (0,0) -- (150:.3) -- (210:.3) -- cycle
      (0,0) -- (240:.3) -- (300:.3) -- cycle;
  },
}
\tikzset{%
  natoapp6c/s/fixed and rotary wing/.pic={%
      \path[xscale=.45,yscale=.75,pic actions] pic {natoapp6c/s/fixed wing};
      \path[yscale=.45,xscale=.7,rotate=90, pic actions] pic {
        natoapp6c/s/rotary wing};
    },
}
\tikzset{%
  natoapp6c/s/fixed wing/.pic={
    \path[pic actions]
      (-0.36,0.125) arc (77:275:0.075 and 0.125) -- (0,0) -- cycle
      ( 0.36,0.125) arc (-275:-77:-0.075 and 0.125) -- (0,0)
      --cycle;},
}
\tikzset{%
  natoapp6c/s/flame thrower/.pic={
    \path[pic actions]
    (-0.1, -0.4) -- (-0.1, 0.3) to[out=90,in=90,looseness=2]
    (0.1, 0.3) -- (0.1, 0.275);},
}
\tikzset{%
  natoapp6c/s/floating/.pic={
    \path[draw]
    (-0.5, 0.100) --
    (-0.417, 0.242) --
    (-0.333, 0.100) --
    (-0.250, 0.242) --
    (-0.167, 0.100) --
    (-0.083, 0.242) --
    (0.0, 0.100) --
    (0.083, 0.242) --
    (0.167, 0.100) --
    (0.250, 0.242) --
    (0.333, 0.100) --
    (0.417, 0.242) --
    (0.5, 0.100);},
  pics/natoapp6c/s/surfaced/.style=natoapp6c/s/floating,
}
\tikzset{%
  natoapp6c/s/food/.pic={
    \path[pic actions]
    (0.075, 0.2) to[out=210, in=150, looseness=1]
    (0.075, -0.2) to[out=180, in=180, looseness=1.5]
    (0.075, 0.2) -- cycle;},
}
\tikzset{%
  natoapp6c/s/fuel/.pic={
    \path[draw] (0,0) -- (135:.3) -- (45:.3) -- cycle (0,0) -- (0,-.3);},
}
\tikzset{%
  pics/natoapp6c/s/grenade launcher/.is choice,%
  pics/natoapp6c/s/grenade launcher/none/.style={%
    code={%
      \pic[draw]{natoapp6c/s/rifle};
      \pic[draw]{natoapp6c/s/weapon=grenade launcher};}},%
  pics/natoapp6c/s/grenade launcher/non lethal/.style={
    code={%
      \pic[draw]{natoapp6c/s/non lethal weapon};
      \pic[draw]{natoapp6c/s/weapon=grenade launcher};}},
  pics/natoapp6c/s/grenade launcher/.default=none,
}
\tikzset{%
  natoapp6c/s/graffiti/.pic={
    \path[pic actions]
    (0.05, 0.2)
    arc (90:270:0.05)
    arc (450:270:0.05)
    arc (90:270:0.05)
    arc (450:270:0.05)
    (-0.05, 0.2)
    arc (90:270:0.05)
    arc (450:270:0.05)
    arc (90:270:0.05)
    arc (450:270:0.05);},
}
\tikzset{%
  natoapp6c/s/group/.pic={
    \path(-.23,.05) pic [draw,scale=.8] {natoapp6c/s/individual};
    \path(0,-.05)   pic [draw,scale=.8] {natoapp6c/s/individual};
    \path(.23,.05)  pic [draw,scale=.8] {natoapp6c/s/individual};},
}
\tikzset{%
  pics/natoapp6c/s/gun/.is choice,
  pics/natoapp6c/s/gun/base/.style={
    code={
      \pic[draw]{natoapp6c/s/weapon=base};
      \pic[draw]{natoapp6c/s/weapon=top};
      \pic[draw]{natoapp6c/s/weapon=multi fire};}},
  pics/natoapp6c/s/gun/air defence/.style={
    code={
      \pic[draw]{natoapp6c/s/gun/base};
      \pic[draw]{natoapp6c/s/weapon=air defence};}},
  pics/natoapp6c/s/gun/anti tank/.style={
    code={
      \pic[draw]{natoapp6c/s/gun/base};
      \pic[draw]{natoapp6c/s/weapon/anti tank};}},
  pics/natoapp6c/s/gun/direct/.style={
    code={
      \pic[draw]{natoapp6c/s/gun/base};
      \pic[draw]{natoapp6c/s/weapon=bottom};}},
  pics/natoapp6c/s/gun/recoilless/.style={
    code={
      \pic[draw]{natoapp6c/s/rifle};
      \pic[yshift=-4,draw]{natoapp6c/s/weapon=multi fire};}},
  pics/natoapp6c/s/gun/.default=direct,
}
\tikzset{%
  natoapp6c/s/headquarters/.pic={
    \path[pic actions] (M.north west) -- ++(0,-.3) --
      ([shift=(-90:.3)]M.north east) -- (M.north east) -- cycle;},
}
\tikzset{%
  natoapp6c/s/house/.pic={
    \path[pic actions]
    (-.125,-.175) rectangle (.125,.075)
    (-.167,.075) -- (0,.225) -- (.167,.075) -- cycle;},
}
\tikzset{%
  natoapp6c/s/howitzer/.pic={
    \pic[draw]{natoapp6c/s/weapon=base};
    \pic[draw]{natoapp6c/s/weapon=top};
    \pic[draw]{natoapp6c/s/weapon=multi fire};
    \pic[yshift=-8,draw]{natoapp6c/s/weapon=grenade launcher};
  },
}
\tikzset{%
  natoapp6c/s/in position/.pic={
    \path[draw,fill=pgfstrokecolor]
    (-.3,-.01) rectangle (-.2,.01) (.2,-.01) rectangle (.3,.01);},
}
\tikzset{%
  natoapp6c/s/individual/.pic={
    \path[pic actions]
      (0,.08) -- (0,-.3) (-.15,0) -- (.15,0) (0,.18) circle(.1);},
}
\tikzset{%
  natoapp6c/s/infantry/.pic={
    \path[draw] (-.75,.5) -- (.75,-.5) (-.75,-.5) -- (.75,.5);},
}
\tikzset{%
  natoapp6c/s/intermodal/.pic={
    \path[pic actions]
    ( 0.15,  0.025) --
    (-0.15,  0.025) --
    (-0.15,  0.075) --
    (-0.25,  0)     --
    (-0.15, -0.075) --
    (-0.15, -0.025) --
    ( 0.15, -0.025) --
    ( 0.15, -0.075) --
    ( 0.25,  0)     --
    ( 0.15,  0.075) -- cycle;},
}
\tikzset{%
  natoapp6c/s/jagged wave/.pic={
    \draw (0.3,  -0.05) --
          (0.2,   0.05) --
          (0.1,  -0.05) --
          (0,     0.05) --
          (-0.1, -0.05) --
          (-0.2,  0.05) --
          (-0.3, -0.05);},
}
\tikzset{%
  natoapp6c/s/jam/.pic={%
    \path[draw]
    (0.75, 0)
    to[out=90, in=90, looseness=2.25] ( 0.65, 0)
    to[out=-90,in=-90,looseness=2.25] ( 0.55, 0)
    to[out=90, in=90, looseness=2.25] ( 0.45, 0)
    to[out=-90,in=-90,looseness=2.25] ( 0.35, 0)
    to[out=90, in=90, looseness=2.25] ( 0.25, 0)
    to[out=-90,in=-90,looseness=2.25] ( 0.15, 0)
    to[out=90, in=90, looseness=2.25] ( 0.05, 0)
    to[out=-90,in=-90,looseness=2.25] (-0.05, 0)
    to[out=90, in=90, looseness=2.25] (-0.15, 0)
    to[out=-90,in=-90,looseness=2.25] (-0.25, 0)
    to[out=90, in=90, looseness=2.25] (-0.35, 0)
    to[out=-90,in=-90,looseness=2.25] (-0.45, 0)
    to[out=90, in=90, looseness=2.25] (-0.55, 0)
    to[out=-90,in=-90,looseness=2.25] (-0.65, 0)
    to[out=90, in=90, looseness=2.25] (-0.75, 0)
    ;},
}
\tikzset{%
  natoapp6c/s/jamming/.pic={%
    \path(0,.4) pic {natoapp6c/s/jam} (0,.26) pic {natoapp6c/s/jam};},
}
\tikzset{%
  natoapp6c/s/jetski/.pic={
    \path[pic actions]
    ( 0.3, -0.2)  --
    (-0.3, -0.2)  --
    (-0.35,-0.1)  --
    (-0.1,  0.2)  --
    ( 0,    0.2)  --
    ( 0,    0.1)  --
    (-0.05, 0.1)  --
    (-0.1, -0.05) --
    ( 0.3, -0.05) --
    ( 0.3, -0.2)  -- cycle;
},
}
\tikzset{%
  natoapp6c/s/killing/.pic={\path[draw] (-.45,.25)--(.45,-.25);},
}
\tikzset{%
  natoapp6c/s/labour/.pic={%
    \path[draw] (-.15,.2) -- (.15,.2) (0,.2) -- (0,0)
    (-.15,0) -- ++(300:.3) -- ++(60:.3) -- cycle;},
}
\tikzset{%
  pics/natoapp6c/s/land mine/.is choice,
  pics/natoapp6c/s/land mine/personnel/.style={
    code={\pic[fill=pgfstrokecolor]{natoapp6c/s/land mine=none};
      \path[pic actions] (135:0.35) -- (0, 0) -- (45:0.35);}},
  pics/natoapp6c/s/land mine/tank/.style={
    code={\pic[fill=pgfstrokecolor]{natoapp6c/s/land mine=none};}},
  pics/natoapp6c/s/land mine/none/.style={
    code={\path[pic actions] (0,0) circle(0.25);}},
  pics/natoapp6c/s/land mine/.default=none,
}
\tikzset{%
  natoapp6c/s/land missile/.pic={\pic{natoapp6c/s/missile launcher};},
}
\tikzset{%
  natoapp6c/s/laser/.pic={
    \path[draw,line join=round,line cap=round,pic actions]
    ( 0.1, -0.25)   --
    (-0.1, -0.225)  --
    ( 0.1, -0.2)    --
    (-0.1, -0.175)  --
    ( 0.1, -0.15)   --
    ( 0,   -0.1375) --
    ( 0,   -0.0125) --
    (-0.1,  0)      --
    ( 0.1,  0.025)  --
    (-0.1,  0.05)   --
    ( 0.1,  0.075)  --
    ( 0,    0.0875) --
    ( 0,    0.25)
    ( 0.1,  0.2)  --
    ( 0,    0.25) --
    (-0.1, 0.2);},
}
\tikzset{%
  natoapp6c/s/launcher/.pic={
    \path[draw] (-.3,-.2) -- (.3,.2) -- (.3,-.2);},
}
\tikzset{%
  natoapp6c/s/laundry/.pic={%
    \path[draw] (0,-.3) -- (0,.1)
    (0,.1) -- ++(150:.25)
    (0,.1) -- ++(180:.2)
    (0,.1) -- ++(210:.25);},
}
\tikzset{%
  natoapp6c/s/machine gun/.pic={%
    \pic[draw]{natoapp6c/s/rifle};
    \pic[draw]{natoapp6c/s/weapon=machine gun};},
}
\tikzset{%
  natoapp6c/s/main gun/.pic={
    \path[pic actions] (M.north west) -- ++(.25,0) --
      ([shift=(0:.25)]M.south west) -- (M.south west) -- cycle;},
}
\tikzset{%
  natoapp6c/s/maintenance/.pic={
    \path[fill=pgfstrokecolor]
    (-.38,.25)
    to[out=0,in=90,looseness=1.5] (-.2,.05) -- (.2,.05)
    to [out=90,in=180,looseness=1.5] (.38,.25) --  ++(0,-.08)
    to [out=180,in=90,looseness=1.5] (.28,0)
    to [out=-90,in=180,looseness=1.5] (.38,-.17) -- ++(0,-.08)
    to [out=180,in=-90,looseness=1.5] (.2,-.05) -- (-.2,-.05)
    to [out=-90,in=0,looseness=1.5] (-.38,-.25) -- ++(0,.08)
    to [out=0,in=-90,looseness=1.5] (-.28,0)
    to [out=90,in=0,looseness=1.5] (-.38,.17) -- cycle;
  },
}
\tikzset{%
  natoapp6c/s/medic/.pic={
    \path[pic actions]
      (-0.075,-0.2)
      --(0.075,-.2)
      --(.075,-.075)
      --(.2,-.075)
      --(.2,.075)
      --(.075,.075)
      --(.075,.2)
      --(-0.075,.2)
      --(-0.075,.075)
      --(-.2,.075)
      --(-.2,-.075)
      --(-.075,-.075)
      --cycle;},
}
\tikzset{%
  natoapp6c/s/medical/.pic={\path[draw] (-1,0) -- (1,0) (0,-1) -- (0,1);},
}
\tikzset{%
  natoapp6c/s/medical treatment/.pic={
    \path[draw] (0,0) pic {natoapp6c/s/medical}
    ([xscale=.5,shift={(0,-.2)}]M.west) -- ([xscale=.5,shift={(0,.2)}]M.west)
    ([xscale=.5,shift={(0,-.2)}]M.east) -- ([xscale=.5,shift={(0,.2)}]M.east);},
}
\tikzset{%
  natoapp6c/s/mine/.pic={
    \path[fill=pgfstrokecolor,draw] (0,0) ellipse(.2 and .15)
    (0,0) -- ++(60:.3)
    (0,0) -- ++(90:.3)
    (0,0) -- ++(120:.3)
    (0,0) -- ++(240:.3)
    (0,0) -- ++(270:.3)
    (0,0) -- ++(300:.3)
    ;},
}
\tikzset{%
  natoapp6c/s/mine clearing equipment/.pic={
    \path[pic actions]
    (0, 0.2) -- (0, 0) -- (0.35, -0.2) -- (-0.35, -0.2) -- (0, 0);},
}
\tikzset{%
  natoapp6c/s/mine warfare vessel/.pic={%
    \pic[scale=.8,fill=pgfstrokecolor,yshift=2.5]{natoapp6c/s/sea mine=top half};
    \pic          {natoapp6c/s/warfare vessel};
  },
}
\tikzset{%
  natoapp6c/s/missile/.pic={%
    \path[pic actions,draw]
      (0, 0.3)
      -- (-0.05, 0.2)
      -- (-0.05, -0.2)
      -- (-0.125,-0.3)
      -- (-0.125,-0.4)
      -- (0, -0.265)
      -- (0.125,-0.4)
      -- (0.125,-0.3)
      -- (0.05,-0.2)
      -- (0.05,0.2)
      -- cycle;},
}
\tikzset{%
  pics/natoapp6c/s/missile launcher/.is choice,
  pics/natoapp6c/s/missile launcher/base/.style={
    code={
      \pic[draw]{natoapp6c/s/weapon=base};
      \pic[draw]{natoapp6c/s/weapon=top};
      \pic[draw]{natoapp6c/s/weapon=multi fire};
      \pic[draw]{natoapp6c/s/weapon=missile launcher};}},
  pics/natoapp6c/s/missile launcher/none/.style={
    code={
      \pic[draw]{natoapp6c/s/missile launcher=base};
      \path[pic actions] (-.2,-.2)--(-.2,-.35) (.2,-.2)--(.2,-.35);}},
  pics/natoapp6c/s/missile launcher/air defence/.style={
    code={
      \pic[draw]{natoapp6c/s/missile launcher=none};
      \pic[draw]{natoapp6c/s/weapon=air defence};}},
  pics/natoapp6c/s/missile launcher/anti tank/.style={
    code={
      \pic[draw]{natoapp6c/s/missile launcher=base};
      \pic[draw]{natoapp6c/s/weapon=anti tank};}},
  pics/natoapp6c/s/missile launcher/surface to surface/.style={
    code={%
      \pic[draw]{natoapp6c/s/missile launcher=none};
      \pic[draw]{natoapp6c/s/weapon=bottom};
      \pic[draw]{natoapp6c/s/weapon=machine gun};
    }},
  pics/natoapp6c/s/missile launcher/.default=none,
}
\tikzset{%
  natoapp6c/s/mobile advisor and support/.pic={
    \path[draw] (-.35,0) circle(.1) (.35,0) circle(.1);
    \path[draw,fill=pgfstrokecolor,pic actions]
    ( 0.15,  0.025) --
    (-0.25,  0.025) --
    (-0.25, -0.025) --
    ( 0.15, -0.025) --
    ( 0.15, -0.075) --
    ( 0.25,  0)     --
    ( 0.15,  0.075) -- cycle;},
}
\tikzset{%
  natoapp6c/s/moored/.pic={
    \path[draw] (0,.2) -- (0,-.05) (-.3,-.05) -- (.3,-.05);},
}
\tikzset{%
  natoapp6c/s/mortar/.pic={
    \path[draw] (0,-.15) circle(.05) (0,.-.1) -- (0,.2)
    ([shift=(225:.1)]0,.2) -- (0,.2) -- ([shift=(-45:.1)]0,.2);},
}
\tikzset{%
  natoapp6c/s/motorized/.pic={\path[draw] (M.north) -- (M.south);},
  pics/natoapp6c/s/motorised/.style={natoapp6c/s/motorized},
}
\tikzset{%
  natoapp6c/s/mortuary affairs/.pic={
    \path[draw] (-.1,-.2) rectangle (.1,.2)
      (0,-.17) -- (0,.17) (-.07,.1) -- (.07,.1);},
}
\tikzset{%
  natoapp6c/s/mountain/.pic={
    \path[draw,fill=pgfstrokecolor] (0,.2) -- ++(-60:.7) -- ++(180:.7) -- cycle;
  },
}
\tikzset{%
  natoapp6c/s/naval/.pic={
      \def\arrow{(0,0) -- (-.02,0) -- ++(60:.04) -- ++(-60:.04) -- cycle}
      \begin{scope}[pic actions]
        \path[draw]
        (0,.13) circle (.08) (-.2,.04) -- (.2,.04) (0,.04)
        -- (0,-.25) (210:.25) arc (210:340:.25);
        \path[draw,shift=(210:.25),rotate=30] \arrow;
        \path[draw,shift=(340:.25),rotate=-30] \arrow;
      \end{scope}},
}
\tikzset{%
  natoapp6c/s/navigation/.pic={
    \path[draw]
    (.17,-.2) -- (0,.2) -- (-.17,-.2)
    ($(-180:.17)+(0,.05)$) arc[radius=.17,start angle=-180,end angle=0];},
}
\tikzset{%
  natoapp6c/s/navy task/.pic={
    \path[pic actions]
      (-0.25, -0.2) -- (-0.25, 0.1) -- (-0.15, 0.2)
      ( 0.25, -0.2) -- ( 0.25, 0.1) -- ( 0.15, 0.2);},
}
\tikzset{%
  natoapp6c/s/non combatant/.pic={
    \path[draw,fill=pgfstrokecolor]
    (-0.25, -0.2) --
    (-0.25, 0.05) --
    (-0.15, 0.05) --
    (-0.15, 0.2)  --
    (0.15, 0.2)   --
    (0.15, 0.05)  --
    (0.25, 0.05)  --
    (0.25, -0.2)  -- cycle;},
}
\tikzset{%
  natoapp6c/s/non lethal weapon/.pic={%
    \pic[draw]{natoapp6c/s/weapon};%
    \pic[draw]{natoapp6c/s/weapon=non lethal};},
}
\tikzset{%
  natoapp6c/s/nuclear/.pic={
    \path[fill=pgfstrokecolor,pic actions] (0,0) circle(.05)
    (0:  .3) arc(0  :  60:.3) -- (  60:.1) arc(  60: 0:  .1) -- cycle
    (180:.3) arc(180: 120:.3) -- ( 120:.1) arc( 120: 180:.1) -- cycle
    (-60:.3) arc(-60:-120:.3) -- (-120:.1) arc(-120:-60: .1) -- cycle;
  },
}
\tikzset{%
  natoapp6c/s/observer/.pic={
    \path[pic actions] (0.25,-.2)--(-.25,-.2)--(0,.2)--cycle;},
}
\tikzset{%
  natoapp6c/s/orbiter shuttle/.pic={
    \path[pic actions]
    ($(0, 0.3)!0.35!(0.125, -0.15)$) --
    (0.125, -0.15) -- (-0.125, -0.15) --
    ($(-0.125, -0.15)!0.65!(0, 0.3)$)
    to[in=105, out=75] cycle
    (0, -0.20) -- (0, -0.15); },
}
\tikzset{%
  natoapp6c/s/ordnance/.pic={
    \path[draw] (0,0) ellipse(.2 and .15);
    \begin{scope}
      \clip (0,0) ellipse(.2 and .15) [reverseclip];
      \path[draw] (0,0) -- ++(50:.3)
      (0,0) -- ++(70:.3)
      (0,0) -- ++(110:.3)
      (0,0) -- ++(130:.3)
      ;
    \end{scope}},
}
\tikzset{%
  pics/natoapp6c/s/organisation/.style={natoapp6c/s/group},
}
\tikzset{%
  natoapp6c/s/over snow/.pic={
    \ifn@to@pp@below%
      \draw ([shift={(-.15,.15)}]M.south west) to[in=180, out=270]
      ++(.15,-.15) -- (M.south east);
    \else%
      \draw ([shift={(.3,.1)}]M.west) to[in=180, out=-90]
        ([shift={(.5,-.1)}]M.west) --
        ([shift={(-.3,-.1)}]M.east);
    \fi},
}
\tikzset{%
  natoapp6c/s/pack animal/.pic={
    \def\n@to@pp@tmp{0}
    \ifn@to@pp@below\def\n@to@pp@tmp{-.15}\fi
    \path[draw,shift={(0,\n@to@pp@tmp)}]
    (-.3,-.15) -- (-.15,.15) -- (0,-.15) -- (.15,.15) -- (.3,-.15);},
}
\tikzset{%
  natoapp6c/s/patrol/.pic={
    \pic{natoapp6c/s/warfare vessel};
    \path[draw,fill=pgfstrokecolor] (0.125, 0) -- (0, 0.2) -- (-0.125, 0) -- cycle;},
}
\tikzset{%
  natoapp6c/s/patrolling/.pic={
    % OBS
    \path[draw]
    (0.25, 0.05) -- (-0.05, 0.05) -- (0.05, -0.05) -- (-0.4, -0.05)
    (-0.3, 0) -- (-0.4, -0.05) -- (-0.3, -0.1)
    node [natoapp6c/text,natoapp6c/small text,
    scale=.5,anchor=west,inner sep=0] at (0.25, 0.05) {P};
  },
}
\tikzset{%
  natoapp6c/s/physician/.pic={
    \pic{natoapp6c/s/medical};
    \path[draw] (0.1, 0.05) -- (-0.1, 0.05);},
}
\tikzset{%
  natoapp6c/s/pipeline/.pic={
    \path[draw] (-.15,-.15) rectangle (.15,.15)
    (-.3,.1) -- (-.15,.1) (-.3,-.1) -- (-.15,-.1)
    (.3,.1) -- (.15,.1) (.3,-.1) -- (.15,-.1)
    (-.05,.15) rectangle (.05,.25) (-.1,.25) rectangle (.1,.30);},
}
\tikzset{%
  natoapp6c/s/poisoning/.pic={
    \path[pic actions] (0, 0.055) circle (0.145)
    (0.3, 0) -- (-0.3, -0.2)
    (-0.3, 0) -- (0.3, -0.2);},
}
\tikzset{%
  natoapp6c/s/postal/.pic={
    \path[draw] (-.25,.25) -- (.08,.25)
    to [out=-90,in=120,looseness=1] (.25,-.25)
    to [out=150,in=-90,looseness=1] (-.25,.25);
  },
}
\tikzset{%
  natoapp6c/s/printed media/.pic={
    \path[pic actions] (0.2, 0) -- (-0.2, 0)
    (0, 0.1) circle (0.085)
    (0, -0.1) circle (0.085);},
}
\tikzset{%
  natoapp6c/s/psychological/.pic={
    \path[pic actions] (-.25,.15) -- (-.1,.15) -- (.1,.25)
      -- ++(0,-.5) -- (-.1,-.15) -- (-.25,-.15) -- cycle
      (.1,.15) -- (.25,.15)
      (.1,.05) -- (.25,.05)
      (.1,-.05) -- (.25,-.05)
      (.1,-.15) -- (.25,-.15);},
}
\tikzset{%
  natoapp6c/s/quarry/.pic={
    \path[draw] (-.2,-.2) -- (.18,.18) (.2,-.2) -- (-.18,.18)
      (25:.255) arc(25:65:.255)
      (115:.255) arc(115:155:.255);
      %([shift={(115:.08)}]-.1,.1) arc (115:155:.08)
      %([shift={(70:.08)}].1,.1) arc (70:110:.08);
    },
}
\tikzset{%
  natoapp6c/s/quartermaster/.pic={
    \path[draw] (-.4,.1) -- (.1,.1) (.25,.1) circle(.15)
      (-.3,.1) -- (-.3,-.15) (-.15,.1) -- (-.15,-.15)
      (-.3,-.08) -- (-.15,-.08);},
}
\tikzset{%
  natoapp6c/s/radar/.pic={%
    \path[draw] (-.2,.2) arc (150:300:.25) (-.24,.01) -- (0,.2) --
    (0,0) -- (.2,.2);},
}
\tikzset{%
  natoapp6c/s/radio/.pic={%
    \path[draw] (-.2,.2) -- (-.13,.25) -- (-.07,.2) -- (0,.25) --
    (.07,.2) -- (.13,.25) -- (.2,.2) (0,.25) -- (0,-.05) (0,-.15) circle(.1);},
}
\tikzset{%
  natoapp6c/s/radio relay/.pic={%
    \path[draw] (-.2,.25) -- (.2,.25) (0,.25) -- (0,-.05) (0,-.15) circle(.1);},
}
\tikzset{%
  natoapp6c/s/radio relay line of sight/.pic={%
    \path[draw] (0,0) circle(.2);
    \path[fill=pgfstrokecolor] (0,0) -- (45:.2) arc(45:-45:.2) -- cycle;
    \path[fill=pgfstrokecolor] (0,0) -- (135:.2) arc(135:225:.2) -- cycle;},
}
\tikzset{%
  natoapp6c/s/radio teletype/.pic={%
    \path[draw] (-.2,.25) -- (.2,.25) (-.15,.18) -- (.15,.18)
                (0,.25) -- (0,-.25)
                ([shift=(30:.1)]0,-.15) arc(30:330:.1);},
}
\tikzset{%
  natoapp6c/s/railroad/.pic={%
    \ifn@to@pp@below%
      \path[pic actions] (M.south west) -- (M.south east)
        ([shift={(.08,-0.08)}]M.south west) circle(.08)
        ([shift={(.24,-0.08)}]M.south west) circle(.08)
        ([shift={(-.08,-0.08)}]M.south east) circle(.08)
        ([shift={(-.24,-0.08)}]M.south east) circle(.08);
    \else
      \path[pic actions]  (-.45,.08) -- (.45,.08)
        (-.37,0) circle(0.08)
        (-.21,0) circle(0.08)
        (.21,0) circle(0.08)
        (.37,0) circle(0.08);
    \fi
   },
}
\tikzset{%
  natoapp6c/s/reconnaissance/.pic={%
    \path[draw] (M.north east)--(M.south west);},
}
\tikzset{
  natoapp6c/s/reconnaissance artillery/.pic={
    \path[draw] (M.north east)--(M.south west);,
    \path[pic actions,fill=pgfstrokecolor] circle(0.2);},
}
\tikzset{%
  natoapp6c/s/recovery unmanned systems/.pic={%
    \path[draw] (-.5,.15) to [out=-80,in=180] (0,-.15) to
    [out=0,in=260] (.5,.15);},
}
\tikzset{%
  natoapp6c/s/rifle/.pic={%
    \pic[draw]{natoapp6c/s/weapon=full};
    \pic[draw]{natoapp6c/s/weapon=rifle};},
}
\tikzset{%
  natoapp6c/s/rising/.pic={
    \path[draw,fill=pgfstrokecolor] (0, 0.2) -- (0, -0.167)
    (0.1, -0.2) -- (-0.1, -0.2) -- (0, 0.0);},
}
\tikzset{%
  natoapp6c/s/riverine/.pic={%
    \ifn@to@pp@below%
      \path[pic actions] (M.south west)
        to [out=-90,in=-90,looseness=.5] (M.south east) -- cycle;
    \else%
      \path[pic actions] (-.5,.15) to [out=-80,in=180] (0,-.15) to
      [out=0,in=260] (.5,.15) -- cycle;
    \fi},
}
\tikzset{%
  pics/natoapp6c/s/rocket launcher/.is choice,
  pics/natoapp6c/s/rocket launcher/base/.style={
    code={
      \pic[draw]{natoapp6c/s/weapon=base};
      \pic[draw]{natoapp6c/s/weapon=rifle};
      \pic[yshift=-4,draw]{natoapp6c/s/weapon=rifle};
    }},
  pics/natoapp6c/s/rocket launcher/anti tank/.style={
    code={
      \pic[draw]{natoapp6c/s/rocket launcher=base};
      \pic[draw]{natoapp6c/s/weapon=anti tank};
    }},
  pics/natoapp6c/s/rocket launcher/single/.style={
    code={
      \pic[draw]{natoapp6c/s/rocket launcher=base};
      \pic[draw]{natoapp6c/s/weapon=bottom};}},
  pics/natoapp6c/s/rocket launcher/multiple/.style={
    code={
      \pic[draw]{natoapp6c/s/rocket launcher=single};
      \pic[yshift=-6,draw]{natoapp6c/s/weapon=multi fire};}},
  pics/natoapp6c/s/rocket launcher/single head/.style={
    code={%
      \pic[yshift=4,draw]{natoapp6c/s/weapon=rifle};}},
  pics/natoapp6c/s/rocket launcher/multiple head/.style={
    code={
      \pic[yshift=-4,draw]{natoapp6c/s/weapon=rifle};
      \pic[yshift=-6,draw]{natoapp6c/s/weapon=rifle};
    }},
  pics/natoapp6c/s/rocket launcher/.default=single,
}
\tikzset{%
  natoapp6c/s/rotary wing/.pic={
    \path[pic actions]
      (0.44, 0.15) -- (0.44, -0.15) -- (-0.44, 0.15) -- (-0.44, -0.15) --
      cycle;},
}
\tikzset{%
  natoapp6c/s/runway/.pic={%
    \path[draw] (-.3,-.15) -- (.3,-.15) (-.2,-.2) -- (.2,.2);},
}
\tikzset{%
  natoapp6c/s/sailing boat/.pic={%
    \path[draw]
    (-0.15, -0.2)  --
    ( 0.15, -0.2)   --
    ( 0.25, -0.025) --
    (-0.25, -0.025) -- cycle
    ( 0,    -0.025) -- (0, 0.2)
    (0.025,  0)     -- (0.025, 0.19) -- (0.225, 0) -- cycle;},
}
\tikzset{%
  pics/natoapp6c/s/satellite/.is choice,
  pics/natoapp6c/s/satellite/none/.style={
    code={
      \iftikz@mode@fill
      \def\n@to@pp@next{\path[draw,fill=pgfstrokecolor,pic actions]}
      \else
      \def\n@to@pp@next{\path[pic actions]}
      \fi
      \n@to@pp@next
      ( 0.45,  0.075) rectangle ( 0.15,  -0.075)
      ( 0.075, 0.075) rectangle (-0.075, -0.075)
      (-0.45,  0.075) rectangle (-0.15,  -0.075)
      ( 0.15,  0) -- (0.075, 0)
      (-0.15,  0) -- (-0.075, 0);
    }},
  pics/natoapp6c/s/satellite/astronomical/.style={
    code={
      \begingroup\tikz@picmode
        \pic{natoapp6c/s/satellite=none};
      \endgroup
      \path[pic actions]
      (0.04, 0.075) rectangle (-0.04, 0.2)
      (0.02, -0.075) rectangle (-0.02, -0.2);}},
  pics/natoapp6c/s/satellite/bio/.style={
    code={
      \begingroup\tikz@picmode
      \pic[yshift=-1]{natoapp6c/s/satellite=none};
      \endgroup
      \path[pic actions]
      (-0.075, 0.13) circle (0.07)
      ($(-0.075, 0.13) + (60:0.07)$) --
      ++(-30:0.22) -- ++(0, -0.025) -- (-0.005, 0.13) -- cycle;
    }},
  pics/natoapp6c/s/satellite/communications/.style={
    code={
      \begingroup\tikz@picmode
      \pic[yshift=-1]{natoapp6c/s/satellite=none};
      \endgroup
      \path[pic actions]
      (0, 0.075) -- (0, 0.125)
      (0, 0.125) arc (270:340:0.25 and 0.1)
      (0, 0.125) arc (270:200:0.25 and 0.1);
    }},
 pics/natoapp6c/s/satellite/navigation/.style={
    code={
      \begingroup\tikz@picmode
      \pic[yshift=-3.75,scale=.9]{natoapp6c/s/satellite=none};
      \endgroup
      \pic[scale=.5,yshift=3.5]{natoapp6c/s/navigation};
    }},
  pics/natoapp6c/s/satellite/earth observing/.style={
    code={
      \begingroup\tikz@picmode
      \pic[yshift=3.75, scale=0.9]{natoapp6c/s/satellite=none};
      \endgroup
      \path[pic actions]
      (0, 0.065) -- +(315:0.125)
      (0, 0.065) -- +(225:0.125)
      (0, -0.12) circle (0.08);
    }},
  pics/natoapp6c/s/satellite/tether/.style={
    code={
      \begingroup\tikz@picmode
      \pic[yshift=-3.75, scale=0.9]{natoapp6c/s/satellite=none};
      \endgroup
      \path[pic actions]
      (0, -0.066) -- +(30:0.3)
      (0, -0.066) +(30:0.375) circle(0.075);
    }},
  pics/natoapp6c/s/satellite/small/.style={
    code={
      \begingroup\tikz@picmode
      \pic[scale=0.6]{natoapp6c/s/satellite=none};
      \endgroup
      \path[pic actions]
      (0.05,  0.2)  -- ( 0,   0.1) -- (-0.05,  0.2)
      (0.05, -0.2)  -- ( 0,  -0.1) -- (-0.05, -0.2)
      (-0.4,  0.05) -- (-0.3, 0)   -- (-0.4,  -0.05)
      ( 0.4,  0.05) -- ( 0.3, 0)   -- ( 0.4,  -0.05);
    }},
  pics/natoapp6c/s/satellite/reconnaissance/.style={
    code={
      \pic[yshift=-1,fill=pgfstrokecolor]{natoapp6c/s/satellite=none};
      \path[pic actions]
      (-0.075, -0.05) -- +(250:0.1)
      (-0.025, -0.05) -- +(260:0.1)
      ( 0.025, -0.05) -- +(280:0.1)
      ( 0.075, -0.05) -- +(290:0.1);
    }},
  pics/natoapp6c/s/satellite/.default=none,
}
\tikzset{%
  pics/natoapp6c/s/sea mine/.is choice,
  pics/natoapp6c/s/sea mine/top half/.style={
    code={\path[draw,join=bevel,pic actions]
      (.2,0) arc(0:35:.2 and .175) --
      (42:.34 and .3) -- (48:.34 and .3) --
      % ($(45:.1) + (40:.2)$) -- ($(45:.1)+(50:.2)$) --
      (55:.2 and .175) arc(50:75:.2 and .175) --
      (80:.26 and .23) -- (100:.26 and .23) --
      (105:.2 and .175) arc(100:125:.2 and .175) --
      (132:.34 and .3) -- (138:.34 and .3) --
      %($(135:.1)+(130:.2)$) -- ($(135:.1)+(140:.2)$) --
      (145:.2 and .175) arc(145:180:.2 and .175);
    }},
  pics/natoapp6c/s/sea mine/bottom half/.style={
    code={
      \path[pic actions] (.2,0) arc(0:-180:.2);}},
  pics/natoapp6c/s/sea mine/full/.style={
    code={
      \pic[fill=pgfstrokecolor]{natoapp6c/s/sea mine/top half};
      \pic[fill=pgfstrokecolor]{natoapp6c/s/sea mine/bottom half};}},
  pics/natoapp6c/s/sea mine/neutralised/.style={
    code={
      \begin{scope}[even odd rule]
        \clip [rotate=42]  (-.4,-.015) rectangle (.4,.015) [reverseclip];
        \clip [rotate=-42] (-.4,-.015) rectangle (.4,.015) [reverseclip];
        \pic {natoapp6c/s/sea mine=full};
      \end{scope}
    }},
  pics/natoapp6c/s/sea mine/neutralized/.style=natoapp6c/s/sea mine/neutralised,
  pics/natoapp6c/s/sea mine/.default=full,
}
\tikzset{%
  natoapp6c/s/seabed installation/.pic={%
    \path[pic actions]
    (-0.25, -0.2)   --
    ( 0.25, -0.2)   --
    ( 0.25, -0.075) --
    ( 0.05, -0.075) --
    ( 0.05,  0.025) --
    (-0.125, 0.025) --
    (-0.125, 0.2)   --
    (-0.25,  0.2)   -- cycle;},
}
\tikzset{%
  natoapp6c/s/search/.pic={%
    \path[draw] (-.3,-.2)--(0,-.4)--(.3,-.2) (0,.4)--(0,-.4);},
}
\tikzset{%
  natoapp6c/s/searching/.pic={%
    \path[pic actions]
    (-0.4, 0)
    arc (180:0:0.1)
    arc (180:360:0.1)
    arc (180:0:0.1)
    arc (180:270:0.1) -- +(0.1, 0)
    (0.3, -0.05) -- (0.4, -0.1) -- (0.3, -0.15);},
}
\tikzset{%
  natoapp6c/s/semi trailer truck/.pic={
    \pic[scale=.75,xshift=-2,draw]{natoapp6c/s/utility vehicle};
    \path[pic actions] (0.21, -0.025) -- (0.35, -0.025)
    (0.35, 0.05) -- (0.35, -0.1);},
}
\tikzset{%
  natoapp6c/s/sensor/.pic={%
    \path[fill=pgfstrokecolor] (-.3,0) arc (270:360:.3) arc (180:270:.3) arc
    (90:180:.3) arc (0:90:.3);},
}
\tikzset{%
  natoapp6c/s/ship/.pic={%
    \path[pic actions]
    (-0.2, -0.2)  --
    ( 0.2, -0.2)  --
    ( 0.35, 0.05) --
    ( 0.15, 0.05) --
    ( 0.15, 0.2)  --
    (-0.15, 0.2)  --
    (-0.15, 0.05) --
    (-0.35, 0.05) --
    cycle;},
}
\tikzset{%
  natoapp6c/s/signal/.pic={%
    \path[draw] (M.north west) -- (0,-.1) -- (0,.1) -- (M.south east);},
}
\tikzset{%
  natoapp6c/s/signals intelligence/.pic={%
    \path[draw] (-.2,.2) -- (-.13,.25) -- (-.07,.2) -- (0,.25) --
    (.07,.2) -- (.13,.25) -- (.2,.2) (0,.25) -- (0,-.2);},
}
\tikzset{%
  natoapp6c/s/ski/.pic={
    \path[draw] (-.15,-.15) -- (.1,.2) (.15,-.15) -- (-.1,.2)
      (-.1,-.2) -- (-.2,-.1)
      (.1,-.2) -- (.2,-.1);
    },
}
\tikzset{%
  natoapp6c/s/sled/.pic={
    \ifn@to@pp@below%
      \draw ([shift={(-.15,.15)}]M.south west) to[in=180, out=-90]
        ++(.15,-.15) -- (M.south east) to[in=-90, out=0]
        ([shift={(.15,.15)}]M.south east);
    \else%
      \draw ([shift={(.3,.1)}]M.west) to[in=180, out=-90]
        ([shift={(.5,-.1)}]M.west) --
        ([shift={(-.5,-.1)}]M.east) to[in=-90, out=0]
        ([shift={(-.3,.1)}]M.east);
    \fi
    },
}
\tikzset{%
  pics/natoapp6c/s/small squashed text/.style={
    code={\n@to@pp@text@smallsquashed{#1};}},
}
\tikzset{%
  pics/natoapp6c/s/small text/.style={code={\n@to@pp@text@small{#1};}},
}
\tikzset{%
  natoapp6c/s/sniper/.pic={%
    \path[draw] (-.2,.2)--(-.05,.2) (.05,.2)--(.2,.2) (0,.15)--(0,-.2);},
}
\tikzset{%
  natoapp6c/s/space station/.pic={
    \path[join=bevel,pic actions]
    (-80:.15 and .06) -- (0.025, 0.175) arc(0:180:0.025) -- (-100:.15 and .06)
    ($(80:.25 and 0.1)+(0,-.0125)$) arc(80:-260:.25 and .1) --
    (-260:.15 and .06)              arc (-260:80:.15 and .06) -- cycle
    (-82:.25 and .1) -- (0.025, -0.175) arc(360:180:0.025) -- (-98:.25 and .1);
  },
}
\tikzset{%
  pics/natoapp6c/s/squashed text/.style={code={\n@to@pp@text@squashed{#1};}},
}
\tikzset{%
  natoapp6c/s/submarine/.pic={
    \path[fill=pgfstrokecolor,pic actions]
    (0.4, 0) --
    (0.25, 0.15) --
    (-0.25, 0.15) --
    (-0.4, 0) --
    (-0.25, -0.15) --
    (0.25, -0.15) -- cycle;},
}
\tikzset{%
  natoapp6c/s/submersible/.pic={
    \path[pic actions]
    ($(0, -0.05) + (106.6:0.35 and 0.15)$)
    arc (106.6:433.4:0.35 and 0.15) |- (0, 0.2) -| cycle;
  },
}
\tikzset{%
  natoapp6c/s/supply/.pic={
    \path[pic actions]
    ($(M.east)-(0,.25)$)--($(M.west)-(0,.25)$);},
}
\tikzset{%
  natoapp6c/s/surface combatant/.pic={
    \pic {natoapp6c/s/warfare vessel};
    \path[draw,fill=pgfstrokecolor]
    (0.12, 0.05) --
    (0.12, 0.14) --
    (0.06, 0.14) --
    (0.06, 0.2) --
    (0.24, 0.2) --
    (0.24, 0.272) --
    (0.06, 0.272) --
    (0.06, 0.35) --
    (-0.06, 0.35) --
    (-0.06, 0.272) --
    (-0.24, 0.272) --
    (-0.24, 0.2) --
    (-0.06, 0.2) --
    (-0.06, 0.14) --
    (-0.12, 0.14) --
    (-0.12, 0.05) -- cycle;},
}
\tikzset{%
  natoapp6c/s/survey/.pic={
    \path[draw,fill=pgfstrokecolor,pic actions]
    (0, -0.1) -- (0, 0.195) -- (0.25, 0.0475) -- cycle;
    \path[pic actions] (0.1, -0.2) -- (0, -0.1) -- (-0.1, -0.2);},
}
\tikzset{%
  natoapp6c/s/tactical satellite/.pic={
    \path[fill=pgfstrokecolor,draw]
    (-.3,-.2) rectangle(-.15,.2)
    (.15,-.2) rectangle( .3,.2)
    (-.075,-.15) rectangle (.075,.15)
    (-.15,0) -- (.15,0)
    (0,-.15) -- (0,-.3);
    \path[draw] (-.2,-.35) to [out=40,in=140,looseness=1] (.2,-.35);},
}
\tikzset{%
  natoapp6c/s/tank/.pic={%
    \pic[draw]{natoapp6c/s/vehicle};
    \path[pic actions] ( 0.35,  0.2) -- (-0.35,  0.2);},
}
\tikzset{%
  pics/natoapp6c/s/text/.style={code={%
      \n@to@pp@dbg{3}{Text: `#1'}%
      \n@to@pp@text@normal{#1};}},
}
\tikzset{%
  natoapp6c/s/topographic/.pic={
    \path[draw] (0,.05) -- (0,.2)
       (0,.05) -- (-.1,-.2)
       (0,.05) -- (.1,-.2)
       (-30:.15) arc[radius=.15,start angle=-30,end angle=-150];},
}
\tikzset{%
  natoapp6c/s/torpedo/.pic={
    \path[draw,fill=pgfstrokecolor,pic actions]
    (-0.35,  0) --
    (-0.3,   0.075) --
    ( 0.25,  0.075) --
    ( 0.35, -0.075) --
    ( 0.35,  0.075) --
    ( 0.25, -0.075) --
    (-0.3,  -0.075) -- cycle;},
}
\tikzset{%
  natoapp6c/s/towed/.pic={
    \ifn@to@pp@below%
      \path[pic actions] (M.south east) -- (M.south west)
      ([shift={(.08,0)}]M.south east) circle(.08)
      ([shift={(-.08,0)}]M.south west) circle(.08);
    \else%
      \path[draw] (-.32,0) -- (.32,0) (-.4,0) circle(.08) (.4,0) circle(.08);%
    \fi},
}
\tikzset{%
  natoapp6c/s/tracked/.pic={
    \ifn@to@pp@below%
      \path[pic actions]
      ([shift={(.08,-.16)}]M.south west)
      arc [radius=.08,start angle=-90,end angle=-270]
      -- ([shift={(-.08,0)}]M.south east)
      arc [radius=.08,start angle=90,end angle=-90]
      -- cycle;
    \else%
      \path[pic actions]
      (-.3,-.1) arc [radius=.1,start angle=-90,end angle=-270]
      -- (.3,.1) arc [radius=.1,start angle=90,end angle=-90]
      -- cycle;
    \fi},
}
\tikzset{%
  natoapp6c/s/train locomotive/.pic={
    \path[pic actions]
    (.35,-.3)--(-.35,-.3)--(-.35,.3)--(0,.3)--(0,0)--(0.35, 0)--cycle;},
}
\tikzset{%
  natoapp6c/s/transportation/.pic={
    \path[pic actions] (0,0) circle(.2)
    (180:.2) --   (0:.2)
    (225:.2) --  (45:.2)
    (270:.2) --  (90:.2)
    (315:.2) -- (135:.2) ;},
}
\tikzset{%
  natoapp6c/s/unexploded ordnance/.pic={
    \begin{scope}[transparency group=knockout]
      \path[draw,fill=pgfstrokecolor,pic actions] (0,0) circle(.2);
      \pic[opacity=0]{natoapp6c/s/small squashed text=UXO};
    \end{scope}},
}
\tikzset{%
  natoapp6c/s/unmanned/.pic={
    \path[pic actions]
      (0,-0.1)
      --(0.45,0.05)
      --(0.45,0.1)
      --(0,0.025)
      --(-0.45,0.1)
      --(-0.45,0.05)
      --cycle;},
}
\tikzset{%
  natoapp6c/s/utility vehicle/.pic={%
    \pic[draw]{natoapp6c/s/vehicle};
    \path[pic actions]
    (0.35, 0.3) to[in=-90, out=-90, looseness=1] (-0.35, 0.3); },
}
\tikzset{%
  natoapp6c/s/vehicle/.pic={
    \path[pic actions]
    (-0.35,  0.2) -- (-0.35, -0.2) -- ( 0.35, -0.2) -- ( 0.35, 0.2)
    (-0.35, -0.2) -- (-0.35, -0.3)
    (0.35,  -0.2) -- ( 0.35, -0.3)
    (-0.35,  0.2) -- (-0.35,  0.3)
    (0.35,   0.2) -- ( 0.35,  0.3);}
}
\tikzset{%
  natoapp6c/s/video imagery/.pic={
    \path[pic actions]
    (-0.4, 0.2) -- (-0.4, -0.2) -- (0.05, -0.2) -- (0.2, 0.2) -- cycle
    (0.075, -0.15) -- (0.4, -0.15)
    (0.16, 0.1) -- (0.4, 0.1);
    \path[draw,fill=pgfstrokecolor,pic actions](0.38,-.2) rectangle (0.42,.15);},
}
\tikzset{%
  natoapp6c/s/warfare vessel/.pic={
    \path[draw,fill=pgfstrokecolor] (0, -0.2) -- (0.3, 0.05) -- (-0.3, 0.05) -- cycle;},
}
\tikzset{%
  natoapp6c/s/water/.pic={
    \path[pic actions]
    (-0.3, 0.05) -- (0, 0.05) to[in=90, out=0] (0.3, -0.2)
    (0, 0.05) -- (0, 0.2)
    (0.075, 0.2) -- (-0.075, 0.2);},
}
\tikzset{%
  pics/natoapp6c/s/wheeled/.is choice,
  pics/natoapp6c/s/wheeled/and tracked/.style={
    code={
      \ifn@to@pp@below%
        \path[pic actions]
          ([shift={(.4,-.16)}]M.south west)
          arc [radius=.08,start angle=-90,end angle=-270]
          -- ([shift={(-.08,0)}]M.south east)
          arc [radius=.08,start angle=90,end angle=-90]
          -- cycle
          ([shift={(.08,-.08)}]M.south west) circle(.08);
      \else%
        \path[pic actions]
        (-.1,-.08) arc [radius=.08,start angle=-90,end angle=-270]
        -- (.32,.08) arc [radius=.08,start angle=90,end angle=-90]
        -- cycle
        (-.4,0) circle(0.08);
      \fi}},
  pics/natoapp6c/s/wheeled/limited/.style={
    code={
      \ifn@to@pp@below%
        \path[pic actions] (M.south west) -- (M.south east)
           ([shift={(.08,-.08)}]M.south west) circle(.08)
           ([shift={(-.08,-.08)}]M.south east) circle(.08);
      \else
        \path[pic actions] (-.4,.08) -- (.4,.08)
          (-.32,0) circle(0.08) (.32,0) circle(0.08);
     \fi}},
  pics/natoapp6c/s/wheeled/cross country/.style={
    code={\pic{natoapp6c/s/wheeled=limited};
      \ifn@to@pp@below%
        \path[pic actions] ([shift={(0,-.08)}]M.south) circle(.08);
      \else
        \path[pic actions] (0,0) circle(0.08);
     \fi}},
  pics/natoapp6c/s/wheeled/semi/.style={
     code={\pic{natoapp6c/s/wheeled=limited};
      \ifn@to@pp@below%
        \path[pic actions] ([shift={(.24,-.08)}]M.south west) circle(.08);
      \else
        \path[pic actions] (-.16,0) circle(0.08);
     \fi}},
  pics/natoapp6c/s/wheeled/.default=limited,
}
\tikzset{%
  natoapp6c/s/prison/.pic={
    \path[pic actions] (-.3,-.3)rectangle(.3,.3)
    (-.23,-.30)--(-.23, .3)
    ( .23,-.30)--( .23, .3)
    (-.08,-.30)--(-.08,-.2)
    (-.08,-.15) circle (.05)
    (-.08,-.1) --(-.08, .3)
    ( .08,-.30)--( .08,-.2)
    ( .08,-.15) circle (.05)
    ( .08,-.1) --( .08, .3)
    (0,.15) circle(.07 and .1);
  },
}
\tikzset{
  pics/kriegspiel/s/.unknown/.code={
    \message{^^JTry regular `natoapp6c/s/\pgfkeyscurrentname'}
    % \pic[pic actions,draw=black]{natoapp6c/s/\pgfkeyscurrentname};
    \pgfkeysalso{/tikz/pics/natoapp6c/s/\pgfkeyscurrentname/.try}
  },
  ks debug frame/.style={
    draw=none,
    %draw=magenta,
    %dashed,
  },
  kriegspiel/s/infantry/.pic={
    \coordinate(a) at (M.south west);
    \coordinate(b) at ($(M.north east)+(0,-.2)$);
    \@ifundefinedcolor{pgffillcolor}{}{
      \path[fill=pgffillcolor](a)rectangle(b);}
    \path[pic actions,fill=none](a)rectangle(b);
    \path[pic actions,fill=none](a)--(b);
    \path[pic actions,fill=none] let
    \p1=(a),\p2=(b) in (\x2,\y1)--(\x1,\y2);
    \path[fill=pgfstrokecolor] let
    \p2=(b) in (-.05,\y2)rectangle++(.1,.2);
    \draw[ks debug frame](M.south west)rectangle(M.north east);
  },
  kriegspiel/s/reconnaissance/.pic={
    \coordinate(a) at (M.south west);
    \coordinate(b) at ($(M.north east)+(0,-.2)$);
    \@ifundefinedcolor{pgffillcolor}{}{
      \path[fill=pgffillcolor](a)rectangle(b);}
    \path[pic actions,fill=none](a)rectangle(b);
    \path[fill=pgfstrokecolor] (a)--(b)--(a|-b)--cycle;
    \path[fill=pgfstrokecolor] let
    \p2=(b) in
    (-.05,\y2)--++(0,.2)--++(-10:.4)--++(-170:.3)--(.05,\y2)--cycle;
    \draw[ks debug frame](M.south west)rectangle(M.north east);
  },
  kriegspiel/s/artillery/.pic={
    \coordinate(a) at (M.south west);
    \coordinate(b) at ($(M.north east)+(0,-.5)$);
    \@ifundefinedcolor{pgffillcolor}{}{
      \path[fill=pgffillcolor](a)rectangle(b);}
    \path[pic actions,fill=none](a)rectangle(b);
    %\path[pic actions](a)rectangle(b);
    \foreach \s in {-.8,0,.8}{
      \path[fill=pgfstrokecolor] let
      \p2=(b),%
      \n1={\y2+\pgflinewidth} in
      (\s-.04,\y2)rectangle++( .08,.5)
      ($(\s-.18,\n1)+(0,.05)$)rectangle++( .08,.2)
      ($(\s+.18,\n1)+(0,.05)$)rectangle++(-.08,.2);
    }
    \draw[ks debug frame](M.south west)rectangle(M.north east);
  },
  kriegspiel/s/reconnaissance artillery/.pic={
    \coordinate(a) at (M.south west);
    \coordinate(b) at ($(M.north east)+(0,-.5)$);
    \@ifundefinedcolor{pgffillcolor}{}{
      \path[fill=pgffillcolor](a)rectangle(b);}
    \path[pic actions,fill=none](a)rectangle(b);
    %\path[pic actions](a)rectangle(b);
    \path[fill=pgfstrokecolor] (a)--(b)--(a|-b)--cycle;
    \foreach \s in {-.8,0,.8}{
      \path[fill=pgfstrokecolor] let
      \p2=(b),%
      \n1={\y2+\pgflinewidth} in
      (\s-.04,\y2)rectangle++( .08,.5)
      ($(\s-.18,\n1)+(0,.05)$)rectangle++( .08,.2)
      ($(\s+.18,\n1)+(0,.05)$)rectangle++(-.08,.2);
    }
    \draw[ks debug frame](M.south west)rectangle(M.north east);
  }
}

\def\n@to@pp@s@ll{
  weapon=base,
  weapon=top,
  weapon=bottom,
  weapon=rifle,
  weapon=machine gun,
  weapon=grenade launcher,
  weapon=missile launcher,
  weapon=non lethal,
  weapon=multi fire,
  weapon=air defence,
  weapon=anti tank,
  weapon=full,
  weapon,
  type=light,
  type=medium,
  type=heavy,
  type=vlight,
  type=vmedium,
  type=vheavy,
  type,
  above corps support,
  air assault with organic lift,
  air decoy,
  air assault,
  air defence,
  air strip,
  air traffic,
  airship,
  airborne,
  ammunition,
  amphibious,
  amphibious warfare ship,
  analysis,
  arrest,
  artillery,
  anti tank anti armour,
  antenna,
  armoured,
  armoured fighting vehicle,
  armoured personnel carrier,
  arctic,
  automobile,
  balloon,
  bar,
  base,
  bicycle equipped,
  boat,
  booby trap,
  bottomed,
  bridge=none,
  bridge=fixed,
  bridge=folding,
  bridge=hollow,
  bridge,
  capsule,
  carrier,
  chemical biological radiological nuclear,
  civilian military cooperation,
  civilian police,
  civilian telecommunications,
  coast guard vessel,
  combat support,
  combatant,
  combined arms,
  computer system,
  control,
  convoy,
  corps support,
  crime,
  decoy,
  direct communications,
  direction finding,
  diving=none,
  diving=military,
  diving,
  drilling,
  earthmover,
  electric power,
  electronic ranging,
  electronic warfare wide,
  engineer,
  enhanced location reporting system,
  environmental protection,
  explosion,
  finance,
  fishing vessel,
  fire protection,
  fixed and rotary wing,
  fixed wing,
  flame thrower,
  floating,
  surfaced,
  food,
  fuel,
  grenade launcher=none,
  grenade launcher=non lethal,
  grenade launcher,
  graffiti,
  group,
  gun=base,
  gun=air defence,
  gun=anti tank,
  gun=direct,
  gun=recoilless,
  gun,
  headquarters,
  house,
  howitzer,
  in position,
  individual,
  infantry,
  intermodal,
  jagged wave,
  jam,
  jamming,
  jetski,
  killing,
  labour,
  land mine=personnel,
  land mine=tank,
  land mine=none,
  land mine,
  land missile,
  laser,
  launcher,
  laundry,
  machine gun,
  main gun,
  maintenance,
  medic,
  medical,
  medical treatment,
  mine,
  mine clearing equipment,
  mine warfare vessel,
  missile,
  missile launcher=base,
  missile launcher=none,
  missile launcher=air defence,
  missile launcher=anti tank,
  missile launcher=surface to surface,
  missile launcher,
  mobile advisor and support,
  moored,
  mortar,
  motorized,
  mortuary affairs,
  mountain,
  naval,
  navigation,
  navy task,
  non combatant,
  non lethal weapon,
  nuclear,
  observer,
  orbiter shuttle,
  ordnance,
  organisation,
  over snow,
  pack animal,
  patrol,
  patrolling,
  physician,
  pipeline,
  poisoning,
  postal,
  printed media,
  psychological,
  quarry,
  quartermaster,
  radar,
  radio,
  radio relay,
  radio relay line of sight,
  radio teletype,
  railroad,
  reconnaissance,
  recovery unmanned systems,
  rifle,
  rising,
  riverine,
  rocket launcher=base,
  rocket launcher=anti tank,
  rocket launcher=single,
  rocket launcher=multiple,
  rocket launcher=single head,
  rocket launcher=multiple head,
  rocket launcher,
  rotary wing,
  runway,
  sailing boat,
  satellite=none,
  satellite=astronomical,
  satellite=bio,
  satellite=communications,
  satellite=navigation,
  satellite=earth observing,
  satellite=tether,
  satellite=small,
  satellite=reconnaissance,
  satellite,
  sea mine=top half,
  sea mine=bottom half,
  sea mine=full,
  sea mine=neutralised,
  sea mine=neutralized,
  sea mine,
  seabed installation,
  search,
  searching,
  semi trailer truck,
  sensor,
  ship,
  signal,
  signals intelligence,
  ski,
  sled,
  small squashed text=TXT,
  small text=TXT,
  sniper,
  space station,
  squashed text=TXT,
  submarine,
  submersible,
  supply,
  surface combatant,
  survey,
  tactical satellite,
  tank,
  text=TXT,
  topographic,
  torpedo,
  towed,
  tracked,
  train locomotive,
  transportation,
  unexploded ordnance,
  unmanned,
  utility vehicle,
  vehicle,
  video imagery,
  warfare vessel,
  water,
  wheeled=and tracked,
  wheeled=limited,
  wheeled=cross country,
  wheeled=semi,
  wheeled
}
%% Local Variables:
%%   mode: LaTeX
%% End:
%%
%% End of file `tikzlibrarywargame.natoapp6c.code.tex'.
