summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/wargame/source/natoapp6c/frames/unknown.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/wargame/source/natoapp6c/frames/unknown.dtx')
-rw-r--r--macros/latex/contrib/wargame/source/natoapp6c/frames/unknown.dtx483
1 files changed, 483 insertions, 0 deletions
diff --git a/macros/latex/contrib/wargame/source/natoapp6c/frames/unknown.dtx b/macros/latex/contrib/wargame/source/natoapp6c/frames/unknown.dtx
new file mode 100644
index 0000000000..e6bd3aec38
--- /dev/null
+++ b/macros/latex/contrib/wargame/source/natoapp6c/frames/unknown.dtx
@@ -0,0 +1,483 @@
+% \iffalse
+% --------------------------------------------------------------------
+%<*natoapp6c>
+% \fi
+% \subsubsection{`Unknown' node shapes}
+%
+%
+% Macro to define unknown path elements
+%
+% \begin{macrocode}
+\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}}}
+}
+% \end{macrocode}
+%
+% \iffalse
+% ....................................................................
+% \fi
+% \begin{NatoAppFrame}{natoapp6c unknown land}
+%
+% The unknown land command
+%
+% \begin{macrocode}
+\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}}
+}
+% \end{macrocode}
+% \end{NatoAppFrame}
+%
+% \iffalse
+% ....................................................................
+% \fi
+% \begin{NatoAppFrame}{natoapp6c unknown air}
+%
+% The unknown air command. To consider: Should clipping path extend
+% below the actual symbol to include that part of the base symbol?
+%
+% \begin{macrocode}
+\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}%
+ }
+}
+% \end{macrocode}
+% \end{NatoAppFrame}
+%
+% \iffalse
+% ....................................................................
+% \fi
+% \begin{NatoAppFrame}{natoapp6c unknown activity}
+%
+% The unknown activity command. Similar to land command, but with
+% boxes in the the `corners'.
+%
+% \begin{macrocode}
+\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}
+ }
+}
+% \end{macrocode}
+% \end{NatoAppFrame}
+%
+% \iffalse
+% ....................................................................
+% \fi
+% \begin{NatoAppFrame}{natoapp6c unknown equipment}
+%
+% The unknown equipment command. Same as land command.
+%
+% \begin{macrocode}
+\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]
+}
+% \end{macrocode}
+% \end{NatoAppFrame}
+%
+% \iffalse
+% ....................................................................
+% \fi
+% \begin{NatoAppFrame}{natoapp6c unknown installation}
+%
+% The unknown installation command. Similar to land command, but
+% with a `hat' on top. Note, NATO App6(d) makes the `hat' lower
+% part disconnected from the main symbol. I find that ugly, so we
+% do it like NATO App6(c).
+%
+% \begin{macrocode}
+\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}
+ }
+}
+% \end{macrocode}
+% \end{NatoAppFrame}
+%
+% \iffalse
+% ....................................................................
+% \fi
+% \begin{NatoAppFrame}{natoapp6c unknown sea surface}
+%
+% The unknown sea surface command. Same as land command
+%
+% \begin{macrocode}
+\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]
+}
+% \end{macrocode}
+% \end{NatoAppFrame}
+%
+% \iffalse
+% ....................................................................
+% \fi
+% \begin{NatoAppFrame}{natoapp6c unknown space}
+%
+% The unknown space command. Similar to air command, but with a top
+% bar.
+%
+% \begin{macrocode}
+\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}
+ }
+}
+% \end{macrocode}
+% \end{NatoAppFrame}
+%
+% \iffalse
+% ....................................................................
+% \fi
+% \begin{NatoAppFrame}{natoapp6c unknown sub surface}
+%
+% The unknown sub surface command.
+%
+% \begin{macrocode}
+\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}}
+}
+% \end{macrocode}
+% \end{NatoAppFrame}
+% \iffalse
+%</natoapp6c>
+% --------------------------------------------------------------------
+% \fi