\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}[{\tt\mc \kern0.500em}output{\tt\_\kern.141em}args{\tt\mc \kern0.500em}]{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}plotwabe({\tt\mc \kern0.500em}wabenIndex,{\tt\mc \kern0.500em}plotachse,{\tt\mc \kern0.500em}farbe{\tt\mc \kern0.500em})

\noindent
{}{\tt\%}PLOTWABE{\tt\mc \kern0.500em}Markiert{\tt\mc \kern0.500em}eine{\tt\mc \kern0.500em}einzige{\tt\mc \kern0.500em}Wabe{\tt\mc \kern0.500em}graphisch{\tt\mc \kern0.500em}als{\tt\mc \kern0.500em}bebaut

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}Detailed{\tt\mc \kern0.500em}explanation{\tt\mc \kern0.500em}goes{\tt\mc \kern0.500em}here

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

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

\noindent
{}\hfill

\noindent
{}ecken{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}EckPunkte(wabenIndex);

\noindent
{}\hfill

\noindent
{}{\tt\%}{\tt\mc \kern0.500em}knotenX{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}[{\tt\mc \kern0.500em}Wabengitter(1,ecken){\tt\mc \kern0.500em}Wabengitter(1,ecken(1)){\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern1.000em}{\tt\%}{\tt\mc \kern5.000em}Wabengitter(1,ecken){\tt\mc \kern0.500em}Wabengitter(1,ecken(1)){\tt\mc \kern0.500em}];

\noindent
{}{\tt\%}{\tt\mc \kern0.500em}knotenY{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}[{\tt\mc \kern0.500em}Wabengitter(2,ecken){\tt\mc \kern0.500em}Wabengitter(2,ecken(1)){\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern1.000em}{\tt\%}{\tt\mc \kern5.000em}Wabengitter(2,ecken){\tt\mc \kern0.500em}Wabengitter(2,ecken(1)){\tt\mc \kern0.500em}];

\noindent
{}{\tt\%}{\tt\mc \kern0.500em}knotenZ{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}[{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}];

\noindent
{}\hfill

\noindent
{}knoten{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}[{\tt\mc \kern0.500em}Wabengitter(1,ecken){\tt\mc \kern0.500em}Wabengitter(1,ecken);{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.500em}Wabengitter(2,ecken){\tt\mc \kern0.500em}Wabengitter(2,ecken);{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}0{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}]';

\noindent
{}{\tt\mc \kern3.500em}

\noindent
{}seiten{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}[{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}2{\tt\mc \kern0.500em}3{\tt\mc \kern0.500em}4{\tt\mc \kern0.500em}5{\tt\mc \kern0.500em}6;{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.500em}7{\tt\mc \kern0.500em}8{\tt\mc \kern0.500em}9{\tt\mc \kern0.500em}10{\tt\mc \kern0.500em}11{\tt\mc \kern0.500em}12;{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.500em}1{\tt\mc \kern0.500em}2{\tt\mc \kern0.500em}8{\tt\mc \kern0.500em}7{\tt\mc \kern0.500em}NaN{\tt\mc \kern0.500em}NaN;

\noindent
{}{\tt\mc \kern5.500em}2{\tt\mc \kern0.500em}3{\tt\mc \kern0.500em}9{\tt\mc \kern0.500em}8{\tt\mc \kern0.500em}NaN{\tt\mc \kern0.500em}NaN;

\noindent
{}{\tt\mc \kern5.500em}3{\tt\mc \kern0.500em}4{\tt\mc \kern0.500em}10{\tt\mc \kern0.500em}9{\tt\mc \kern0.500em}NaN{\tt\mc \kern0.500em}NaN;

\noindent
{}{\tt\mc \kern5.500em}4{\tt\mc \kern0.500em}5{\tt\mc \kern0.500em}11{\tt\mc \kern0.500em}10{\tt\mc \kern0.500em}NaN{\tt\mc \kern0.500em}NaN;

\noindent
{}{\tt\mc \kern5.500em}5{\tt\mc \kern0.500em}6{\tt\mc \kern0.500em}12{\tt\mc \kern0.500em}11{\tt\mc \kern0.500em}NaN{\tt\mc \kern0.500em}NaN;

\noindent
{}{\tt\mc \kern5.500em}6{\tt\mc \kern0.500em}1{\tt\mc \kern0.500em}7{\tt\mc \kern0.500em}12{\tt\mc \kern0.500em}NaN{\tt\mc \kern0.500em}NaN{\tt\mc \kern0.500em}];

\noindent
{}{\tt\mc \kern5.500em}

\noindent
{}{\tt\%}{\tt\mc \kern0.500em}patch(Wabengitter(1,ecken),{\tt\mc \kern0.500em}Wabengitter(2,ecken),{\tt\mc \kern0.500em}'red',{\tt\mc \kern0.500em}'EdgeColor','black');

\noindent
{}{\tt\%}{\tt\mc \kern0.500em}wabe{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}fill3(knotenX,{\tt\mc \kern0.500em}knotenY,{\tt\mc \kern0.500em}knotenZ,{\tt\mc \kern0.500em}'red');

\noindent
{}if{\tt\mc \kern0.500em}(farbe{\tt\mc \kern0.500em}=={\tt\mc \kern0.500em}1)

\noindent
{}{\tt\mc \kern2.000em}wabenFarbe{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}'red';

\noindent
{}elseif{\tt\mc \kern0.500em}(farbe{\tt\mc \kern0.500em}=={\tt\mc \kern0.500em}2)

\noindent
{}{\tt\mc \kern2.000em}wabenFarbe{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}'green';

\noindent
{}elseif{\tt\mc \kern0.500em}(farbe{\tt\mc \kern0.500em}=={\tt\mc \kern0.500em}3)

\noindent
{}{\tt\mc \kern2.000em}wabenFarbe{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}'blue';

\noindent
{}elseif{\tt\mc \kern0.500em}(farbe{\tt\mc \kern0.500em}=={\tt\mc \kern0.500em}4)

\noindent
{}{\tt\mc \kern2.000em}wabenFarbe{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}'yellow';

\noindent
{}elseif{\tt\mc \kern0.500em}(farbe{\tt\mc \kern0.500em}=={\tt\mc \kern0.500em}5)

\noindent
{}{\tt\mc \kern2.000em}wabenFarbe{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}'magenta';

\noindent
{}elseif{\tt\mc \kern0.500em}(farbe{\tt\mc \kern0.500em}=={\tt\mc \kern0.500em}6)

\noindent
{}{\tt\mc \kern2.000em}wabenFarbe{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}'cyan';

\noindent
{}else

\noindent
{}{\tt\mc \kern2.000em}wabenFarbe{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}'black';

\noindent
{}end

\noindent
{}\hfill

\noindent
{}if{\tt\mc \kern0.500em}(farbe{\tt\mc \kern0.500em}{\tt\char'176}={\tt\mc \kern0.500em}0){\tt\mc \kern0.500em}{\tt\%}{\tt\mc \kern0.500em}Null{\tt\mc \kern0.500em}steht{\tt\mc \kern0.500em}für{\tt\mc \kern0.500em}unbebaut,{\tt\mc \kern0.500em}also{\tt\mc \kern0.500em}wird{\tt\mc \kern0.500em}nichts{\tt\mc \kern0.500em}gezeichnet

\noindent
{}{\tt\mc \kern2.000em}patch('Vertices',knoten,{\tt\mc \kern0.500em}'Faces',seiten,{\tt\mc \kern0.500em}'FaceColor',wabenFarbe,{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.000em}'EdgeColor','black',{\tt\mc \kern0.500em}'LineWidth',1,{\tt\mc \kern0.500em}'Parent',plotachse{\tt\mc \kern0.500em});

\noindent
{}end

\noindent
{}\hfill

\noindent
{}if{\tt\mc \kern0.500em}(animation)

\noindent
{}{\tt\mc \kern2.000em}drawnow;

\noindent
{}end

\noindent
{}\hfill

\noindent
{}end

\noindent
{}\hfill

\noindent
{}

\rm\mc
