\ifx\sevenrm\undefined
  \font\sevenrm=cmr7 scaled \magstep0
\fi

\newread\MyStyle
\openin\MyStyle=src2latex.s2t
\ifeof\MyStyle
  \closein\MyStyle
\else
  \input src2latex.s2t
  \closein\MyStyle
\fi

\ifx\gtfam\undefined
  \ifx\dm\undefined
    \ifx\tendm\undefined
      \def\mc{\null}
    \else
      \def\mc{\tendm}
    \fi
  \else
    \def\mc{\dm}
  \fi
  \ifx\dg\undefined
    \ifx\tendg\undefined
      \def\gt{\null}
    \else
      \def\gt{\tendg}
    \fi
  \else
    \def\gt{\dg}
  \fi
\fi
\ifx\sc\undefined
  \def\sc{\null}
\fi

\tt\mc 

\noindent
function{\tt\mc \kern0.500em}liste{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}nachbarn({\tt\mc \kern0.500em}mittelpunkt{\tt\mc \kern0.500em})

\noindent
{}{\tt\%}NACHBARN{\tt\mc \kern0.500em}Gibt{\tt\mc \kern0.500em}für{\tt\mc \kern0.500em}einen{\tt\mc \kern0.500em}beliebigen{\tt\mc \kern0.500em}Zellenindex{\tt\mc \kern0.500em}eine{\tt\mc \kern0.500em}Liste{\tt\mc \kern0.500em}der{\tt\mc \kern0.500em}Indizes{\tt\mc \kern0.500em}der{\tt\mc \kern0.500em}direkten

\noindent
{}{\tt\%}Nachbarzellen{\tt\mc \kern0.500em}zurück

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}Die{\tt\mc \kern0.500em}zurückgegebene{\tt\mc \kern0.500em}Liste{\tt\mc \kern0.500em}enthält{\tt\mc \kern0.500em}{\tt *}immer{\tt *}{\tt\mc \kern0.500em}sechs{\tt\mc \kern0.500em}Indizes,{\tt\mc \kern0.500em}auch{\tt\mc \kern0.500em}wenn{\tt\mc \kern0.500em}diese

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}außerhalb{\tt\mc \kern0.500em}des{\tt\mc \kern0.500em}Gitters{\tt\mc \kern0.500em}liegen.{\tt\mc \kern0.500em}Ob{\tt\mc \kern0.500em}ein{\tt\mc \kern0.500em}Index{\tt\mc \kern0.500em}gültig{\tt\mc \kern0.500em}ist,{\tt\mc \kern0.500em}muss{\tt\mc \kern0.500em}separat

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}geprüft{\tt\mc \kern0.500em}werden.Die{\tt\mc \kern0.500em}Reihenfolge{\tt\mc \kern0.500em}ist{\tt\mc \kern0.500em}vom{\tt\mc \kern0.500em}oberen{\tt\mc \kern0.500em}Nachbarn{\tt\mc \kern0.500em}beginnend{\tt\mc \kern0.500em}im

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}Uhrzeigersinn.

\noindent
{}\hfill

\noindent
{}global{\tt\mc \kern0.500em}DX;

\noindent
{}\hfill

\noindent
{}liste{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}[{\tt\mc \kern0.500em}mittelpunkt+2{\tt *}DX,{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.000em}mittelpunkt+DX+1+mod(idivide(mittelpunkt,uint32(DX)),2),{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.000em}mittelpunkt{\tt -}DX+1+mod(idivide(mittelpunkt,uint32(DX)),2),{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.000em}mittelpunkt{\tt -}2{\tt *}DX,{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.000em}mittelpunkt{\tt -}DX{\tt -}2+mod(idivide(mittelpunkt,uint32(DX)),2),{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.000em}mittelpunkt+DX{\tt -}2+mod(idivide(mittelpunkt,uint32(DX)),2){\tt\mc \kern0.500em}];

\noindent
{}\hfill

\noindent
{}end

\noindent
{}\hfill

\noindent
{}

\rm\mc
