From a9c51408c0b144d5b488b82be2ccff9cdab1a98c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 11 Nov 2008 00:12:59 +0000 Subject: new latex package psbao (10nov08) git-svn-id: svn://tug.org/texlive/trunk@11249 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/psbao/README | 28 + Master/texmf-dist/doc/latex/psbao/psbaomanual.pdf | Bin 0 -> 95794 bytes Master/texmf-dist/doc/latex/psbao/psbaomanual.tex | 350 +++++++++++ Master/texmf-dist/tex/latex/psbao/psbao.sty | 730 ++++++++++++++++++++++ Master/tlpkg/bin/tlpkg-ctan-check | 2 +- Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc | 2 +- Master/tlpkg/tlpsrc/psbao.tlpsrc | 2 + 7 files changed, 1112 insertions(+), 2 deletions(-) create mode 100644 Master/texmf-dist/doc/latex/psbao/README create mode 100644 Master/texmf-dist/doc/latex/psbao/psbaomanual.pdf create mode 100644 Master/texmf-dist/doc/latex/psbao/psbaomanual.tex create mode 100644 Master/texmf-dist/tex/latex/psbao/psbao.sty create mode 100644 Master/tlpkg/tlpsrc/psbao.tlpsrc diff --git a/Master/texmf-dist/doc/latex/psbao/README b/Master/texmf-dist/doc/latex/psbao/README new file mode 100644 index 00000000000..1038da6aee5 --- /dev/null +++ b/Master/texmf-dist/doc/latex/psbao/README @@ -0,0 +1,28 @@ +PSBAO is a LaTeX2e package to draw Bao diagrams in LaTeX. It has been created using the Go package written by Victor Bos (September 4, 2008) as basis and it is built on top of the PSTricks package. + +To all the people who have never played bao I suggest to visit: http://www.swahili.it/bao. + +To install the package, place the file psbao.sty in a directory where +LaTeX can find it. That is, it should be somewhere on TEXINPUTS. + +For more information, see the manual (psbaomanual.{pdf,tex}). + +---------------------------------------------------------------------- +COPYRIGHT + +psbao +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 program consists of the files: + + psbao.sty + psbaomanual.tex +---------------------------------------------------------------------- diff --git a/Master/texmf-dist/doc/latex/psbao/psbaomanual.pdf b/Master/texmf-dist/doc/latex/psbao/psbaomanual.pdf new file mode 100644 index 00000000000..dc2ccf7c2df Binary files /dev/null and b/Master/texmf-dist/doc/latex/psbao/psbaomanual.pdf differ diff --git a/Master/texmf-dist/doc/latex/psbao/psbaomanual.tex b/Master/texmf-dist/doc/latex/psbao/psbaomanual.tex new file mode 100644 index 00000000000..adc637dd699 --- /dev/null +++ b/Master/texmf-dist/doc/latex/psbao/psbaomanual.tex @@ -0,0 +1,350 @@ +%% psbaomanual.tex +% This program consists of the files: +% +% psbao.sty +% psbaomanual.tex +% +% +\documentclass[a4paper]{book} +\usepackage{psbao,array,url,lettrine,float,multicol} +\newcommand{\pstricks}{\textsf{PSTricks}} +\newcommand{\commandname}[1]{{\ttfamily\symbol{'134}#1}} +% The following code is taken from the doc package. It defines a global +% macro \bslash that produces a bslash (if present in the current font). +\makeatletter +{\catcode`\|=\z@ \catcode`\\=12 |gdef|bslash{\}} +\makeatother +\newcommand{\cmd}[1]{\texttt{\bslash #1}} + +\title{\psbao\\{\normalfont\normalsize Typesetting Bao Diagrams with \pstricks}} +\author{Nino Vessella\\web site: www.vessella.it} +\date{October, 2008} + +\setbaounit{0.5cm} + +\begin{document} +\maketitle + +\section*{Introduction} + +\lettrine[lines=2]{\textbf{T}}{his package} provides functionality to typeset Bao diagrams in \LaTeXe. It has been created using the Go package written by Victor Bos (September 4, 2008) as basis and it is built on top of the \pstricks{} package. + +To all the people who have never played bao I suggest to visit \textit{\url{http://www.swahili.it/bao}}. + +\section*{Download and installation} + +\lettrine[lines=2]{\textbf{T}}{he} \psbao{} package can be found at CTAN (mirrors) in the directory\linebreak +\url{graphics/pstricks/contrib/psbao/}. + +\noindent It is also available from +\url{http://www.vessella.it/ghala/}. +\medskip + +To install the package, download the files +\texttt{psbao.sty} and \texttt{psbaomanual.tex} and put them in a +directory where \LaTeX{} can find them. After that, test the +installation by running \LaTeX{} on \texttt{psbaomanual.tex}. + +Note that \textsf{psbao} uses \textsf{pstricks} to draw +graphics. Therefore, the same things that apply to viewing and +printing documents with \textsf{pstricks} graphics also apply to +documents with \textsf{psbao} graphics. In particular, it is usually +better to use a PostScript viewer (e.g., \texttt{gv} or +\texttt{gsview}) instead of a DVI viewer (like \texttt{xdvi} or +\texttt{yap}). + +\section*{Bao boards} + +\lettrine[lines=2]{\textbf{T}}{he} interface of \psbao{} is based on the notation used in\linebreak\url{http://www.swahili.it/bao/}. That is, the rows of the $4\times8$ board are indexed by $1,2,\ldots,8$ and the columns are indexed by $b, a, A, B$. + +First of all it must be set the initial position of a Bao game. For the standard initial setting is used the command \verb|\initbao|, but the board is showed by the environmnet \verb|\begin{showbaoboard}| $\dots$ \verb|\end{showbaoboard}| (Figure~\ref{fig:ko:standard}): + +\begin{figure}[!ht] +\setlength{\columnsep}{20pt}\small +\begin{multicols}{2} +\noindent Code:\\ +\mbox{}\\ +\begin{verbatim} +\initbao +\begin{figure} + \begin{center} + \begin{showbaoboard} + \end{showbaoboard} + \caption{...} + \label{fig:...} + \end{center} +\end{figure} +\end{verbatim} +\mbox{}\\ +Prints:\\ +\mbox{}\\ + \begin{showbaoboard} + \end{showbaoboard} +\mbox{}\\ +\caption{Setting up the standard initial situation: default size 0.6cm} +\label{fig:ko:standard} +\end{multicols} +\end{figure} + + +For the initial setting of the beginner's variant \textit{Bao la kujifunza} is used the command \verb|\initjbao| (Figure~\ref{fig:empty:jifunza}): + +\begin{figure}[!ht] +\setlength{\columnsep}{20pt}\small +\begin{multicols}{2} +\noindent Code:\\ +\mbox{}\\ +\begin{verbatim} +\initjbao +\begin{figure} + \begin{center} + \begin{showbaoboard} + \end{showbaoboard} + \caption{...} + \label{fig:...} + \end{center} +\end{figure} +\end{verbatim} +\mbox{}\\ +Prints:\\ +\mbox{}\\ +\initjbao + \begin{showbaoboard} + \end{showbaoboard} +\mbox{}\\ + \caption{Bao la kujifunza} + \label{fig:empty:jifunza} +\end{multicols} +\end{figure} + +The default horizontal unit distance is~$0.6$cm. The vertical unit distance is computed by the \psbao{} package. +To re-size a Bao board, the command +\verb|\setbaounit| can be used. This command takes the desired +horizontal unit distance as an argument. It is not advisable, though possible, to set the unit distance to a value less than 0.3cm, see Figure~\ref{fig:empty:resize}(b). + +\initbao +\weka{0}{n}{0} +\weka{0}{a}{5} % 3,0 +\weka{0}{a}{6} % 2,1 +\weka{0}{a}{7} % 1,2 +\weka{0}{A}{5} % 0,3 +\weka{0}{A}{6} +\weka{0}{A}{7} +\weka{0}{s}{0} +\weka{10}{b}{2} % 3,0 +\weka{27}{a}{2} % 2,1 +\weka{33}{A}{2} % 1,2 +\weka{4}{B}{2} % 0,3 +\weka{10}{A}{1} +\begin{figure}[H] + \begin{center} + \begin{tabular}{cc} + \setbaounit{.5cm} + \begin{showbaoboard} + \end{showbaoboard} +& + \setbaounit{0.3cm} + \weka{10}{b}{2} % 3,0 + \weka{27}{a}{2} % 2,1 + \weka{33}{A}{2} % 1,2 + \weka{4}{B}{2} % 0,3 + \weka{10}{A}{1} + \begin{showbaoboard} + \end{showbaoboard} +\\ +\\ +(a) Horizontal step 0.5cm. +& +(b) Horizontal step 0.3cm. +\end{tabular} + \caption{Resized Bao boards} + \label{fig:empty:resize} + \end{center} +\end{figure} + +For the diagrams in this document we have set the horizontal +unit distance to~$0.5$cm (\verb|\setbaounit{0.5cm}|). + +\section*{Seeds and situations} + +\lettrine[lines=2]{\textbf{T}}{he command} to put seeds into the holes is \verb|\weka| which takes three parameters: the number of seeds, the row and the column of the hole. For example, \verb|\weka{2}{a}{4}| puts two seeds into the hole at position~$(a,4)$. The \verb|\weka| command can be used to modify a previous situation. For instance, the situation of Figure~\ref{fig:ko:situation} is defined as follows. + +\begin{figure}[!ht] +\setlength{\columnsep}{20pt}\small +\begin{multicols}{2} +\noindent Code:\\ +\mbox{}\\ +\begin{verbatim} +\weka{1}{b}{2} % 3,0 +\weka{2}{a}{2} % 2,1 +\weka{3}{A}{2} % 1,2 +\weka{4}{B}{2} % 0,3 +\weka{5}{A}{1} +\weka{9}{A}{3} +\begin{showbaoboard} +\end{showbaoboard} +\end{verbatim} +Prints:\\ +\mbox{}\\ +\weka{1}{b}{2} % 3,0 +\weka{2}{a}{2} % 2,1 +\weka{3}{A}{2} % 1,2 +\weka{4}{B}{2} % 0,3 +\weka{5}{A}{1} +\weka{9}{A}{3} +\begin{showbaoboard} +\end{showbaoboard} +\mbox{}\\ + \caption{Example of weka} + \label{fig:ko:situation} +\end{multicols} +\end{figure} + +The same situation can be set by \verb|\initbao| which takes one optional parameter to indicate the number of seeds contained in all holes (Figure~\ref{fig:ko:sit}). + +\begin{figure}[!ht] +\setlength{\columnsep}{20pt}\small +\begin{multicols}{2} +\noindent Code:\\ +\mbox{}\\ +\begin{verbatim} +\initbao[0,% + 0,0,0,0,0,0,1,0,% + 0,0,0,0,0,0,1,0,% + 5,3,0,0,0,0,0,0,% + 0,3,9,0,0,0,0,0,% + 0] +\begin{figure} +\begin{center} + \begin{showbaoboard} + \end{showbaoboard} +\end{center} +\end{figure} +\end{verbatim} +Prints:\\ +\mbox{}\\ +\initbao[0,% + 0,0,0,0,0,0,1,0,% + 0,0,0,0,0,0,1,0,% + 5,3,0,0,0,0,0,0,% + 0,3,9,0,0,0,0,0,% + 0] + \begin{showbaoboard} + \end{showbaoboard} +\mbox{}\\ + \caption{Writing the number of seeds of all holes} + \label{fig:ko:sit} +\end{multicols} +\end{figure} + +To put seeds into the stores is used the same command: \verb|\weka|. In this case instead of index of the row can be used the letters $s$ or $S$ for the south store, and the letters $n$ or $N$. For example, \verb|\weka{2}{s}{4}| puts two seeds into the store of South. The third parameter must be any number. +\begin{figure}[!ht] +\setlength{\columnsep}{20pt}\small +\begin{multicols}{2} +\noindent Code:\\ +\begin{verbatim} +\begin{showbaoboard} +\weka{10}{n}{2} +\weka{1}{b}{2} +\weka{2}{a}{2} +\weka{3}{A}{2} +\weka{4}{B}{2} +\weka{5}{A}{1} +\weka{9}{A}{3} +\weka{9}{s}{3} +\end{showbaoboard} +\end{verbatim} +\mbox{}\\ +\mbox{}\\ +Prints:\\ +\mbox{}\\ +\weka{10}{n}{2} +\weka{1}{b}{2} % 3,0 +\weka{2}{a}{2} % 2,1 +\weka{3}{A}{2} % 1,2 +\weka{4}{B}{2} % 0,3 +\weka{5}{A}{1} +\weka{9}{A}{3} +\weka{9}{s}{3} +\begin{showbaoboard} +\end{showbaoboard} +\mbox{}\\ +\caption{Setting up a situation with stores} +\label{fig:ko:ghala} +\end{multicols} +\end{figure} + +The command: \verb|\weka| keeps the previous situation, so if it is necessary to set a completely new situation it must be used the command \verb|\initbao|. + +\section*{Markers} + +\lettrine[lines=2]{\textbf{A}}{ hole} on the board can be marked with the command \verb|\markpos|. This command takes three parameters: the +marker, the column, and the row. Available markers and the commands to +generate them are listed in Table~\ref{tbl:markers}. + +Note that to mark a non-empty hole the command \verb|\weka| have to be used together with marker command, \verb|\markpos|. + +Note, also, that the special holes (as \textit{kichwa} or \textit{kimbi}) can be used the marks \verb|\markdd| or \verb|\markss|, indifferently (but consistently!). Those commands must be inside the environment \verb|\begin{showboard}| $dots$ \verb|\end{showboard}|. + +\setbaounit{0.4cm} +\weka{1}{b}{2} +\weka{2}{a}{2} +\weka{3}{A}{2} +\weka{4}{B}{2} +\weka{5}{A}{1} +\weka{9}{A}{3} +\begin{table} +\begin{center} +\begin{tabular}{|c|l|l|l|} +\hline +Diagram & Mark & Description & Command\\ +\hline\hline +\raisebox{0.2\height} +{% +\begin{showbaoboard} +\markpos{\marksx}{a}{2} +\end{showbaoboard}% +} & +\commandname{marksx} & a2\textless & +{\commandname{markpos}\{\commandname{marksx}\}\{a\}\{2\}}\\\hline +% +\raisebox{0.2\height} +{ +\begin{showbaoboard} +\markpos{\markdx}{A}{3} +\end{showbaoboard} +} & +\commandname{markdx}& A3\textgreater & +{\commandname{markpos}\{\commandname{markdx}\}\{A\}\{3\}}\\\hline +% +\raisebox{0.2\height} +{ +\begin{showbaoboard} +\markpos{\markss}{a}{2} +\end{showbaoboard}} & +\commandname{markss}& Special hole & +{\commandname{markpos}\{\commandname{markss}\}\{a\}\{2\}}\\\hline +% +\raisebox{0.2\height} +{ +\begin{showbaoboard} +\markpos{\markdd}{A}{1} +\end{showbaoboard}} & +\commandname{markdd}& Special hole & +{\commandname{markpos}\{\commandname{markdd}\}\{A\}\{1\}}\\\hline +% +\raisebox{0.2\height} +{ +\begin{showbaoboard} +\markpos{\markma}{A}{5} +\end{showbaoboard}} & +\commandname{markma}& Any nr of seeds & +{\commandname{markpos}\{\commandname{markma}\}\{A\}\{5\}}\\\hline +\end{tabular} +\caption{Markers on holes} +\label{tbl:markers} +\end{center} +\end{table} + + +\end{document} diff --git a/Master/texmf-dist/tex/latex/psbao/psbao.sty b/Master/texmf-dist/tex/latex/psbao/psbao.sty new file mode 100644 index 00000000000..3f369b5854a --- /dev/null +++ b/Master/texmf-dist/tex/latex/psbao/psbao.sty @@ -0,0 +1,730 @@ +%% psbao.sty +%% Copyright 2004, 2003,2001 V. Bos +% +% 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 program consists of the files: +% +% psbao.sty +% psbaomanual.tex +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% MOST OF THE FOLLOWING CODE IS COPIED FROM psgo.sty % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +\NeedsTeXFormat{LaTeX2e}% +\ProvidesPackage{psbao}[2008/09/04, v0.17] +\message{`PSBAO', <2008/09/04>, v0.17} +\RequirePackage{pstricks,pst-node,calc,ifthen,cool,etex} + +\newcommand{\psbao}{\textsf{psbao}} +\newsavebox{\stmarkbox} +\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} + +\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} +\newcommand{\hatchangle}{-42.5} % non usato +\newlength{\tmplx} +\newlength{\tmply} +\newlength{\tmpxa}% non usato +\newlength{\tmpxb}% non usato +\newlength{\tmpya}% non usato +\newlength{\tmpyb}% non usato +\newcounter{tmpc} + +\newcommand{\pointbox}[1]{% +\raisebox{-0.5\height+0.5\depth}[0pt][0pt]{\makebox[0pt]{#1}}% +} + +%\newcommand{\baolabelformat}[1]{{\sffamily #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]{% +% \the\baoxunit + \ifdim \baoxunit > 24pt +% {\huge{##1}} + {\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% + }% + +\newenvironment{baomoves}{% + \newcommand{\placesymbol}[3]{% + \ifthenelse{4 > \baoxposition{##2}% + \and % + 8 > \baoyposition{##3}}% + {\rput[l](\baoyposition{##3},\baoxposition{##2}){\redim{##1}}% + }% + {}% + }% + \newcommand{\markpos}[3] + {% + % Here should be used the macro \conx + \newcount\sud + \newcount\nord + \newcount\b + \nord=9 + \sud=##3 + \b=##3 + \advance \nord by -\b + \if ##2b + \b = \nord% + \else + \if ##2a + \b = \nord% + \else + \if ##2A + \b = \sud% + \else + \if ##2B + \b = \sud% + \fi + \fi + \fi + \fi + \placesymbol{\psframebox[dimen=inner,% + linestyle=none,% + boxsep=false,% + framesep=0.3\baoxunit]{##1}}{##2}{\b} + }% + \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} + }% + +\newcommand{\conx}[2]{% + \newcount\sud + \newcount\nord + \newcount\b + \nord=9 + \sud=##2 + \b=##2 + \advance \nord by -\b + \if ##1b \nord% + \else + \if ##1a \nord + \else + \if ##1A \sud + \else + \if ##1B \sud + \fi + \fi + \fi + \fi +}% +\renewcommand{\seeds}[3]{% +% \kete[\stmark]{##2}{\conx{##2}{##3}}% + % Here should be used the macro \conx + \newcount\sud + \newcount\nord + \newcount\b + \nord=9 + \sud=##3 + \b=##3 + \advance \nord by -\b + \def\stmark{\pointbox{##1}}% + \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] +{ + % Here should be used the macro \conx + \newcount\sud + \newcount\nord + \newcount\b + \nord=9 + \sud=##2 + \b=##2 + \advance \nord by -\b + \if ##1b + \b = \nord% + \else + \if ##1a + \b = \nord% + \else + \if ##1A + \b = \sud% + \else + \if ##1B + \b = \sud% + \fi + \fi + \fi + \fi +\pstriangle[gangle=90](\baoyposition{\b},\baoxposition{##1})(1,.5) +%\psline[linewidth=1.4pt, +% linecolor=black, +% linestyle=solid, +% arrowscale=1.5]% +% {>-}% +% (\baoyposition{\b},\baoxposition{##1}) +% (\baoyposition{\b},\baoxposition{##1}) +% (0.1\baoyposition{##2},\baoxposition{\b})% +%} +}% +}{}% + +\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}% +% \ifthenelse{#3 > \value{boardcol}} +% {\def\psbaourx{\value{boardcol}}} +% {\def\psbaourx{#3}}% + \def\psbaourx{#3}% +% \ifthenelse{#4 > \value{boardrow}} +% {\def\psbaoury{\value{boardrow}}} +% {\def\psbaoury{#4}}% + \def\psbaoury{#4}% +} + +\newboolean{withindices}% +\setboolean{withindices}{true}% + +% psbaopartialboard[8](0,0)(8,4) +\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}% +} +\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) + %\pstriangle(-.1\baoxunit,0.1\baoxunit)% + }% +}% +\newcommand{\markdx}{% + \rput(.5\baoxunit,0)% + {% + \psline(-.5\baoxunit,-.5\baoxunit) + \psline(-.5\baoxunit,.5\baoxunit) + %\pstriangle(-.1\baoxunit,0.1\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{\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{\baosit}[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} +\begin{showbaoboard} + \ifnum \bci>0 {\seeds{\bci}{n}{1}}{}\fi% + \ifnum \bcii>0 {\seeds{\bcii}{b}{8}}{}\fi% + \ifnum \bciii>0 {\seeds{\bciii}{b}{7}}{}\fi% + \ifnum \bciv>0 {\seeds{\bciv}{b}{6}}{}\fi% + \ifnum \bcv>0 {\seeds{\bcv}{b}{5}}{}\fi% + \ifnum \bcvi>0 {\seeds{\bcvi}{b}{4}}{}\fi% + \ifnum \bcvii>0 {\seeds{\bcvii}{b}{3}}{}\fi% + \ifnum \bcviii>0 {\seeds{\bcviii}{b}{2}}{}\fi% + \ifnum \bcix>0 {\seeds{\bcix}{b}{1}}{}\fi% + \ifnum \bcx>0 {\seeds{\bcx}{a}{8}}{}\fi% + \ifnum \bcxi>0 {\seeds{\bcxi}{a}{7}}{}\fi% + \ifnum \bcxii>0 {\seeds{\bcxii}{a}{6}}{}\fi% + \ifnum \bcxiii>0 {\seeds{\bcxiii}{a}{5}}{}\fi% + \ifnum \bcxiv>0 {\seeds{\bcxiv}{a}{4}}{}\fi% + \ifnum \bcxv>0 {\seeds{\bcxv}{a}{3}}{}\fi% + \ifnum \bcxvi>0 {\seeds{\bcxvi}{a}{2}}{}\fi% + \ifnum \bcxvii>0 {\seeds{\bcxvii}{a}{1}}{}\fi% + \ifnum \bcxviii>0 {\seeds{\bcxviii}{A}{1}}{}\fi% + \ifnum \bcxix>0 {\seeds{\bcxix}{A}{2}}{}\fi% + \ifnum \bcxx>0 {\seeds{\bcxx}{A}{3}}{}\fi% + \ifnum \bcxxi>0 {\seeds{\bcxxi}{A}{4}}{}\fi% + \ifnum \bcxxii>0 {\seeds{\bcxxii}{A}{5}}{}\fi% + \ifnum \bcxxiii>0 {\seeds{\bcxxiii}{A}{6}}{}\fi% + \ifnum \bcxxiv>0 {\seeds{\bcxxiv}{A}{7}}{}\fi% + \ifnum \bcxxv>0 {\seeds{\bcxxv}{A}{8}}{}\fi% + \ifnum \bcxxvi>0 {\seeds{\bcxxvi}{B}{1}}{}\fi% + \ifnum \bcxxvii>0 {\seeds{\bcxxvii}{B}{2}}{}\fi% + \ifnum \bcxxviii>0 {\seeds{\bcxxviii}{B}{3}}{}\fi% + \ifnum \bcxxix>0 {\seeds{\bcxxix}{B}{4}}{}\fi% + \ifnum \bcxxx>0 {\seeds{\bcxxx}{B}{5}}{}\fi% + \ifnum \bcxxxi>0 {\seeds{\bcxxxi}{B}{6}}{}\fi% + \ifnum \bcxxxii>0 {\seeds{\bcxxxii}{B}{7}}{}\fi% + \ifnum \bcxxxiii>0 {\seeds{\bcxxxiii}{B}{8}}{}\fi% + \ifnum \bcxxxiv>0 {\seeds{\bcxxxiv}{s}{1}}{}\fi% +\end{showbaoboard} +} + +\newcommand{\weka}[3]{% +% \kete[\stmark]{##2}{\conx{##2}{##3}}% + % Here should be used the macro \conx + \newcount\nord + \newcount\b + \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 +} diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 284390b531e..3d8b5ff7efd 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -170,7 +170,7 @@ my @WorkingTLP = qw( polytable powerdot ppr-prv pracjourn preprint prettyref preview proba probsoln procIAGssymp program protex protocol - pseudocode psfrag psfrag-italian psgo pslatex psnfss pspicture + psbao pseudocode psfrag psfrag-italian psgo pslatex psnfss pspicture pst-2dplot pst-3d pst-3dplot pst-asr pst-bar pst-barcode pst-blur pst-circ pst-cox pst-dbicons pst-diffraction pst-eps pst-eucl pst-fill diff --git a/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc b/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc index 82c059d3571..e25e01807d4 100644 --- a/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc @@ -1,11 +1,11 @@ name collection-pstricks category Collection shortdesc PSTricks packages -longdesc Additional PSTricks packages. depend auto-pst-pdf depend bclogo depend makeplot depend pdftricks +depend psbao depend pst-2dplot depend pst-3d depend pst-3dplot diff --git a/Master/tlpkg/tlpsrc/psbao.tlpsrc b/Master/tlpkg/tlpsrc/psbao.tlpsrc new file mode 100644 index 00000000000..93453797879 --- /dev/null +++ b/Master/tlpkg/tlpsrc/psbao.tlpsrc @@ -0,0 +1,2 @@ +name psbao +category Package -- cgit v1.2.3