\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}eckpunkte{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}EckPunkte(MittelPunkt)

\noindent
{}{\tt\%}ECKPUNKTE{\tt\mc \kern0.500em}Berechnet{\tt\mc \kern0.500em}die{\tt\mc \kern0.500em}Eckpunkte{\tt\mc \kern0.500em}einer{\tt\mc \kern0.500em}Zelle

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}Für{\tt\mc \kern0.500em}einen{\tt\mc \kern0.500em}gegebenen{\tt\mc \kern0.500em}Zellmittelpunkt{\tt\mc \kern0.500em}werden{\tt\mc \kern0.500em}die{\tt\mc \kern0.500em}Eckpunkte{\tt\mc \kern0.500em}der{\tt\mc \kern0.500em}Zelle{\tt\mc \kern0.500em}als

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}Vektor{\tt\mc \kern0.500em}zurückgegeben.{\tt\mc \kern0.500em}Reihenfolge{\tt\mc \kern0.500em}vom{\tt\mc \kern0.500em}linken{\tt\mc \kern0.500em}Eckpunkt{\tt\mc \kern0.500em}im

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

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

\noindent
{}\hfill

\noindent
{}eckpunkte{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}[{\tt\mc \kern0.500em}MittelPunkt{\tt -}1,{\tt\mc \kern0.500em}...

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

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

\noindent
{}{\tt\mc \kern7.000em}MittelPunkt+1,{\tt\mc \kern0.500em}...

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

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

\noindent
{}\hfill

\noindent
{}end

\noindent
{}\hfill

\noindent
{}

\rm\mc
