\documentclass{article} \usepackage{fp-pas}\FPmessagesfalse \usepackage{multido} \makeatletter \let\@nil\relax \def\Row[#1]{% \begingroup \par\centering \baselineskip=0pt \nointerlineskip \printrow#1,\@nil \par\vskip-\fboxrule \endgroup } \def\printrow#1,#2\@nil{% \fbox{% \hbox to\Boxwd{% \hss \vbox to\Boxht{% \vss#1\vss }% \hss }% }% \hskip-\fboxrule \def\@arg{#2}% \ifx\empty\@arg \let\next\relax \else \let\next\printrow \fi \expandafter\next\@arg\@nil } \def\setBoxdim#1#2{% \def\Boxht{#2}% \def\Boxwd{#1}% } \def\trianglePascal#1{% \ifnum#1>63% \typeout{ERROR: \string\trianglePascal{63} maximum} \else \multido{\i=0+1}{#1}{\FPpascal\foo{\i}\expandafter\Row\foo} \fi } \makeatother \begin{document} \setBoxdim{8mm}{6mm} \trianglePascal{10} % max 63 (limite de fp-pas.sty) \end{document}
