%------------------------------------------------------------------------------
%   sd-sf12.sty   Copyright (C) Atsushi Takeuchi, 1992,1993,1994
%
%   This contains 12-person versions of the macros in sd-sf.sty, which see.
%
%   Use this style file with sd.sty and sd-sf.sty.  For example:
%
%       \documentclass[12pt]{article}
%       \usepackage{tex-squares}
%       \usepackage{sd}
%       \usepackage{sd-pf}
%       \usepackage{sd-sf}
%       \usepackage{sd-sf12}
%
%------------------------------------------------------------------------------
%
% This file should track the definitions in sd-sf.sty.  This is important
% when adding new setups.  To check that they are synchronized, do this:
%    Make a temporary copy of this file.
%    Remove all occurrences of the string "twelve" from the temporary copy.
%    Change all occurrences of the string "symtwl" to "symmet".
%    Compare with sd-sf.sty.  The differences should be:
%         all the comments at the top
%         some basic macro definitions, starting with
%               \def\@sw{#4}\def\@swa{1} ...
%         setups smaller than 12 people should be absent
%    Everything else should be exactly the same.

\newcount\@symD

\def\symdanc{\@ifnextchar[{\@symtwl}{\@symtwl[0,0]}}
\def\symboy{\@ifnextchar[{\@symboy}{\@symboy[0,0]}}
\def\@symboy[#1,#2]{\@symtwl[#1,#2]b}
\def\symgirl{\@ifnextchar[{\@symgirl}{\@symgirl[0,0]}}
\def\@symgirl[#1,#2]{\@symtwl[#1,#2]g}
\def\symphan{\@ifnextchar[{\@symphan}{\@symphan[0,0]}}
\def\@symphan[#1,#2]{\@symtwl[#1,#2]p}
\def\symspot{\@ifnextchar[{\@symspot}{\@symspot[0,0]}}
\def\@symspot[#1,#2]{\@symtwl[#1,#2].}

\def\@symtwl[#1,#2]#3#4#5{%
    \@ifnextchar*%
    {\@@symtwl[#1,#2]{#3}{#4}{#5}}%
    {\@@symtwl[#1,#2]{#3}{#4}{#5}*{}}%
}

\def\@@symtwl[#1,#2]#3#4#5*#6{%
    \def\@sw{#6}\def\@sww{}%
    \def\@sw{#4}\def\@swa{1}\def\@swb{2}\def\@swc{3}\def\@swd{4}\def\@swp{5}\def\@swq{6}\def\@swe{.}%
    \ifx\@sw\@swe\def\@c{}%
    \else\ifx\@sw\@swa\def\@c{4}%
    \else\ifx\@sw\@swb\def\@c{5}%
    \else\ifx\@sw\@swc\def\@c{6}%
    \else\ifx\@sw\@swd\def\@c{1}%
    \else\ifx\@sw\@swp\def\@c{2}%
    \else\ifx\@sw\@swq\def\@c{3}%
    \else\def\@c{\@@@symtwl#4}%
    \fi\fi\fi\fi\fi\fi\fi%
    \def\@sw{#5}\def\@swe{.}\def\@swf{n}\def\@swg{s}\def\@swh{e}\def\@swi{w}%
    \def\@swj{v}\def\@swk{h}\def\@swl{r}\def\@swm{l}\def\@swn{+}\def\@swo{x}%
    \ifx\@sw\@swe\def\@d{.}%
    \else\ifx\@sw\@swf\def\@d{s}%
    \else\ifx\@sw\@swg\def\@d{n}%
    \else\ifx\@sw\@swh\def\@d{w}%
    \else\ifx\@sw\@swi\def\@d{e}%
    \else\ifx\@sw\@swa\def\@d{4}%
    \else\ifx\@sw\@swb\def\@d{5}%
    \else\ifx\@sw\@swc\def\@d{6}%
    \else\ifx\@sw\@swd\def\@d{1}%
    \else\ifx\@sw\@swp\def\@d{2}%
    \else\ifx\@sw\@swq\def\@d{3}%
    \else\ifx\@sw\@swj\def\@d{v}%
    \else\ifx\@sw\@swk\def\@d{h}%
    \else\ifx\@sw\@swl\def\@d{r}%
    \else\ifx\@sw\@swm\def\@d{l}%
    \else\ifx\@sw\@swn\def\@d{+}%
    \else\ifx\@sw\@swo\def\@d{x}%
    \else\@symdir#5]\def\@d{\@symD}%
    \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
    \def\@sw{#6}\def\@swa{}\def\@swb{\@symD}%
    \ifx\@sw\@swa
        \ifx\@d\@swb\@dancer[-#1,-#2]{#3}{\@c}{0\@d}%
        \else\@dancer[-#1,-#2]{#3}{\@c}{\@d}%
        \fi%
    \else
        \ifx\@d\@swb\@dancer[-#1,-#2]{#3}{\@c}{0\@d}*{\@@@symtwl#6}%
        \else\@dancer[-#1,-#2]{#3}{\@c}{\@d}*{\@@@symtwl#6}%
        \fi%
    \fi%
}

\def\@symdir{\@ifnextchar0{\@@symdir}{\@@symdir0}}
\def\@@symdir0#1]{\global\@symD=#1\global\advance\@symD 180}

\def\@@@symtwl#1{%
    \ifx#1\danc\def\@symtwl@{\symdanc}%
    \else\ifx#1\boy\def\@symtwl@{\symboy}%
    \else\ifx#1\girl\def\@symtwl@{\symgirl}%
    \else\ifx#1\phan\def\@symtwl@{\symphan}%
    \else\ifx#1\spot\def\@symtwl@{\symspot}%
    \else\ifx#1\sdarrow\def\@symtwl@{\symarrow}%
    \else\def\@symtwl@{#1}%
    \fi\fi\fi\fi\fi\fi%
    \@symtwl@%
}

\def\symarrow{\@ifnextchar[{\@symarrow}{\@symarrow[0,0]}}
\def\@symarrow[#1,#2]{%
    \@ifnextchar({\@@symarrow[#1,#2]}{\@@symarrow[#1,#2](1,1)}%
}

\def\@@symarrow[#1,#2](#3,#4)#5#6#7{{%
    \count1=#6 \advance\count1 180%
    \@@sdarrow[-#1,-#2](#3,#4){#5}{\count1}{#7}%
}}


%-- 4 x 3 --%
\def\syhBBBstwelve{\@ifnextchar[{\@syhBBBstwelve}{\@syhBBBstwelve[1,1]}}
\def\@syhBBBstwelve[#1]#2{\@@syhBBBstwelve[#1][#2]}
\def\@@syhBBBstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2 & \@dancer[0,0]#4 & \@dancer[0,0]#6 \cr
    \@dancer[0,0]#3 & \@dancer[0,0]#5 & \@dancer[0,0]#7 \cr
    \@symtwl[0,0]#7 & \@symtwl[0,0]#5 & \@symtwl[0,0]#3 \cr
    \@symtwl[0,0]#6 & \@symtwl[0,0]#4 & \@symtwl[0,0]#2 \cr
    }%
}

%-- 2 x 6 --%
\def\sxhBBBstwelve{\@ifnextchar[{\@sxhBBBstwelve}{\@sxhBBBstwelve[1,1]}}
\def\@sxhBBBstwelve[#1]#2{\@@sxhBBBstwelve[#1][#2]}
\def\@@sxhBBBstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#2 & \@symtwl[0,0]#4 & \@symtwl[0,0]#6 &
    \@dancer[0,0]#7 & \@dancer[0,0]#5 & \@dancer[0,0]#3 \cr
    \@symtwl[0,0]#3 & \@symtwl[0,0]#5 & \@symtwl[0,0]#7 &
    \@dancer[0,0]#6 & \@dancer[0,0]#4 & \@dancer[0,0]#2 \cr
    }%
}

%-- 2 x 7 --%
\def\sxhBBVstwelve{\@ifnextchar[{\@sxhBBVstwelve}{\@sxhBBVstwelve[1,1]}}
\def\@sxhBBVstwelve[#1]#2{\@@sxhBBVstwelve[#1][#2]}
\def\@@sxhBBVstwelve[#1][#2,#3,#4,#5,#6,#7,#8]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#2 & \@symtwl[0,0]#4 & \@symtwl[0,0]#6 & \@symtwl[0,0]#8 &
    \@dancer[0,0]#7 & \@dancer[0,0]#5 & \@dancer[0,0]#3 \cr
    \@symtwl[0,0]#3 & \@symtwl[0,0]#5 & \@symtwl[0,0]#7 & \@dancer[0,0]#8 &
    \@dancer[0,0]#6 & \@dancer[0,0]#4 & \@dancer[0,0]#2 \cr
    }%
}

%-- 12 x 1 --%
\def\syvLLLstwelve{\@ifnextchar[{\@syvLLLstwelve}{\@syvLLLstwelve[1,1]}}
\def\@syvLLLstwelve[#1]#2{\@@syvLLLstwelve[#1][#2]}
\def\@@syvLLLstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2 \cr \@dancer[0,0]#3 \cr
    \@dancer[0,0]#4 \cr \@dancer[0,0]#5 \cr
    \@dancer[0,0]#6 \cr \@dancer[0,0]#7 \cr
    \@symtwl[0,0]#7 \cr \@symtwl[0,0]#6 \cr
    \@symtwl[0,0]#5 \cr \@symtwl[0,0]#4 \cr
    \@symtwl[0,0]#3 \cr \@symtwl[0,0]#2 \cr
    }%
}

%-- 1 x 12 --%
\def\sxhLLLstwelve{\@ifnextchar[{\@sxhLLLstwelve}{\@sxhLLLstwelve[1,1]}}
\def\@sxhLLLstwelve[#1]#2{\@@sxhLLLstwelve[#1][#2]}
\def\@@sxhLLLstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#2 & \@symtwl[0,0]#3 & \@symtwl[0,0]#4 &
    \@symtwl[0,0]#5 & \@symtwl[0,0]#6 & \@symtwl[0,0]#7 &
    \@dancer[0,0]#7 & \@dancer[0,0]#6 & \@dancer[0,0]#5 &
    \@dancer[0,0]#4 & \@dancer[0,0]#3 & \@dancer[0,0]#2 \cr
    }%
}

%-- 3 x 4 --%
\def\sxvBBBstwelve{\@ifnextchar[{\@sxvBBBstwelve}{\@sxvBBBstwelve[1,1]}}
\def\@sxvBBBstwelve[#1]#2{\@@sxvBBBstwelve[#1][#2]}
\def\@@sxvBBBstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#6 & \@symtwl[0,0]#7 & \@dancer[0,0]#3 & \@dancer[0,0]#2 \cr
    \@symtwl[0,0]#4 & \@symtwl[0,0]#5 & \@dancer[0,0]#5 & \@dancer[0,0]#4 \cr
    \@symtwl[0,0]#2 & \@symtwl[0,0]#3 & \@dancer[0,0]#7 & \@dancer[0,0]#6 \cr
    }%
}

%-- 6 x 2 --%
\def\syvBBBstwelve{\@ifnextchar[{\@syvBBBstwelve}{\@syvBBBstwelve[1,1]}}
\def\@syvBBBstwelve[#1]#2{\@@syvBBBstwelve[#1][#2]}
\def\@@syvBBBstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@dancer[0,0]#3 & \@dancer[0,0]#2 \cr
    \@dancer[0,0]#5 & \@dancer[0,0]#4 \cr
    \@dancer[0,0]#7 & \@dancer[0,0]#6 \cr
    \@symtwl[0,0]#6 & \@symtwl[0,0]#7 \cr
    \@symtwl[0,0]#4 & \@symtwl[0,0]#5 \cr
    \@symtwl[0,0]#2 & \@symtwl[0,0]#3 \cr
    }%
}

%-- 7 x 2 --%
\def\syvBBVstwelve{\@ifnextchar[{\@syvBBVstwelve}{\@syvBBVstwelve[1,1]}}
\def\@syvBBVstwelve[#1]#2{\@@syvBBVstwelve[#1][#2]}
\def\@@syvBBVstwelve[#1][#2,#3,#4,#5,#6,#7,#8]{%
    \sdform[#1]
    {
    \@dancer[0,0]#3 & \@dancer[0,0]#2 \cr
    \@dancer[0,0]#5 & \@dancer[0,0]#4 \cr
    \@dancer[0,0]#7 & \@dancer[0,0]#6 \cr
    \@symtwl[0,0]#8 & \@dancer[0,0]#8 \cr
    \@symtwl[0,0]#6 & \@symtwl[0,0]#7 \cr
    \@symtwl[0,0]#4 & \@symtwl[0,0]#5 \cr
    \@symtwl[0,0]#2 & \@symtwl[0,0]#3 \cr
    }%
}

%-- 4 x 4 --%
\def\syhBBBBstwelve{\@ifnextchar[{\@syhBBBBstwelve}{\@syhBBBBstwelve[1,1]}}
\def\@syhBBBBstwelve[#1]#2{\@@syhBBBBstwelve[#1][#2]}
\def\@@syhBBBBstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2 & \@dancer[0,0]#4 & \@dancer[0,0]#6 & \@dancer[0,0]#8 \cr
    \@dancer[0,0]#3 & \@dancer[0,0]#5 & \@dancer[0,0]#7 & \@dancer[0,0]#9 \cr
    \@symtwl[0,0]#9 & \@symtwl[0,0]#7 & \@symtwl[0,0]#5 & \@symtwl[0,0]#3 \cr
    \@symtwl[0,0]#8 & \@symtwl[0,0]#6 & \@symtwl[0,0]#4 & \@symtwl[0,0]#2 \cr
    }%
}

%-- 6 x 4 --%
\def\syhCCCCstwelve{\@ifnextchar[{\@syhCCCCstwelve}{\@syhCCCCstwelve[1,1]}}
\def\@syhCCCCstwelve[#1]#2{\@@syhCCCCstwelve[#1][#2]}
\def\@@syhCCCCstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2 & \@dancer[0,0]#4 & \@dancer[0,0]#6 & \@dancer[0,0]#8 \cr
    \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]... \cr
    \@dancer[0,0]#3 & \@dancer[0,0]#5 & \@dancer[0,0]#7 & \@dancer[0,0]#9 \cr
    \@symtwl[0,0]#9 & \@symtwl[0,0]#7 & \@symtwl[0,0]#5 & \@symtwl[0,0]#3 \cr
    \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]... \cr
    \@symtwl[0,0]#8 & \@symtwl[0,0]#6 & \@symtwl[0,0]#4 & \@symtwl[0,0]#2 \cr
    }%
}

\def\syhCCCCsplustwelve{\@ifnextchar[{\@syhCCCCsplustwelve}{\@syhCCCCsplustwelve[1,1]}}
\def\@syhCCCCsplustwelve[#1]#2{\@@syhCCCCsplustwelve[#1][#2]}
\def\@@syhCCCCsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2  & \@dancer[0,0]#4  & \@dancer[0,0]#6  & \@dancer[0,0]#8  \cr
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    \@dancer[0,0]#3  & \@dancer[0,0]#5  & \@dancer[0,0]#7  & \@dancer[0,0]#9  \cr
    \@symtwl[0,0]#9  & \@symtwl[0,0]#7  & \@symtwl[0,0]#5  & \@symtwl[0,0]#3  \cr
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#8  & \@symtwl[0,0]#6  & \@symtwl[0,0]#4  & \@symtwl[0,0]#2  \cr
    }%
}

%-- another 6 x 4 --%
\def\syhJJJJstwelve{\@ifnextchar[{\@syhJJJJstwelve}{\@syhJJJJstwelve[1,1]}}
\def\@syhJJJJstwelve[#1]#2{\@@syhJJJJstwelve[#1][#2]}
\def\@@syhJJJJstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2  & \@dancer[0,0]#6  & \@dancer[0,0]... & \@dancer[0,0]... \cr
    \@dancer[0,0]#3  & \@dancer[0,0]#7  & \@dancer[0,0]... & \@dancer[0,0]... \cr
    \@dancer[0,0]#4  & \@dancer[0,0]#8  & \@symtwl[0,0]#9  & \@symtwl[0,0]#5  \cr
    \@dancer[0,0]#5  & \@dancer[0,0]#9  & \@symtwl[0,0]#8  & \@symtwl[0,0]#4  \cr
    \@dancer[0,0]... & \@dancer[0,0]... & \@symtwl[0,0]#7  & \@symtwl[0,0]#3  \cr
    \@dancer[0,0]... & \@dancer[0,0]... & \@symtwl[0,0]#6  & \@symtwl[0,0]#2  \cr
    }%
}

\def\syhJJJJsplustwelve{\@ifnextchar[{\@syhJJJJsplustwelve}{\@syhJJJJsplustwelve[1,1]}}
\def\@syhJJJJsplustwelve[#1]#2{\@@syhJJJJsplustwelve[#1][#2]}
\def\@@syhJJJJsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2  & \@dancer[0,0]#6  & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    \@dancer[0,0]#3  & \@dancer[0,0]#7  & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    \@dancer[0,0]#4  & \@dancer[0,0]#8  & \@symtwl[0,0]#9  & \@symtwl[0,0]#5  \cr
    \@dancer[0,0]#5  & \@dancer[0,0]#9  & \@symtwl[0,0]#8  & \@symtwl[0,0]#4  \cr
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@symtwl[0,0]#7  & \@symtwl[0,0]#3  \cr
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@symtwl[0,0]#6  & \@symtwl[0,0]#2  \cr
    }%
}

%-- another 6 x 4 --%
\def\syhKKKKstwelve{\@ifnextchar[{\@syhKKKKstwelve}{\@syhKKKKstwelve[1,1]}}
\def\@syhKKKKstwelve[#1]#2{\@@syhKKKKstwelve[#1][#2]}
\def\@@syhKKKKstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]#2  & \@dancer[0,0]#6  \cr
    \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]#3  & \@dancer[0,0]#7  \cr
    \@symtwl[0,0]#9  & \@symtwl[0,0]#5  & \@dancer[0,0]#4  & \@dancer[0,0]#8  \cr
    \@symtwl[0,0]#8  & \@symtwl[0,0]#4  & \@dancer[0,0]#5  & \@dancer[0,0]#9  \cr
    \@symtwl[0,0]#7  & \@symtwl[0,0]#3  & \@dancer[0,0]... & \@dancer[0,0]... \cr
    \@symtwl[0,0]#6  & \@symtwl[0,0]#2  & \@dancer[0,0]... & \@dancer[0,0]... \cr
    }%
}

\def\syhKKKKsplustwelve{\@ifnextchar[{\@syhKKKKsplustwelve}{\@syhKKKKsplustwelve[1,1]}}
\def\@syhKKKKsplustwelve[#1]#2{\@@syhKKKKsplustwelve[#1][#2]}
\def\@@syhKKKKsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0]#2  & \@dancer[0,0]#6  \cr
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0]#3  & \@dancer[0,0]#7  \cr
    \@symtwl[0,0]#9  & \@symtwl[0,0]#5  & \@dancer[0,0]#4  & \@dancer[0,0]#8  \cr
    \@symtwl[0,0]#8  & \@symtwl[0,0]#4  & \@dancer[0,0]#5  & \@dancer[0,0]#9  \cr
    \@symtwl[0,0]#7  & \@symtwl[0,0]#3  & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#6  & \@symtwl[0,0]#2  & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    }%
}

%-- 4 x 6 --%
\def\sxvCCCCstwelve{\@ifnextchar[{\@sxvCCCCstwelve}{\@sxvCCCCstwelve[1,1]}}
\def\@sxvCCCCstwelve[#1]#2{\@@sxvCCCCstwelve[#1][#2]}
\def\@@sxvCCCCstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#8 & \@dancer[0,0]... & \@symtwl[0,0]#9 &
    \@dancer[0,0]#3 & \@dancer[0,0]... & \@dancer[0,0]#2 \cr
    \@symtwl[0,0]#6 & \@dancer[0,0]... & \@symtwl[0,0]#7 &
    \@dancer[0,0]#5 & \@dancer[0,0]... & \@dancer[0,0]#4 \cr
    \@symtwl[0,0]#4 & \@dancer[0,0]... & \@symtwl[0,0]#5 &
    \@dancer[0,0]#7 & \@dancer[0,0]... & \@dancer[0,0]#6 \cr
    \@symtwl[0,0]#2 & \@dancer[0,0]... & \@symtwl[0,0]#3 &
    \@dancer[0,0]#9 & \@dancer[0,0]... & \@dancer[0,0]#8 \cr
    }%
}

\def\sxvCCCCsplustwelve{\@ifnextchar[{\@sxvCCCCsplustwelve}{\@sxvCCCCsplustwelve[1,1]}}
\def\@sxvCCCCsplustwelve[#1]#2{\@@sxvCCCCsplustwelve[#1][#2]}
\def\@@sxvCCCCsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#8 & \@dancer[0,0].+. & \@symtwl[0,0]#9 &
    \@dancer[0,0]#3 & \@dancer[0,0].+. & \@dancer[0,0]#2 \cr
    \@symtwl[0,0]#6 & \@dancer[0,0].+. & \@symtwl[0,0]#7 &
    \@dancer[0,0]#5 & \@dancer[0,0].+. & \@dancer[0,0]#4 \cr
    \@symtwl[0,0]#4 & \@dancer[0,0].+. & \@symtwl[0,0]#5 &
    \@dancer[0,0]#7 & \@dancer[0,0].+. & \@dancer[0,0]#6 \cr
    \@symtwl[0,0]#2 & \@dancer[0,0].+. & \@symtwl[0,0]#3 &
    \@dancer[0,0]#9 & \@dancer[0,0].+. & \@dancer[0,0]#8 \cr
    }%
}

%-- another 4 x 6 --%
\def\sxvJJJJstwelve{\@ifnextchar[{\@sxvJJJJstwelve}{\@sxvJJJJstwelve[1,1]}}
\def\@sxvJJJJstwelve[#1]#2{\@@sxvJJJJstwelve[#1][#2]}
\def\@@sxvJJJJstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]#5  &
    \@dancer[0,0]#4  & \@dancer[0,0]#3  & \@dancer[0,0]#2  \cr
    \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]#9  &
    \@dancer[0,0]#8  & \@dancer[0,0]#7  & \@dancer[0,0]#6  \cr
    \@symtwl[0,0]#6  & \@symtwl[0,0]#7  & \@symtwl[0,0]#8  &
    \@symtwl[0,0]#9  & \@dancer[0,0]... & \@dancer[0,0]... \cr
    \@symtwl[0,0]#2  & \@symtwl[0,0]#3  & \@symtwl[0,0]#4  &
    \@symtwl[0,0]#5  & \@dancer[0,0]... & \@dancer[0,0]... \cr
    }%
}

\def\sxvJJJJsplustwelve{\@ifnextchar[{\@sxvJJJJsplustwelve}{\@sxvJJJJsplustwelve[1,1]}}
\def\@sxvJJJJsplustwelve[#1]#2{\@@sxvJJJJsplustwelve[#1][#2]}
\def\@@sxvJJJJsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0]#5  &
    \@dancer[0,0]#4  & \@dancer[0,0]#3  & \@dancer[0,0]#2  \cr
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0]#9  &
    \@dancer[0,0]#8  & \@dancer[0,0]#7  & \@dancer[0,0]#6  \cr
    \@symtwl[0,0]#6  & \@symtwl[0,0]#7  & \@symtwl[0,0]#8  &
    \@symtwl[0,0]#9  & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#2  & \@symtwl[0,0]#3  & \@symtwl[0,0]#4  &
    \@symtwl[0,0]#5  & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    }%
}

%-- 3 x 6 --%
\def\syhDDDDstwelve{\@ifnextchar[{\@syhDDDDstwelve}{\@syhDDDDstwelve[1,1]}}
\def\@syhDDDDstwelve[#1]#2{\@@syhDDDDstwelve[#1][#2]}
\def\@@syhDDDDstwelve[#1][#2,#3,#4,#5,#6,#7,#8]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2 & \@dancer[0,0]#4 & \@dancer[0,0]#7 \cr
    \@dancer[0,0]#3 & \@dancer[0,0]#5 & \@dancer[0,0]#8 \cr
    \@dancer[0,0]... & \@dancer[0,0]#6 & \@dancer[0,0]... \cr
    \@dancer[0,0]... & \@symtwl[0,0]#6 & \@dancer[0,0]... \cr
    \@symtwl[0,0]#8 & \@symtwl[0,0]#5 & \@symtwl[0,0]#3 \cr
    \@symtwl[0,0]#7 & \@symtwl[0,0]#4 & \@symtwl[0,0]#2 \cr
    }%
}

\def\syhDDDDsplustwelve{\@ifnextchar[{\@syhDDDDsplustwelve}{\@syhDDDDsplustwelve[1,1]}}
\def\@syhDDDDsplustwelve[#1]#2{\@@syhDDDDsplustwelve[#1][#2]}
\def\@@syhDDDDsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8]{%
    \sdform[#1]
    {
    \@dancer[0,0]#2 & \@dancer[0,0]#4 & \@dancer[0,0]#7 \cr
    \@dancer[0,0]#3 & \@dancer[0,0]#5 & \@dancer[0,0]#8 \cr
    \@dancer[0,0].+. & \@dancer[0,0]#6 & \@dancer[0,0].+. \cr
    \@dancer[0,0].+. & \@symtwl[0,0]#6 & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#8 & \@symtwl[0,0]#5 & \@symtwl[0,0]#3 \cr
    \@symtwl[0,0]#7 & \@symtwl[0,0]#4 & \@symtwl[0,0]#2 \cr
    }%
}

%-- 6 x 3 (restricted) --%
\def\sxvDDDDstwelve{\@ifnextchar[{\@sxvDDDDstwelve}{\@sxvDDDDstwelve[1,1]}}
\def\@sxvDDDDstwelve[#1]#2{\@@sxvDDDDstwelve[#1][#2]}
\def\@@sxvDDDDstwelve[#1][#2,#3,#4,#5,#6,#7,#8]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#7  & \@symtwl[0,0]#8 & \@dancer[0,0]... &
    \@dancer[0,0]... & \@dancer[0,0]#3 & \@dancer[0,0]#2  \cr
    \@symtwl[0,0]#4  & \@symtwl[0,0]#5 & \@symtwl[0,0]#6  &
    \@dancer[0,0]#6  & \@dancer[0,0]#5 & \@dancer[0,0]#4  \cr
    \@symtwl[0,0]#2  & \@symtwl[0,0]#3 & \@dancer[0,0]... &
    \@dancer[0,0]... & \@dancer[0,0]#8 & \@dancer[0,0]#7  \cr
    }%
}

\def\sxvDDDDsplustwelve{\@ifnextchar[{\@sxvDDDDsplustwelve}{\@sxvDDDDsplustwelve[1,1]}}
\def\@sxvDDDDsplustwelve[#1]#2{\@@sxvDDDDsplustwelve[#1][#2]}
\def\@@sxvDDDDsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#7 & \@symtwl[0,0]#8 & \@dancer[0,0].+. &
    \@dancer[0,0].+. & \@dancer[0,0]#3 & \@dancer[0,0]#2 \cr
    \@symtwl[0,0]#4 & \@symtwl[0,0]5 & \@symtwl[0,0]#6 &
    \@dancer[0,0]#6 & \@dancer[0,0]5 & \@dancer[0,0]#4 \cr
    \@symtwl[0,0]#2 & \@symtwl[0,0]3 & \@dancer[0,0].+. &
    \@dancer[0,0].+. & \@dancer[0,0]8 & \@dancer[0,0]#7 \cr
    }%
}

%-- 8 x 3 (restricted) --%
\def\syvPPPPstwelve{\@ifnextchar[{\@syvPPPPstwelve}{\@syvPPPPstwelve[1,1]}}
\def\@syvPPPPstwelve[#1]#2{\@@syvPPPPstwelve[#1][#2]}
\def\@@syvPPPPstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]... & \@dancer[0,0]#2 & \@dancer[0,0]#6  \cr
    \@dancer[0,0]... & \@dancer[0,0]#3 & \@dancer[0,0]#7  \cr
    \@dancer[0,0]... & \@dancer[0,0]#4 & \@dancer[0,0]#8  \cr
    \@dancer[0,0]... & \@dancer[0,0]#5 & \@dancer[0,0]#9  \cr
    \@symtwl[0,0]#9  & \@symtwl[0,0]#5 & \@dancer[0,0]... \cr
    \@symtwl[0,0]#8  & \@symtwl[0,0]#4 & \@dancer[0,0]... \cr
    \@symtwl[0,0]#7  & \@symtwl[0,0]#3 & \@dancer[0,0]... \cr
    \@symtwl[0,0]#6  & \@symtwl[0,0]#2 & \@dancer[0,0]... \cr
    }%
}

\def\syvPPPPsplustwelve{\@ifnextchar[{\@syvPPPPsplustwelve}{\@syvPPPPsplustwelve[1,1]}}
\def\@syvPPPPsplustwelve[#1]#2{\@@syvPPPPsplustwelve[#1][#2]}
\def\@@syvPPPPsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0].+. & \@dancer[0,0]#2 & \@dancer[0,0]#6  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#3 & \@dancer[0,0]#7  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#4 & \@dancer[0,0]#8  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#5 & \@dancer[0,0]#9  \cr
    \@symtwl[0,0]#9  & \@symtwl[0,0]#5 & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#8  & \@symtwl[0,0]#4 & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#7  & \@symtwl[0,0]#3 & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#6  & \@symtwl[0,0]#2 & \@dancer[0,0].+. \cr
    }%
}

%-- 3 x 8 (restricted) --%
\def\sxhPPPPstwelve{\@ifnextchar[{\@sxhPPPPstwelve}{\@sxhPPPPstwelve[1,1]}}
\def\@sxhPPPPstwelve[#1]#2{\@@sxhPPPPstwelve[#1][#2]}
\def\@@sxhPPPPstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#2  & \@symtwl[0,0]#4  & \@symtwl[0,0]#6  & \@symtwl[0,0]#8  &
    \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]... \cr
    \@symtwl[0,0]#3  & \@symtwl[0,0]#5  & \@symtwl[0,0]#7  & \@symtwl[0,0]#9  &
    \@dancer[0,0]#9  & \@dancer[0,0]#7  & \@dancer[0,0]#5  & \@dancer[0,0]#3  \cr 
    \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]... & \@dancer[0,0]... &
    \@dancer[0,0]#8  & \@dancer[0,0]#6  & \@dancer[0,0]#4  & \@dancer[0,0]#2  \cr
    }%
}

\def\sxhPPPPsplustwelve{\@ifnextchar[{\@sxhPPPPsplustwelve}{\@sxhPPPPsplustwelve[1,1]}}
\def\@sxhPPPPsplustwelve[#1]#2{\@@sxhPPPPsplustwelve[#1][#2]}
\def\@@sxhPPPPsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#2  & \@symtwl[0,0]#4  & \@symtwl[0,0]#6  & \@symtwl[0,0]#8  &
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#3  & \@symtwl[0,0]#5  & \@symtwl[0,0]#7  & \@symtwl[0,0]#9  &
    \@dancer[0,0]#9  & \@dancer[0,0]#7  & \@dancer[0,0]#5  & \@dancer[0,0]#3  \cr 
    \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0].+. & \@dancer[0,0].+. &
    \@dancer[0,0]#8  & \@dancer[0,0]#6  & \@dancer[0,0]#4  & \@dancer[0,0]#2  \cr
    }%
}

%-- 2 x 8 --%
\def\sxhBBBBstwelve{\@ifnextchar[{\@sxhBBBBstwelve}{\@sxhBBBBstwelve[1,1]}}
\def\@sxhBBBBstwelve[#1]#2{\@@sxhBBBBstwelve[#1][#2]}
\def\@@sxhBBBBstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#2 & \@symtwl[0,0]#4 & \@symtwl[0,0]#6 & \@symtwl[0,0]#8 &
    \@dancer[0,0]#9 & \@dancer[0,0]#7 & \@dancer[0,0]#5 & \@dancer[0,0]#3 \cr
    \@symtwl[0,0]#3 & \@symtwl[0,0]#5 & \@symtwl[0,0]#7 & \@symtwl[0,0]#9 &
    \@dancer[0,0]#8 & \@dancer[0,0]#6 & \@dancer[0,0]#4 & \@dancer[0,0]#2 \cr
    }%
}

%-- 8 x 2 --%
\def\syvBBBBstwelve{\@ifnextchar[{\@syvBBBBstwelve}{\@syvBBBBstwelve[1,1]}}
\def\@syvBBBBstwelve[#1]#2{\@@syvBBBBstwelve[#1][#2]}
\def\@@syvBBBBstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]#3 & \@dancer[0,0]#2 \cr
    \@dancer[0,0]#5 & \@dancer[0,0]#4 \cr
    \@dancer[0,0]#7 & \@dancer[0,0]#6 \cr
    \@dancer[0,0]#9 & \@dancer[0,0]#8 \cr
    \@symtwl[0,0]#8 & \@symtwl[0,0]#9 \cr
    \@symtwl[0,0]#6 & \@symtwl[0,0]#7 \cr
    \@symtwl[0,0]#4 & \@symtwl[0,0]#5 \cr
    \@symtwl[0,0]#2 & \@symtwl[0,0]#3 \cr
    }%
}

%-- 12 x 2 --%
\def\syvLLLLstwelve{\@ifnextchar[{\@syvLLLLstwelve}{\@syvLLLLstwelve[1,1]}}
\def\@syvLLLLstwelve[#1]#2{\@@syvLLLLstwelve[#1][#2]}
\def\@@syvLLLLstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0]... & \@dancer[0,0]#2  \cr
    \@dancer[0,0]... & \@dancer[0,0]#3  \cr
    \@dancer[0,0]... & \@dancer[0,0]#4  \cr
    \@dancer[0,0]... & \@dancer[0,0]#5  \cr
    \@symtwl[0,0]#9  & \@dancer[0,0]#6  \cr
    \@symtwl[0,0]#8  & \@dancer[0,0]#7  \cr
    \@symtwl[0,0]#7  & \@dancer[0,0]#8  \cr
    \@symtwl[0,0]#6  & \@dancer[0,0]#9  \cr
    \@symtwl[0,0]#5  & \@dancer[0,0]... \cr
    \@symtwl[0,0]#4  & \@dancer[0,0]... \cr
    \@symtwl[0,0]#3  & \@dancer[0,0]... \cr
    \@symtwl[0,0]#2  & \@dancer[0,0]... \cr
    }%
}

\def\syvLLLLsplustwelve{\@ifnextchar[{\@syvLLLLsplustwelve}{\@syvLLLLsplustwelve[1,1]}}
\def\@syvLLLLsplustwelve[#1]#2{\@@syvLLLLsplustwelve[#1][#2]}
\def\@@syvLLLLsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@dancer[0,0].+. & \@dancer[0,0]#2  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#3  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#4  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#5  \cr
    \@symtwl[0,0]#9  & \@dancer[0,0]#6  \cr
    \@symtwl[0,0]#8  & \@dancer[0,0]#7  \cr
    \@symtwl[0,0]#7  & \@dancer[0,0]#8  \cr
    \@symtwl[0,0]#6  & \@dancer[0,0]#9  \cr
    \@symtwl[0,0]#5  & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#4  & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#3  & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#2  & \@dancer[0,0].+. \cr
    }%
}

%-- 12 x 2 --%
\def\syvMMMMstwelve{\@ifnextchar[{\@syvMMMMstwelve}{\@syvMMMMstwelve[1,1]}}
\def\@syvMMMMstwelve[#1]#2{\@@syvMMMMstwelve[#1][#2]}
\def\@@syvMMMMstwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#9  & \@dancer[0,0]... \cr
    \@symtwl[0,0]#8  & \@dancer[0,0]... \cr
    \@symtwl[0,0]#7  & \@dancer[0,0]... \cr
    \@symtwl[0,0]#6  & \@dancer[0,0]... \cr
    \@symtwl[0,0]#5  & \@dancer[0,0]#2  \cr
    \@symtwl[0,0]#4  & \@dancer[0,0]#3  \cr
    \@symtwl[0,0]#3  & \@dancer[0,0]#4  \cr
    \@symtwl[0,0]#2  & \@dancer[0,0]#5  \cr
    \@dancer[0,0]... & \@dancer[0,0]#6  \cr
    \@dancer[0,0]... & \@dancer[0,0]#7  \cr
    \@dancer[0,0]... & \@dancer[0,0]#8  \cr
    \@dancer[0,0]... & \@dancer[0,0]#9  \cr
    }%
}

\def\syvMMMMsplustwelve{\@ifnextchar[{\@syvMMMMsplustwelve}{\@syvMMMMsplustwelve[1,1]}}
\def\@syvMMMMsplustwelve[#1]#2{\@@syvMMMMsplustwelve[#1][#2]}
\def\@@syvMMMMsplustwelve[#1][#2,#3,#4,#5,#6,#7,#8,#9]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#9  & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#8  & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#7  & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#6  & \@dancer[0,0].+. \cr
    \@symtwl[0,0]#5  & \@dancer[0,0]#2  \cr
    \@symtwl[0,0]#4  & \@dancer[0,0]#3  \cr
    \@symtwl[0,0]#3  & \@dancer[0,0]#4  \cr
    \@symtwl[0,0]#2  & \@dancer[0,0]#5  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#6  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#7  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#8  \cr
    \@dancer[0,0].+. & \@dancer[0,0]#9  \cr
    }%
}

%-- bigbone --%
\def\syvbigbonetwelve{\@ifnextchar[{\@syvbigbonetwelve}{\@syvbigbonetwelve[1,1]}}
\def\@syvbigbonetwelve[#1]#2{\@@syvbigbonetwelve[#1][#2]}
\def\@@syvbigbonetwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@dancer[0,0]#3 & \@dancer[0,0]#2 \cr
    \@dancer[0,0]#5 & \@dancer[0,0]#4 \cr
    \@dancer[0,0]#7 & \@dancer[0,0]#6 \cr
    \@symtwl[0,0]#6 & \@symtwl[0,0]#7 \cr
    \@symtwl[0,0]#4 & \@symtwl[0,0]#5 \cr
    \@symtwl[0,0]#2 & \@symtwl[0,0]#3 \cr
    }%
}

\def\sxhbigbonetwelve{\@ifnextchar[{\@sxhbigbonetwelve}{\@sxhbigbonetwelve[1,1]}}
\def\@sxhbigbonetwelve[#1]#2{\@@sxhbigbonetwelve[#1][#2]}
\def\@@sxhbigbonetwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@symtwl[0,0]#2   & \@symtwl[0,0]#4   & \@symtwl[0,50]#6 & \@symtwl[0,50]#7 &
    \@dancer[0,-50]#7 & \@dancer[0,-50]#6 & \@dancer[0,0]#5  & \@dancer[0,0]#3 \cr
    \@symtwl[0,0]#3   & \@symtwl[0,0]#5   &                  &                  &
                      &                   & \@dancer[0,0]#4  & \@dancer[0,0]#2 \cr
    }%
}

%-- big galaxy with 12 spots
%
%                    D1    D2
%
%                 D3    D4    D5
%              D6                S6
%                 S5    S4    S3
%
%                    S2    S1

\def\sxhGALtwelve{\@ifnextchar[{\@sxhGALtwelve}{\@sxhGALtwelve[1,1]}}
\def\@sxhGALtwelve[#1]#2{\@@sxhGALtwelve[#1][#2]}
\def\@@sxhGALtwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
                      & \@dancer[0,0]#2   & \@dancer[0,0]#3   &                   \cr
    \@dancer[50,0]#4  & \@dancer[50,0]#5  & \@dancer[50,0]#6  & \@dancer[0,-50]#7 \cr
    \@symtwl[0,-50]#7 & \@symtwl[50,0]#6  & \@symtwl[50,0]#5  & \@symtwl[50,0]#4  \cr
                      & \@symtwl[0,0]#3   & \@symtwl[0,0]#2   &                   \cr
    }%
}


%-- triple setup --%
\def\syhtridiamondstwelve{\@ifnextchar[{\@syhtridiamondstwelve}{\@syhtridiamondstwelve[1,1]}}
\def\@syhtridiamondstwelve[#1]#2{\@@syhtridiamondstwelve[#1][#2]}
\def\@@syhtridiamondstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
                     & \@dancer[0,0]#3 &                  \cr
    \@dancer[0,50]#2 & \@dancer[0,0]#5 & \@dancer[0,50]#4 \cr
                     & \@dancer[0,0]#7 & \@symtwl[0,50]#6 \cr
    \@dancer[0,50]#6 & \@symtwl[0,0]#7 &                  \cr
    \@symtwl[0,50]#4 & \@symtwl[0,0]#5 & \@symtwl[0,50]#2 \cr
                     & \@symtwl[0,0]#3 &                  \cr
    }%
}

\def\syvtridiamondstwelve{\@ifnextchar[{\@syvtridiamondstwelve}{\@syvtridiamondstwelve[1,1]}}
\def\@syvtridiamondstwelve[#1]#2{\@@syvtridiamondstwelve[#1][#2]}
\def\@@syvtridiamondstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
              \@dancer[50,0]#2 &       \cr
    \@dancer[0,0]#5 & \@dancer[0,0]#3  \cr
              \@dancer[50,0]#4 &       \cr
              \@dancer[50,0]#6 &       \cr
    \@symtwl[0,0]#7 & \@dancer[0,0]#7  \cr
              & \@symtwl[50,0]#6       \cr
              & \@symtwl[50,0]#4       \cr
    \@symtwl[0,0]#3 & \@symtwl[0,0]#5  \cr
              & \@symtwl[50,0]#2       \cr
    }%
}

\def\sxvtridiamondstwelve{\@ifnextchar[{\@sxvtridiamondstwelve}{\@sxvtridiamondstwelve[1,1]}}
\def\@sxvtridiamondstwelve[#1]#2{\@@sxvtridiamondstwelve[#1][#2]}
\def\@@sxvtridiamondstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
                     & \@symtwl[50,0]#4 &
    \@dancer[50,0]#6 &                  &
    \@dancer[50,0]#2 &                  \cr
    \@symtwl[0,0]#3  & \@symtwl[0,0]#5  &
    \@symtwl[0,0]#7  & \@dancer[0,0]#7  &
    \@dancer[0,0]#5  & \@dancer[0,0]#3  \cr
                     & \@symtwl[50,0]#2 &
                     & \@symtwl[50,0]#6 &
    \@dancer[50,0]#4 &                  \cr
    }%
}

\def\sxhtridiamondstwelve{\@ifnextchar[{\@sxhtridiamondstwelve}{\@sxhtridiamondstwelve[1,1]}}
\def\@sxhtridiamondstwelve[#1]#2{\@@sxhtridiamondstwelve[#1][#2]}
\def\@@sxhtridiamondstwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@symtwl[0,50]#2 & \@symtwl[0,0]#3 & \@symtwl[0,50]#4 &
    \@symtwl[0,50]#6 & \@symtwl[0,0]#7 &                  &
                     & \@dancer[0,0]#5 &                  \cr
                     & \@symtwl[0,0]#5 &                  &
                     & \@dancer[0,0]#7 & \@dancer[0,50]#6 &
    \@dancer[0,50]#4 & \@dancer[0,0]#3 & \@dancer[0,50]#2 \cr
    }%
}

\def\syhtwmstartwelve{\@ifnextchar[{\@syhtwmstartwelve}{\@syhtwmstartwelve[1,1]}}
\def\@syhtwmstartwelve[#1]#2{\@@syhtwmstartwelve[#1][#2]}
\def\@@syhtwmstartwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
    \@dancer[50,0]#2 &                  \cr
    \@dancer[50,0]#3 &                  \cr
    \@dancer[50,0]#4 & \@dancer[0,-50]#5\cr
    \@dancer[0,50]#7 & \@dancer[-50,0]#6\cr
    \@symtwl[-50,0]#6& \@symtwl[0,50]#7 \cr
    \@symtwl[0,-50]#5& \@symtwl[50,0]#4 \cr
                     & \@symtwl[50,0]#3 \cr
                     & \@symtwl[50,0]#2 \cr
    }%
}

\def\sxvtwmstartwelve{\@ifnextchar[{\@sxvtwmstartwelve}{\@sxvtwmstartwelve[1,1]}}
\def\@sxvtwmstartwelve[#1]#2{\@@sxvtwmstartwelve[#1][#2]}
\def\@@sxvtwmstartwelve[#1][#2,#3,#4,#5,#6,#7]{%
    \sdform[#1]
    {
                     &                  & \@symtwl[-50,0]#5&
    \@symtwl[0,50]#6 & \@dancer[50,0]#7 & \@dancer[0,-50]#4&
    \@dancer[0,-50]#3& \@dancer[0,-50]#2\cr
    \@symtwl[0,-50]#2& \@symtwl[0,-50]#3&
    \@symtwl[0,-50]#4& \@symtwl[50,0]#7 & \@dancer[0,50]#6 &
    \@dancer[-50,0]#5&                  &                  \cr
    }%
}

%------------------------------------------------------------------------------
