   
\catcode`@=11

%
%-------------------------------------------------------------------------
%--------------------------------------------------  FIGURAS
%-------------------------------------------------------------------------
%
%....Espacio para figura flotante
%
\def\inifigura{\par
               \midinsert
               \null               
               \begingroup}
%
%....Espacio para figuras fijas
%

%\def\inifigurafija{\par
%                   \vskip 16pt plus 12pt minus 4pt
%                   \null
%                   \begingroup}

\def\inifigurafija{\par
                   \vskip 8pt plus 6pt minus 2pt
                   \null
                   \begingroup}


%
%....Espacio para páginas de figuras
%
\def\inifigurapag{\par
                  \pageinsert
                  \null
                  \begingroup}
%
%....Fin de inserción
%
\def\finfigura{\endgroup\smallskip\endinsert}
\def\finfigurapag{\endgroup\endinsert}
\def\finfigurafija{\endgroup\smallskip}
%
%....Contenido de figuras
%
\def\altura=(#1){\par\vskip #1\par}
\newbox\pie
\newbox\pieizquierdo
\newbox\piederecho
\newdimen\figsize
\newdimen\figindent \newdimen\fignarrow \fignarrow=2\parindent
\def\unpie#1#2{
               \setbox\pie=\vtop{
                                 \figsize=\hsize
                                 \advance\leftskip by \fignarrow
                                 \advance\rightskip by \fignarrow
                                 \advance\figsize by -\leftskip
                                 \advance\figsize by -\rightskip
                                 \setbox0=\hbox{#1 #2}
                                 \setbox1=\hbox{#1}
                                 \ifdim\wd0>\figsize
                                   \figindent=0pt
                                 \else
                                   \figindent=\figsize
                                   \advance\figindent by -\wd0
                                   \divide\figindent by 2
                                 \fi
                                 \advance\leftskip by \figindent
                                 \hangindent=\wd1\hangafter=1
                                 \parskip=0pt\parindent=0pt
                                 \leavevmode\box1 #2\par
                                }
             \vbox{\line{\hss\box\pie\hss}}
            }
\def\dospies#1#2#3#4{
            \setbox\pieizquierdo=\vtop{
                                       \elevenpoint
                                       \figsize=\hsize
                                       \divide\figsize by 2
                                       \hsize=\figsize
                                       \advance\hsize by -.75\fignarrow
                                       \setbox0=\hbox{#1 #2}
                                       \ifdim\wd0>\hsize
                                         \setbox1=\hbox{#1}
                                         \parskip=0pt\parindent=0pt
                                         \hangindent=\wd1\hangafter=1
                                         \leavevmode\box1 #2\par
                                       \else
                                         \centerline{\unhbox0}
                                       \fi
                                       }
            \setbox\piederecho=\vtop{
                                     \elevenpoint
                                     \figsize=\hsize
                                     \divide\figsize by 2
                                     \hsize=\figsize
                                     \advance\hsize by -.75\fignarrow
                                     \setbox0=\hbox{#3 #4}
                                     \ifdim\wd0>\hsize
                                       \setbox1=\hbox{#3}
                                       \parskip=0pt\parindent=0pt
                                       \hangindent=\wd1\hangafter=1
                                       \leavevmode\box1 #4\par
                                     \else
                                       \centerline{\unhbox0}
                                     \fi
                                     }
            \vbox{\line{\hss\box\pieizquierdo\hfil\box\piederecho\hss}}
           }
%
%....Volcado de figuras en lista de espera
%
\def\volcarfiguras{\vfil\supereject\nobreak}

\catcode`@=12       % dejamos de utilizar los macros del formato 
                    % PLAIN (tambien cuidadosamente)
