%% psbao.sty
%% Copyright 2008 N. Vessella
%
% This program may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.2
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.2 or later is part of all distributions of LaTeX 
% version 1999/12/01 or later.
%
% This package consists of the files:
%
%   psbao.sty
%   psbaomanual.tex
%   psbaomanual.pdf
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% MOST OF THE FOLLOWING CODE IS COPIED FROM psgo.sty %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\NeedsTeXFormat{LaTeX2e}% 
\ProvidesPackage{psbao}[2008/11/01, v0.11]
\message{`PSBAO', <2008/11/01>, v0.11}
\RequirePackage{pstricks,calc,ifthen,cool,etex}
%\RequirePackage{pstricks,pst-node,calc,ifthen,cool,etex}
\newcommand{\psbao}{\textsf{psbao}}
\newcounter{boardrow}
\newcounter{boardcol}
\newcounter{ghalaku} % granaio sud
\newcounter{ghalaka} % granaio nord
\newcounter{tmpglob}
\newlength{\baoxunit}
\newlength{\baoyunit}
\newcounter{nvi}
\newcounter{nvii}
\newcounter{nviii}
\newcounter{nviv}
\newcounter{nvv}
\newcounter{nvvi}
\newcounter{nvvii}
\newcounter{nvviii}
\newcounter{nvix}
\newcounter{nvx}
\newcounter{nvxi}
\newcounter{nvxii}
\newcounter{nvxiii}
\newcounter{nvxiv}
\newcounter{nvxv}
\newcounter{nvxvi}
\newcounter{nvxvii}
\newcounter{nvxviii}
\newcounter{nvxix}
\newcounter{nvxx}
\newcounter{nvxxi}
\newcounter{nvxxii}
\newcounter{nvxxiii}
\newcounter{nvxxiv}
\newcounter{nvxxv}
\newcounter{nvxxvi}
\newcounter{nvxxvii}
\newcounter{nvxxviii}
\newcounter{nvxxix}
\newcounter{nvxxx}
\newcounter{nvxxxi}
\newcounter{nvxxxii}
\newcounter{nvxxxiii}
\newcounter{nvxxxiv}

 \newcount\nord
 \newcount\b
 \newcount\sud

\newcommand{\setbaounit}[1]{
 \setlength{\baoxunit}{#1}
 \setlength{\baoyunit}{1.115\baoxunit}
}

\newcommand{\initbao}[1][22,%
                        0,0,0,0,0,0,0,0,%
                        0,2,2,6,0,0,0,0,%
                        0,0,0,0,6,2,2,0,%
                        0,0,0,0,0,0,0,0,%
                        22]{%
 \liststore{#1}{bc}
 % There should be a better way to write the following lines!
 \setcounter{nvi}{\bci}
 \setcounter{nvii}{\bcii}
 \setcounter{nviii}{\bciii}
 \setcounter{nviv}{\bciv}
 \setcounter{nvv}{\bcv}
 \setcounter{nvvi}{\bcvi}
 \setcounter{nvvii}{\bcvii}
 \setcounter{nvviii}{\bcviii}
 \setcounter{nvix}{\bcix}
 \setcounter{nvx}{\bcx}
 \setcounter{nvxi}{\bcxi}
 \setcounter{nvxii}{\bcxii}
 \setcounter{nvxiii}{\bcxiii}
 \setcounter{nvxiv}{\bcxiv}
 \setcounter{nvxv}{\bcxv}
 \setcounter{nvxvi}{\bcxvi}
 \setcounter{nvxvii}{\bcxvii}
 \setcounter{nvxviii}{\bcxviii}
 \setcounter{nvxix}{\bcxix}
 \setcounter{nvxx}{\bcxx}
 \setcounter{nvxxi}{\bcxxi}
 \setcounter{nvxxii}{\bcxxii}
 \setcounter{nvxxiii}{\bcxxiii}
 \setcounter{nvxxiv}{\bcxxiv}
 \setcounter{nvxxv}{\bcxxv}
 \setcounter{nvxxvi}{\bcxxvi}
 \setcounter{nvxxvii}{\bcxxvii}
 \setcounter{nvxxviii}{\bcxxviii}
 \setcounter{nvxxix}{\bcxxix}
 \setcounter{nvxxx}{\bcxxx}
 \setcounter{nvxxxi}{\bcxxxi}
 \setcounter{nvxxxii}{\bcxxxii}
 \setcounter{nvxxxiii}{\bcxxxiii}
 \setcounter{nvxxxiv}{\bcxxxiv}
}

\newcommand{\initjbao}{
  \setcounter{nvi}{0}
  \setcounter{tmpglob}{2}
  \whiledo{\value{tmpglob} < 34}
  {%
   \setcounter{nv\roman{tmpglob}}{2}
  \stepcounter{tmpglob}%
  }%
  \setcounter{nvxxxiv}{0}
}

\initbao
\setbaounit{0.6cm}
\newlength{\tmplx}
\newlength{\tmply}
\newcounter{tmpc}

\newcommand{\pointbox}[1]{%
\raisebox{-0.5\height+0.5\depth}[0pt][0pt]{\makebox[0pt]{#1}}%
}

\newcommand{\baolabelformat}[1]{%
{\sffamily {\footnotesize{#1}}}%
}

\newcommand\baoxposition[1]{%
	\ifx#1B 0\else%
	\ifx#1A 1\else%
	\ifx#1a 2\else%
	\ifx#1b 3\else%
	\ifx#1c 2\else%
	\ifx#1d 3\else%
	\ifx#1e 4\else%
	\ifx#1f 5\else%
	\ifx#1g 6\else%
	\ifx#1h 7\else%
	\ifx#1j 8\else%
	\ifx#1k 9\else%
	\ifx#1l 10\else%
	\ifx#1m 11\else%
	\ifx#1n 12\else%
	\ifx#1o 13\else%
	\ifx#1p 14\else%
	\ifx#1q 15\else%
	\ifx#1r 16\else%
	\ifx#1s 17\else%
	\ifx#1t 18\else%
	\relax%
	\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
}%

\newcommand{\baoyposition}[1]{%
	\ifnum#1=1 0\else%
	\ifnum#1=2 1\else%
	\ifnum#1=3 2\else%
	\ifnum#1=4 3\else%
	\ifnum#1=5 4\else%
	\ifnum#1=6 5\else%
	\ifnum#1=7 6\else%
	\ifnum#1=8 7\else%
	\ifnum#1=9 8\else%
	\ifnum#1=10 9\else%
	\ifnum#1=11 10\else%
	\ifnum#1=12 11\else%
	\ifnum#1=13 12\else%
	\ifnum#1=14 13\else%
	\ifnum#1=15 14\else%
	\ifnum#1=16 15\else%
	\ifnum#1=17 16\else%
	\ifnum#1=18 17\else%
	\ifnum#1=19 18\else%
	\relax%
	\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
}%

\newcommand{\redim}[1]{%
 \ifdim \baoxunit > 24pt
  {\LARGE{#1}}
 \else%
  \ifdim \baoxunit > 20pt
   {\Large{#1}}
  \else%
   \ifdim \baoxunit > 17pt
    {\large{#1}}
   \else%
    \ifdim \baoxunit > 14pt
     {\normalsize{#1}}
    \else%
     \ifdim \baoxunit > 12pt
      {\small{#1}}
     \else%
	   \ifdim \baoxunit > 10pt
       {\footnotesize{#1}}
      \else%
	    \ifdim \baoxunit > 9pt
        {\scriptsize{#1}}
       \else%
        {\tiny{#1}}%
       \fi
      \fi
     \fi
    \fi
   \fi%
  \fi
 \fi%
}%

\newcommand{\conx}[2]{%
 % There should be a better way to write this command!
 \nord=9
 \sud=#2
 \setcounter{tmpc}{#2}
 \advance \nord by -\value{tmpc}
 \if #1b
   \setcounter{tmpc}{\nord}%
 \else
  \if #1a
   \setcounter{tmpc}{\nord}%
  \else
   \if #1A
    \setcounter{tmpc}{\sud}%
   \else
    \if #1B
     \setcounter{tmpc}{\sud}%
    \fi
   \fi
  \fi
 \fi
 \b=\value{tmpc}
}%

\newenvironment{baomoves}{%
 \newcommand{\placesymbol}[3]{%
  \ifthenelse{4 > \baoxposition{##2}%
              \and %
              8 > \baoyposition{##3}}%
    {\rput[l](\baoyposition{##3},\baoxposition{##2}){\redim{##1}}%
    }%
    {}%
 }%
 \newcommand{\markpos}[3]
 {%
 \conx{##2}{##3}
 \placesymbol{\psframebox[dimen=inner,%
                         linestyle=none,%
                         boxsep=false,%
                         framesep=0.3\baoxunit]{##1}}{##2}{\value{tmpc}}
 }%
 \newcommand{\kete}[3]
 {%
  \placesymbol{%
   {\psset{linecolor=black,%
        fillcolor=black,%
        hatchcolor=gray,%
        unit=0.5\baoxunit}\color{black}##1}}{##2}{##3}%
 }%
 \newcommand{\ghala}[3]
 {%
 \ifx ##2S
   \setcounter{ghalaku}{##1} % 20
   \setcounter{ghalaka}{0}
 \else
  \ifx ##2s
   \setcounter{ghalaku}{##1} % 20
   \setcounter{ghalaka}{0}
  \else
   \setcounter{ghalaku}{0}
   \setcounter{ghalaka}{##1} % 19
  \fi
 \fi
 \ifnum \value{ghalaka}>0% 
  \rput(-1\baoxunit,2.5\baoyunit){\redim{\arabic{ghalaka}}}% % 19
 \fi%
 \ifnum \value{ghalaku}>0%
  \rput(8.3\baoxunit,0.5\baoyunit){\redim{\arabic{ghalaku}}}% % 19
 \fi%
 \setcounter{ghalaku}{0}
 \setcounter{ghalaka}{0}
 }%

	\renewcommand\seeds[3]{%
 \def\stmark{\pointbox{##1}}%
 % Here should be used the macro \conx
 \nord=9
 \sud=##3
% \b=##3
 \advance \nord by -\sud
 \if ##2b
  \kete{\stmark}{##2}{\nord}%
 \else
  \if ##2a
   \kete{\stmark}{##2}{\nord}%
  \else
   \if ##2A
    \kete{\stmark}{##2}{\sud}%
   \else
    \if ##2B
     \kete{\stmark}{##2}{\sud}%
    \else
     \ghala{##1}{##2}{##3}%
    \fi
   \fi
  \fi
 \fi
}%
%
	\newcommand\baoarrow[2]{
\conx{##1}{##2}
		\psdots[dotstyle=triangle*,dotscale=1.5](\baoyposition{\thetmpc},\pscalculate{\baoxposition{##1}-.5})
}%
}{}%

\newcommand{\xpositionmarks}[2]{%
   \setcounter{tmpglob}{9}%
	\whiledo{\value{#1} < #2}{%
	  \rput[B](\value{#1},-1.1\baoyunit){%
	    \addtocounter{#1}{1}%
	    \ifthenelse{\value{#1} > 8}%
   {\addtocounter{#1}{1}\baolabelformat{\arabic{#1}}\addtocounter{#1}{-1}}%
	      {\baolabelformat{\arabic{#1}}}%
	    \addtocounter{#1}{-1}}%
     \setlength{\tmply}{4\baoyunit}%
	  \rput[t](\value{#1},\tmply){%
	    \addtocounter{#1}{1}%
	    \ifthenelse{\value{#1} > 4}%
	      {\addtocounter{#1}{1}
	       \addtocounter{tmpglob}{-1}%
          \baolabelformat{\arabic{tmpglob}}
          \addtocounter{#1}{-1}
         }%
	      {
         \addtocounter{tmpglob}{-1}%
         \baolabelformat{\arabic{tmpglob}}
         }%
	    \addtocounter{#1}{-1}}%
	  \stepcounter{#1}%
	  }%
}%
\newcommand{\ypositionmarks}[2]{%
	\whiledo{\value{#1} < 4}{%
     \ifthenelse{\value{#1} > 1}%
	      {%
          \addtocounter{#1}{-1}
			 \edef\etnord{\alph{#1}}%
          \addtocounter{#1}{1}%
          \setlength{\tmplx}{#2\baoxunit}%
          \rput[l](\tmplx,\value{#1}){\baolabelformat{\etnord}}%
         }%
	      {%
          \ifthenelse{\value{#1} = 0}
          {
          \addtocounter{#1}{2}
			 \edef\etsud{\Alph{#1}}
          \addtocounter{#1}{-2}
          }
          {
			 \edef\etsud{\Alph{#1}}
          }
          \rput[r](-\baoxunit,\value{#1}){\baolabelformat{\etsud}}%
         }%
      \stepcounter{#1}%
	}%
}%

\def\psbaosetboardsizes(#1,#2)(#3,#4){%
  \def\psbaollx{#1}%
  \def\psbaolly{#2}%
  \def\psbaourx{#3}%
%  \ifthenelse{#4 > \value{boardrow}}
%   {\def\psbaoury{\value{boardrow}}}
%   {\def\psbaoury{#4}}%
  \def\psbaoury{#4}%
}

\newboolean{withindices}%
\setboolean{withindices}{true}%

\newenvironment{psbaopartialboard}[2][8]
{%
	\setcounter{boardcol}{8}%
	\setcounter{boardrow}{4}%
   \psbaosetboardsizes#2%
	\psset{xunit=\baoxunit,yunit=\baoyunit}%
    \ifthenelse{\boolean{withindices}}%
              {\def\xoffset{2\baoxunit}\def\yoffset{2\baoyunit}}%
              {\def\xoffset{.5\baoxunit}\def\yoffset{.5\baoyunit}}%
    % psbaollx=0
    \ifthenelse{\psbaollx = 1 \or \psbaollx < 1}%
              {\def\psbaollxval{-\xoffset}}%
              {\setlength%
               {\tmplx}%
               {\psbaollx\baoxunit - 1\baoxunit}%
               \edef\psbaollxval{\the\tmplx}%
              }%
    % psbaoly=0
    \ifthenelse{\psbaolly = 1 \or \psbaolly < 1}%
               {\def\psbaollyval{-.5\yoffset}}%
               {\setlength{\tmply}{\psbaolly\baoyunit - 1\baoyunit}\edef\psbaollyval{\the\tmply}}%
    % psbaorx=8 
    \ifthenelse{\psbaourx = \value{boardcol} \or \psbaourx > \value{boardcol}}%
               {\setlength{\tmplx}{\value{boardcol}\baoxunit - \baoxunit + \xoffset}%
                \edef\psbaourxval{\the\tmplx}}%
               {\def\psbaourxval{\psbaourx\baoxunit}}%
    % psbaory=4
    \ifthenelse{\psbaoury = \value{boardrow} \or \psbaoury > \value{boardrow}}%
               {\setlength{\tmply}{\value{boardrow}\baoyunit - \baoyunit + \yoffset}%
                \edef\psbaouryval{\the\tmply}}%
               {\def\psbaouryval{\psbaoury\baoyunit}}%
   %                     0,         0            8,           4
	\begin{pspicture}(\psbaollxval,\psbaollyval)(\psbaourxval,\psbaouryval)%
    \ifthenelse{\psbaollx = 1 \or \psbaollx < 1}%
               {\def\psbaollxval{-\xoffset}}%
               {\setlength{\tmplx}{\psbaollx\baoxunit - 1.5\baoxunit}\edef\psbaollxval{\the\tmplx}}%
    \ifthenelse{\psbaolly = 1 \or \psbaolly < 1}%
               {\def\psbaollyval{-\yoffset}}%
               {\setlength{\tmply}{\psbaolly\baoyunit - 1.5\baoyunit}\edef\psbaollyval{\the\tmply}}%
    \ifthenelse{\psbaourx = \value{boardcol} \or \psbaourx > \value{boardcol}}%
               {\setlength{\tmplx}{\value{boardcol}\baoxunit - \baoxunit + \xoffset}%
                \edef\psbaourxval{\the\tmplx}}%
               {\setlength{\tmplx}{\psbaourx\baoxunit - .5\baoxunit}%
                \edef\psbaourxval{\the\tmplx}}%
    \ifthenelse{\psbaoury = \value{boardrow} \or \psbaoury > \value{boardrow}}%
               {\setlength{\tmply}{\value{boardrow}\baoyunit - \baoyunit + \yoffset}%
                \edef\psbaouryval{\the\tmply}}%
               {\setlength{\tmply}{\psbaoury\baoyunit - .5\baoyunit}%
                \edef\psbaouryval{\the\tmply}}%
\psclip{\psframe[linecolor=white,linewidth=0](\psbaollxval,\psbaollyval)(\psbaourxval,\psbaouryval)}%
	\setlength{\tmply}{\value{boardrow}\baoyunit + 0.5\baoyunit}%
	\setlength{\tmplx}{\value{boardcol}\baoxunit + 0.5\baoxunit}%
	\addtolength{\tmply}{-1.5\baoyunit}%
	\addtolength{\tmplx}{-1.5\baoxunit}%
	
\multips(0,0)(1,0){\value{boardcol}}
{\pscircle[fillstyle=solid,linewidth=0.5pt](0,0){0.4\baoxunit}
\multips(0,0)(0,1){\value{boardrow}}{\pscircle[fillstyle=solid,linewidth=0.5pt](0,0){0.4\baoyunit}}
}%	
	%\psframe[linewidth=0pt](0,0)(\tmplx,\tmply)%
\ifthenelse{\boolean{withindices}}
{\setcounter{tmpc}{0}%
 \xpositionmarks{tmpc}{\value{boardcol}}%
 \setcounter{tmpc}{0}%
 \ypositionmarks{tmpc}{\value{boardcol}}%
}{\relax}%
\pspolygon[fillstyle=solid,linewidth=.5pt](2.5\baoxunit,1.6\baoyunit)% Nyumba
          (2.5\baoxunit,2.4\baoyunit)% 2
          (3.5\baoxunit,2.4\baoyunit)% 3
          (3.5\baoxunit,1.6\baoyunit) % 4 quadrata   
\pspolygon[fillstyle=solid,linewidth=.5pt](3.5\baoxunit,0.6\baoyunit)% Nyumba
          (3.5\baoxunit,1.4\baoyunit)% 2
          (4.5\baoxunit,1.4\baoyunit)% 3
          (4.5\baoxunit,0.6\baoyunit) % 4 quadrata   
% granai
\pspolygon[linearc=.5\baoxunit,linewidth=.5pt](-1.6\baoxunit,1.6\baoyunit)%
                      (-1.6\baoxunit,3.4\baoyunit)%
                      (-0.7\baoxunit,3.4\baoyunit)%
                      (-0.7\baoxunit,1.6\baoyunit)%
\pspolygon[linearc=.5\baoxunit,linewidth=.5pt](7.7\baoxunit,-0.4\baoyunit)%
                      (7.7\baoxunit,1.4\baoyunit)%
                      (8.6\baoxunit,1.4\baoyunit)%
                      (8.6\baoxunit,-0.4\baoyunit)%
\begin{baomoves}
  \ifnum \value{nvi}>0 {\seeds{\arabic{nvi}}{n}{1}}{}\fi%
  \ifnum \value{nvxxxiv}>0 {\seeds{\arabic{nvxxxiv}}{s}{1}}{}\fi%
  \ifnum \value{nvii}>0 {\seeds{\arabic{nvii}}{b}{8}}{}\fi%
  \ifnum \value{nviii}>0 {\seeds{\arabic{nviii}}{b}{7}}{}\fi%
  \ifnum \value{nviv}>0 {\seeds{\arabic{nviv}}{b}{6}}{}\fi%
  \ifnum \value{nvv}>0 {\seeds{\arabic{nvv}}{b}{5}}{}\fi%
  \ifnum \value{nvvi}>0 {\seeds{\arabic{nvvi}}{b}{4}}{}\fi%
  \ifnum \value{nvvii}>0 {\seeds{\arabic{nvvii}}{b}{3}}{}\fi%
  \ifnum \value{nvviii}>0 {\seeds{\arabic{nvviii}}{b}{2}}{}\fi%
  \ifnum \value{nvix}>0 {\seeds{\arabic{nvix}}{b}{1}}{}\fi%
  \ifnum \value{nvx}>0 {\seeds{\arabic{nvx}}{a}{8}}{}\fi%
  \ifnum \value{nvxi}>0 {\seeds{\arabic{nvxi}}{a}{7}}{}\fi%
  \ifnum \value{nvxii}>0 {\seeds{\arabic{nvxii}}{a}{6}}{}\fi%
  \ifnum \value{nvxiii}>0  {\seeds{\arabic{nvxiii}}{a}{5}}{}\fi%
  \ifnum \value{nvxiv}>0 {\seeds{\arabic{nvxiv}}{a}{4}}{}\fi%
  \ifnum \value{nvxv}>0 {\seeds{\arabic{nvxv}}{a}{3}}{}\fi%
  \ifnum \value{nvxvi}>0 {\seeds{\arabic{nvxvi}}{a}{2}}{}\fi%
  \ifnum \value{nvxvii}>0 {\seeds{\arabic{nvxvii}}{a}{1}}{}\fi%
  \ifnum \value{nvxviii}>0 {\seeds{\arabic{nvxviii}}{A}{1}}{}\fi%
  \ifnum \value{nvxix}>0 {\seeds{\arabic{nvxix}}{A}{2}}{}\fi%
  \ifnum \value{nvxx}>0 {\seeds{\arabic{nvxx}}{A}{3}}{}\fi%
  \ifnum \value{nvxxi}>0 {\seeds{\arabic{nvxxi}}{A}{4}}{}\fi%
  \ifnum \value{nvxxii}>0 {\seeds{\arabic{nvxxii}}{A}{5}}{}\fi%
  \ifnum \value{nvxxiii}>0 {\seeds{\arabic{nvxxiii}}{A}{6}}{}\fi%
  \ifnum \value{nvxxiv}>0 {\seeds{\arabic{nvxxiv}}{A}{7}}{}\fi%
  \ifnum \value{nvxxv}>0 {\seeds{\arabic{nvxxv}}{A}{8}}{}\fi%
  \ifnum \value{nvxxvi}>0 {\seeds{\arabic{nvxxvi}}{B}{1}}{}\fi%
  \ifnum \value{nvxxvii}>0 {\seeds{\arabic{nvxxvii}}{B}{2}}{}\fi%
  \ifnum \value{nvxxviii}>0 {\seeds{\arabic{nvxxviii}}{B}{3}}{}\fi%
  \ifnum \value{nvxxix}>0 {\seeds{\arabic{nvxxix}}{B}{4}}{}\fi%
  \ifnum \value{nvxxx}>0 {\seeds{\arabic{nvxxx}}{B}{5}}{}\fi%
  \ifnum \value{nvxxxi}>0 {\seeds{\arabic{nvxxxi}}{B}{6}}{}\fi%
  \ifnum \value{nvxxxii}>0 {\seeds{\arabic{nvxxxii}}{B}{7}}{}\fi%
  \ifnum \value{nvxxxiii}>0 {\seeds{\arabic{nvxxxiii}}{B}{8}}{}\fi%
}%
{
\end{baomoves}%
    \endpsclip%
	\end{pspicture}%
}%

\newenvironment{showbaoboard}[1][8]{%
  \begin{psbaopartialboard}[8]{(0,0)(8,4)}%
}
{%
  \end{psbaopartialboard}%
}
% numero di semi indefinito
\newcommand{\nomark}{\relax}%
\newcommand{\factor}{0.28284271247461901}% = 2/5 * sin(1/4 * pi)

\newcommand{\markma}{%
	\psline[linewidth=1.4pt](-\factor,-\factor)(\factor,\factor)%
	\psline[linewidth=1.4pt](-\factor,\factor)(\factor,-\factor)%
}
\newcommand{\marksx}{%
	\rput(-.5\baoxunit,0)%
	{%
	\psline[linewidth=1.4pt](.5\baoxunit,-.5\baoxunit)
	\psline[linewidth=1.4pt](.5\baoxunit,.5\baoxunit)
	}%
}%
\newcommand{\markdx}{%
	\rput(.5\baoxunit,0)%
	{%
	\psline(-.5\baoxunit,-.5\baoxunit)
	\psline(-.5\baoxunit,.5\baoxunit)
	}%
}%
\newcommand{\marksl}{%
\psframe[fillstyle=solid,fillcolor=gray,linecolor=gray](-0.22\baoxunit,-0.22\baoxunit)(0.22\baoxunit,0.22\baoxunit)%
}%
\newcommand{\markdd}{%
 \psframe[dimen=middle,%
    fillstyle=vlines,%
    hatchsep=2pt,%
    hatchwidth=0.4pt,%
    hatchangle=0,%
    linestyle=none]%
	 (-0.6\baoxunit,-0.5\baoyunit)(0.5\baoxunit,0.5\baoyunit)%
}%

\newcommand{\markss}{%
 \psframe[dimen=middle,%
    fillstyle=hlines,%
    hatchsep=2pt,%
    hatchwidth=0.6pt,%
    hatchangle=0,%
    linestyle=none]%
	 (-0.5\baoxunit,-0.5\baoyunit)(0.5\baoxunit,0.5\baoyunit)%
}%
\newcommand{\markmt}{%
	\rput(.5\baoxunit,0)%
{%
	\psline(-.5\baoxunit,-.5\baoxunit)
	\psline(-.5\baoxunit,.5\baoxunit)
}%
	\rput(-.5\baoxunit,0)%
{%
	\psline[linewidth=1.4pt](.5\baoxunit,-.5\baoxunit)
	\psline[linewidth=1.4pt](.5\baoxunit,.5\baoxunit)
}%
}%

\newcommand{\seeds}[1]{%
  \setlength{\tmply}{-0.5\baoxunit + 0.5ex}%
  \raisebox{\tmply}{\psset{unit=\baoxunit}%
  \begin{pspicture}(-0.5,-0)(0.5,1)%
\rput(0,0.5){{\psset{linecolor=white,unit=0.5}\color{white}\baolabelformat{#1}}}%
  \end{pspicture}}
}%

\newcommand{\weka}[3]{%
 % \kete[\stmark]{##2}{\conx{##2}{##3}}%
 \b=#3
 \if #2b
   \nord=10
   \advance \nord by -\b
   \setcounter{nv\romannumeral\nord}{#1}%
 \else
  \if #2a
   \nord=18
   \advance \nord by -\b
   \setcounter{nv\romannumeral\nord}{#1}%
  \else
   \if #2A
    \nord=17
    \advance \nord by \b
    \setcounter{nv\romannumeral\nord}{#1}%
   \else
    \if #2B
	  \nord=25
     \advance \nord by \b
     \setcounter{nv\romannumeral\nord}{#1}%
    \else
     \ifx #2S
      \setcounter{nvxxxiv}{#1}
     \else
      \ifx #2s
       \setcounter{nvxxxiv}{#1}
      \else
       \setcounter{nvi}{#1}%
      \fi
     \fi
    \fi
   \fi
  \fi
 \fi
}