Código para representar poliominós incorrectos para una fila

Question

Estoy usando código (muy ligeramente) adaptado deesta respuestapara renderizar poliominós. Funciona muy bien excepto por dos problemas.

1. La longitud de los poliominós de una sola fila no parece tenerse en cuenta.

2. El segundo problema es que siempre necesito llenar la primera fila con espaciadores para que el espaciado funcione correctamente. (Esto es sólo un inconveniente, por lo que no es tan crítico como el primer problema).

¿Alguien sabe como puedo arreglar esto?

Aquí hay un ejemplo mínimo:

\documentclass{article}

\makeatletter

\def\omino#1{{%
        \unitlength6\p@
        \@tempcnta\z@
        \@tempcntb\@ne
        \count@\z@
        \xomino#1\relax
        \begin{picture}(\@tempcnta,\@tempcntb)(0,-\@tempcntb)%
        \@tempcnta\z@
        \@tempcntb\@ne
        \count@\z@
        \xxomino#1\relax
        \end{picture}%
    }%
}

\def\xomino#1{%
    \ifx\relax#1%
    \else
    \ifx\\#1%
    \ifnum\count@>\@tempcnta \@tempcnta\count@\fi
    \advance\@tempcntb\@ne
    \count@\z@
    \else
    \advance\count@\@ne
    \fi
    \expandafter\xomino
    \fi}

\def\xxomino#1{%
    \ifx\relax#1%
    \else
    \ifx\\#1%
    \advance\@tempcntb\@ne
    \count@\z@
    \else
    \advance\count@\@ne
    \ifx*#1%
    \put(\count@,-\@tempcntb){\kern-6pt\framebox(0.93,0.93)}
    \fi
    \fi
    \expandafter\xxomino
    \fi}

\makeatother

\begin{document}
Polyominoes with two or more rows like this \omino{*****\\*\\*} 
work great, but polyominoes that have only one row like this 
\omino{******} don't align properly. 

Also, the first row needs to be complete, like this \omino{*...\\****} 
to work. Without the empty characters, the polyomino is not spaced 
correctly, like \omino{*\\****}this. 

\end{document}

Answer 1

El problema es que el cálculo de los pasos horizontales máximos no tiene en cuenta la última fila. Se puede solucionar este problema agregando el cálculo máximo del \\caso al \relaxcaso. El cambio está marcado con un %<-.

\documentclass{article}

\makeatletter

\def\omino#1{{%
        \unitlength6\p@
        \@tempcnta\z@
        \@tempcntb\@ne
        \count@\z@
        \xomino#1\relax
        \begin{picture}(\@tempcnta,\@tempcntb)(0,-\@tempcntb)%
        \@tempcnta\z@
        \@tempcntb\@ne
        \count@\z@
        \xxomino#1\relax
        \end{picture}%
    }%
}

\def\xomino#1{%
    \ifx\relax#1%
    \ifnum\count@>\@tempcnta \@tempcnta\count@\fi%<-
    \else
    \ifx\\#1%
    \ifnum\count@>\@tempcnta \@tempcnta\count@
    \fi
    \advance\@tempcntb\@ne
    \count@\z@
    \else
    \advance\count@\@ne%
    \fi
    \expandafter\xomino
    \fi}

\def\xxomino#1{%
    \ifx\relax#1%
    \else
    \ifx\\#1%
    \advance\@tempcntb\@ne
    \count@\z@
    \else
    \advance\count@\@ne
    \ifx*#1%
    \put(\count@,-\@tempcntb){\kern-6pt\framebox(0.93,0.93)}
    \fi
    \fi
    \expandafter\xxomino%
    \fi}

\makeatother

\begin{document}
Polyominoes with two or more rows like this \omino{*****\\*\\*} 
work great, but polyominoes that have only one row like this 
\omino{******} don't align properly. 

Also, the first row needs to be complete, like this \omino{*...\\****} 
to work. Without the empty characters, the polyomino is not spaced 
correctly, like \omino{*\\****} this. 

\end{document}