diff options
Diffstat (limited to 'macros/latex/contrib/wargame/source/natoapp6c/echelon.dtx')
-rw-r--r-- | macros/latex/contrib/wargame/source/natoapp6c/echelon.dtx | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/macros/latex/contrib/wargame/source/natoapp6c/echelon.dtx b/macros/latex/contrib/wargame/source/natoapp6c/echelon.dtx new file mode 100644 index 0000000000..a63be2ae47 --- /dev/null +++ b/macros/latex/contrib/wargame/source/natoapp6c/echelon.dtx @@ -0,0 +1,82 @@ +% \iffalse +% -------------------------------------------------------------------- +%<*natoapp6c> +% \fi +% \subsubsection{Echelons} +% +% +% Dimensions +% +% \begin{macrocode} +\def\n@to@pp@e@y{.12} +\def\n@to@pp@e@yy{.24} +% \end{macrocode} +% +% Paths as macros +% +% \begin{macrocode} +\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)} +% \end{macrocode} +% +% Pictures +% +% \begin{macrocode} +\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)$);}}, +} +% \end{macrocode} +% +% \iffalse +% </natoapp6c> +% -------------------------------------------------------------------- +% \fi |