diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/wargame/natoapp6c/frames/friendly.dtx')
-rw-r--r-- | Master/texmf-dist/source/latex/wargame/natoapp6c/frames/friendly.dtx | 63 |
1 files changed, 61 insertions, 2 deletions
diff --git a/Master/texmf-dist/source/latex/wargame/natoapp6c/frames/friendly.dtx b/Master/texmf-dist/source/latex/wargame/natoapp6c/frames/friendly.dtx index 22cb99cc974..7f44298a04e 100644 --- a/Master/texmf-dist/source/latex/wargame/natoapp6c/frames/friendly.dtx +++ b/Master/texmf-dist/source/latex/wargame/natoapp6c/frames/friendly.dtx @@ -200,8 +200,8 @@ \pgfdeclareshape{natoapp6c friendly equipment}{% \inheritsavedanchors[from=natoapp6c base] \savedanchor\northeast{% - \pgf@x=\n@to@pp@r% - \pgf@y=\n@to@pp@r} + \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} @@ -446,6 +446,65 @@ % \end{NatoAppFrame} % % \iffalse +% .................................................................... +% \fi +% \begin{NatoAppFrame}{natoapp6c friendly dismounted} +% +% Macro for friendly dismounted command +% +% \begin{macrocode} +\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} +% \end{macrocode} +% +% The friendly dismounted command. The most used command frame. +% +% \begin{macrocode} +\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}% + } +} +% \end{macrocode} +% \end{NatoAppFrame} +% +% \iffalse %</natoapp6c> % -------------------------------------------------------------------- % \fi |