%% Save file as: YOUNG.STY              Source: FILESERV@SHSU.BITNET  
%% Posted to INFO-TeX@SHSU.edu on Fri, 7 Feb 1992 17:52 GMT +0100
%%        by J"org Knappen <KNAPPEN@VKPMZD.KPH.Uni-Mainz.de>
% YOUNG.STY by J"org Knappen 7-feb-1992
% based on YOUNG.TEX
% macro to make Young tableaux
% by:  Paul E. S. Wormer  <U644301@HNYKUN11>
% \magnification=\magstep1
%
\newdimen\hoogte    \hoogte=12pt    % hoogte  van hokje
\newdimen\breedte   \breedte=14pt   % breedte van hokje
\newdimen\dikte     \dikte=0.5pt    % dikte lijn
\def\beginYoung{
       \begingroup
       \def\vr{\vrule height0.8\hoogte width\dikte depth 0.2\hoogte}
       \def\fbox##1{\vbox{\offinterlineskip
                    \hrule height\dikte
                    \hbox to \breedte{\vr\hfill##1\hfill\vr}
                    \hrule height\dikte}}
       \vbox\bgroup \offinterlineskip \tabskip=-\dikte \lineskip=-\dikte
            \halign\bgroup &\fbox{##\unskip}\unskip  \crcr }
%
% \def\endYoung{\egroup\egroup\endgroup}
\def\End@Young{\egroup\egroup\endgroup}
\newenvironment{Young}{\beginYoung}{\End@Young}
\endinput
%
% --------------------------------------------------------
% example of use of the macro to make Young tableaux
% Example:
%     \documentstyle[young]{article}
%     \begin{document}
%     This is a Young tableau:
%     \begin{Young}
%     1  &  2 &  3\cr
%     4  &  5     \cr
%     6  &  7     \cr
%     8           \cr
%     \end{Young}
%     \end{document}
