summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/wargame/source/natoapp6c/echelon.dtx
blob: a63be2ae4755e6d19a4094f8f4914e6067efd07e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
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