new pstricks pst-soroban (15oct07)

git-svn-id: svn://tug.org/texlive/trunk@5206 c570f23f-e606-0410-a88d-b1316a301751

9 files changed, 585 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-soroban/Changes b/Master/texmf-dist/doc/generic/pst-soroban/Changes
new file mode 100644
index 00000000000..ec06947c784
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-soroban/Changes
@@ -0,0 +1,5 @@
+pst-soroban.sty --------
+2007-10-13  v1.00  first CTAN Version
+
+
+pst-soroban-doc.tex --------
diff --git a/Master/texmf-dist/doc/generic/pst-soroban/README b/Master/texmf-dist/doc/generic/pst-soroban/README
new file mode 100644
index 00000000000..fccb3ea07b3
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-soroban/README
@@ -0,0 +1,10 @@
+pst-soroban: creates abacus images
+
+pst-soroban.sty     - The LaTeX style file
+pst-soroban-doc.pdf - The documentation
+pst-soroban-doc.tex - The documentation, source
+pst-soroban-doc.bib - The documentation, bibfile
+
+
+--
+Herbert Voss 2007-10-13
diff --git a/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.bib b/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.bib
new file mode 100644
index 00000000000..64a6e0312ad
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.bib
@@ -0,0 +1,80 @@
+%% -*-bibtex-*-
+@STRING{tugboat	= {TUGboat} }
+@STRING{dtk	= {{D}ie {\TeX}nische {K}om{\"o}die} }
+
+@Book{tlgc2,
+  author	= {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Denis Roegel and Herbert Vo{\ss}},
+  title		= {The {\LaTeX} {G}raphics {C}ompanion},
+  publisher	= {{Addison-Wesley Publishing Company}},
+  edition	= second,
+  year		= {2007},
+  address	= {Reading, Mass.}
+}
+
+
+
+@Article{girou:01:,
+  author	= {Denis Girou},
+  title		= {Pr\'esentation de {PST}ricks},
+  journal	= {Cahier {GUT}enberg},
+  year		= 1994,
+  volume	= {16},
+  month		= apr,
+  pages		= {21-70}
+}
+
+@Article{girou:02:,
+  author	= {{Timothy Van} Zandt and Denis Girou},
+  title		= {Inside {PST}ricks},
+  journal	= TUGboat,
+  year		= 1994,
+  volume	= {15},
+  month		= sep,
+  pages		= {239-246}
+}
+
+@Book{PostScript,
+  Author         = {Kollock, Nikolai G.},
+  Title          = {Post{S}cript richtig eingesetzt: vom {K}onzept zum
+                   praktischen {E}insatz},
+  Publisher      = {IWT},
+  Address        = {Vaterstetten},
+  year           = 1989,
+}
+
+@Manual{pstricks,
+  Title          = {PSTricks - {\PS} macros for generic {\TeX}},
+  Author         = {{Timothy Van} Zandt},
+  Organization   = {},
+  Address        = {\url{http://www.tug.org/application/PSTricks}},
+  Note           = {},
+  year           = 1993
+}
+
+@Manual{pst-coil,
+  Title          = {\texttt{pst-coil}: Coils and zigzags},
+  Author         = {{Timothy Van} Zandt},
+  Organization   = {},
+  Address        = {\url{CTAN:graphics/pstricks/generic/}},
+  Note           = {},
+  year           = 1999
+}
+
+@Manual{multido,
+  Title          = {\texttt{multido.tex} - a loop macro, that supports fixed-point addition},
+  Author         = {{Timothy Van} Zandt},
+  Organization   = {},
+  Address        = {\url{CTAN:/graphics/pstricks/generic/multido.tex}},
+  Note           = {},
+  year           = 1997
+}
+
+@Book{PSTricks2,
+  author	= {Herbert Vo\ss{}},
+  title		= {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
+  edition	= {forth},
+  publisher	= {DANTE -- Lob.media},
+  year		= {2007},
+  address	= {Heidelberg/Hamburg}
+}
+
diff --git a/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.pdf b/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.pdf
new file mode 100644
index 00000000000..c71ad9cdf94
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.tex b/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.tex
new file mode 100644
index 00000000000..a4c765f6cf1
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-soroban/pst-soroban-doc.tex
@@ -0,0 +1,332 @@
+\documentclass[a4paper]{article}
+
+\usepackage[T1]{fontenc}
+\usepackage[latin1]{inputenc}
+\usepackage{lmodern,url}
+
+\newcommand{\ttsl}[1]{\texttt{\textsl{#1}}}
+\usepackage{pst-soroban}
+\def\PS{PostScript}
+\title{SOROBAN abacus\\[1cm]
+package \texttt{pst-soroban}}
+\author{Alain Delmotte \url{esperanto@swing.be}}
+
+
+\begin{document}
+
+\maketitle
+\tableofcontents
+
+\clearpage
+\section{Original size \normalsize{(ps unit = 1mm)}} 
+
+\psset{unit=1mm}
+\begin{center}
+\begin{pspicture}(-2,-2)(122,76)
+\tige{1}{1}{1}
+\tige{2}{0}{0}
+\tige{3}{6}{0}
+\tige{4}{7}{1}
+\tige{5}{4}{0}
+\tige{6}{3}{0}
+\cadre{6}
+\end{pspicture}
+\end{center}
+\vspace{10mm}
+
+
+\section{Using the package}
+
+%There are two versions of the package \verb+soroban-pst.sty+ and \verb+soroban-pgf.sty+ 
+%for use with PStricks or tikz/pgf. Just rename the selected system as \verb+soroban.sty+ 
+%and put it in a folder which can be found by \LaTeX.
+
+In the preamble, insert the instruction \verb+\usepackage{pst-soroban}+. There is no need 
+to load the corresponding graphics package as the packages are required by the pst-soroban package.
+
+The package also sets the base unit as 1 mm; this draws a soroban of the normal size 
+as used in schools, shops,\dots If one wants to change the size, one sets the base 
+unit by \verb+\psset{unit=0.25mm}+.%  (for PStricks) or \verb+\ladj{0.25}+ (for tikz/pgf). 
+These instructions can be used any time in the document to change the size for some 
+part if required.
+
+To draw a soroban, one draws rod(s) with the required bids in the right position and 
+add either a frame or just top and bottom parts of the frame. One can then add some 
+bids in other colours and also cross some bids.
+
+Let's draw a soroban representing the number 321.45 in small size: 0.25.
+
+\renewcommand{\colbil}{yellow}
+\renewcommand{\coltig}{brun}
+\psset{unit=0.25mm}
+\begin{center}
+\begin{pspicture}(-2,-2)(122,76)
+\tige{1}{0}{1}
+\tige{2}{3}{0}
+\tige{3}{2}{0}
+\tige{4}{1}{1}
+\tige{5}{4}{0}
+\tige{6}{5}{0} 
+\cadre{6}
+\end{pspicture}
+\end{center}
+\begin{tabular}{|l|l|l|}
+\hline
+\textbf{line}& \textbf{PStricks} & \textbf{tikz/pgf}\\
+\hline
+\verb§ 1§ & \verb§\psset{unit=0.25mm}§ & \verb§\ladj{0.25}§\\
+\verb§ 2§ & \verb§\begin{pspicture}(-2,-2)(122,76)§ & \verb§\begin{pspicture}§\\
+\verb§ 3§ & \verb§\tige{1}{0}{1}                  § & \verb§\tige{1}{0}{1}     §\\
+\verb§ 4§ & \verb§\tige{2}{3}{0}                  § & \verb§\tige{2}{3}{0}     §\\
+\verb§ 5§ & \verb§\tige{3}{2}{0}                  § & \verb§\tige{3}{2}{0}     §\\
+\verb§ 6§ & \verb§\tige{4}{1}{1}                  § & \verb§\tige{4}{1}{1}     §\\
+\verb§ 7§ & \verb§\tige{5}{4}{0}                  § & \verb§\tige{5}{4}{0}     §\\
+\verb§ 8§ & \verb§\tige{6}{5}{0}                  § & \verb§\tige{6}{5}{0}     §\\
+\verb§ 9§ & \verb§\cadre{6}                       § & \verb§\cadre{6}          §\\
+\verb§10§ & \verb§\end{pspicture}                 § & \verb§\end{pspicture}  §\\
+\hline
+\end{tabular}
+\vspace{6pt}
+
+Line 1 defines the size, lines 2 and 10 create the picture environment, lines 3--8 draw 
+the rods and line 9 creates the frame.
+
+For PStricks, one has to give the dimensions of the picture, otherwise the drawing 
+would have no size and would overlap the surrounding text. One gives some space before 
+and below (\verb+(-2,-2)+) and after above. The picture is 74.6 units hight and 20* number 
+of rods wide (here \verb+(122,76)+). Of course, if one adds something before, under, 
+after or above the soroban, one has to adjust the corresponding part of the frame dimension.
+
+%This is not necessary for tikz.
+
+To draw a rod, one uses the command \verb+\tige+. The syntax is:
+\begin{center}
+\verb§\tige[§\ttsl{<st>}\verb§]{§\ttsl{<nu>}\verb§}{§\ttsl{<val>}\verb§}{§\ttsl{<un>}\verb§}§
+\end{center}
+
+The \ttsl{<nu>} argument numbers the rods from left to right. \ttsl{<val>} is the 
+number to be represented on the rod from 0 to 9. The \ttsl{<un>} argument tells 
+that there is a dot on the central bar (1) or not (0); there is normally a dot for the 
+unit, thousand, million,\dots ranks.
+
+The \ttsl{<st>} argument is optional and tells at which position the drawing is started; 
+the default value is 1. This is interesting when one wants to put more then one drawing 
+on a line:
+
+\begin{center}
+\begin{minipage}[][][c]{5cm}
+\begin{verbatim}
+\begin{pspicture}(-2,-2)(182,76)
+\tige{1}{1}{1}
+\barres{1}
+\tige[5]{1}{6}{1}
+\barres[5]{1}
+\tige[9]{1}{5}{1}
+\barres[9]{1}
+\end{pspicture}
+\end{verbatim}
+\end{minipage}
+\hspace{10mm}
+\begin{minipage}[][][c]{5cm}
+\begin{pspicture}(-2,-2)(182,76)
+\tige{1}{1}{1}
+\barres{1}
+\tige[5]{1}{6}{1}
+\barres[5]{1}
+\tige[9]{1}{5}{1}
+\barres[9]{1}
+\end{pspicture}
+\end{minipage}
+\end{center}
+
+In this example, there is no frame but only parts of it above and below; this is 
+created with the \verb+\barres+ command. The syntaxes for the frame and top/bottom lines are:
+\begin{center}
+\verb§\cadre[§\ttsl{<st>}\verb§]{§\ttsl{<nb>}\verb§}§ and \verb§\barres[§\ttsl{<st>}\verb§]{§\ttsl{<nb>}\verb§}§.
+\end{center}
+
+The optional \ttsl{<st>} arguments are the same as the one of \verb+\tige+, the \ttsl{<nb>} 
+argument tell how many rods have to be covered.
+
+If one wants to colour a specific bid , one can achieve this with \verb+\binoire+:
+\begin{center}
+\verb§\binoire[§\ttsl{<st>}\verb§]{§\ttsl{<nu>}\verb§}{§\ttsl{<pos>}\verb§}{§\ttsl{<col>}\verb§}§
+\end{center}
+
+\ttsl{<st>} and \ttsl{<nu>} arguments are the same as for \verb+\tige+; the \ttsl{<col>} 
+argument defines the colour and the \ttsl{<pos>} argument tells which bid has to be 
+coloured as shown in the following example.
+
+\begin{center}
+\begin{minipage}[c]{5cm}
+\begin{verbatim}
+\begin{pspicture}(-2,-2)(202,76)
+\tige{1}{0}{1}
+\tige{2}{0}{1}
+\tige{3}{0}{1}
+\tige{4}{0}{1}
+\tige{5}{4}{1}
+\tige{6}{4}{1}
+\tige{7}{4}{1}
+\tige{8}{4}{1}
+\tige{9}{0}{1}
+\tige{10}{5}{1}
+\cadre{10}
+\binoire{1}{1}{black}
+\binoire{2}{2}{black}
+\binoire{3}{3}{black}
+\binoire{4}{4}{black}
+\binoire{5}{5}{black}
+\binoire{6}{6}{black}
+\binoire{7}{7}{black}
+\binoire{8}{8}{black}
+\binoire{9}{9}{black}
+\binoire{10}{10}{black}
+\end{pspicture}
+\end{verbatim}
+\end{minipage}
+\hspace{10mm}
+\begin{minipage}[][][c]{5cm}
+\begin{pspicture}(-2,-2)(202,76)
+\tige{1}{0}{1}
+\tige{2}{0}{1}
+\tige{3}{0}{1}
+\tige{4}{0}{1}
+\tige{5}{4}{1}
+\tige{6}{4}{1}
+\tige{7}{4}{1}
+\tige{8}{4}{1}
+\tige{9}{0}{1}
+\tige{10}{5}{1}
+\cadre{10}
+\binoire{1}{1}{black}
+\binoire{2}{2}{black}
+\binoire{3}{3}{black}
+\binoire{4}{4}{black}
+\binoire{5}{5}{black}
+\binoire{6}{6}{black}
+\binoire{7}{7}{black}
+\binoire{8}{8}{black}
+\binoire{9}{9}{black}
+\binoire{10}{10}{black}
+\end{pspicture}
+\end{minipage}
+\end{center}
+
+The \verb+\barbil+ command allows to cross a bid (see example below); the syntax is:
+\begin{center}
+\verb§\barbil[§\ttsl{<st>}\verb§]{§\ttsl{<nu>}\verb§}{§\ttsl{<pos>}\verb§}§
+\end{center}
+The arguments \ttsl{<st>}, \ttsl{<nu>} and \ttsl{<pos>} have the same meaning 
+as those of \verb+\binoire+.
+
+Finally, one can change the overall colours of the rods and the bids, for example 
+to print in black and white.
+This is done by changing the values of the \verb+\colbil+ (for the bids) and 
+\verb+\coltig+ (for the rods) commands; by default these are yellow and 
+``brun´´ (new brown colour).
+
+\begin{center}
+\begin{minipage}[][][c]{5cm}
+\begin{verbatim}
+\renewcommand{\colbil}{white}
+\renewcommand{\coltig}{black}
+\begin{pspicture}(-2,-2)(182,76)
+\tige{1}{1}{1}
+\barres{1}
+\tige[5]{1}{6}{1}
+\barbil[5]{1}{5}
+\barres[5]{1}
+\tige[9]{1}{5}{1}
+\barres[9]{1}
+\end{pspicture}
+\end{verbatim}
+\end{minipage}
+\hspace{10mm}
+\renewcommand{\colbil}{white}
+\renewcommand{\coltig}{black}
+\begin{minipage}[][][c]{5cm}
+\begin{pspicture}(-2,-2)(182,76)
+\tige{1}{1}{1}
+\barres{1}
+\tige[5]{1}{6}{1}
+\barbil[5]{1}{5}
+\barres[5]{1}
+\tige[9]{1}{5}{1}
+\barres[9]{1}
+\end{pspicture}
+\end{minipage}
+\end{center}
+
+
+\section{examples}
+
+\psset{unit=0.25mm}
+\textbf{2 + 1} (in colours)\\
+1) Put 2 with thumb
+\hspace*{5mm}
+\begin{pspicture}(-2,-2)(22,76)
+\tige{1}{2}{1}
+\binoire{1}{5}{black}
+\binoire{1}{6}{black}
+\barres{1}
+\end{pspicture}
+\quad 2) Add 1
+\hspace*{5mm}
+\begin{pspicture}(-2,-2)(22,76)
+\tige{1}{3}{1}
+\binoire{1}{5}{gray}
+\binoire{1}{6}{gray}
+\binoire{1}{7}{black}
+\barres{1}
+\end{pspicture}
+\quad 
+\hspace{5mm}$\Rightarrow$ \textbf{= 3}\hspace{5mm}
+\begin{pspicture}(-2,-2)(22,76)
+\tige{1}{3}{1}
+\barres{1}
+\end{pspicture}
+\vspace{15mm}
+
+\renewcommand{\colbil}{white}
+\renewcommand{\coltig}{darkgray}
+\noindent\textbf{7 - 1} (in black and white for printing)\\
+1) Set 7 at once (pinch)\hspace*{5mm}
+\begin{pspicture}(-2,-2)(22,76)
+\tige{1}{7}{1}
+\binoire{1}{5}{black}
+\binoire{1}{6}{black}
+\binoire{1}{10}{black}
+\barres{1}
+\end{pspicture}
+\quad 2) Substract 1
+\hspace*{5mm}
+\begin{pspicture}(-2,-2)(22,76)
+\tige{1}{7}{1}
+\binoire{1}{5}{gray}
+\binoire{1}{6}{gray}
+\binoire{1}{10}{gray}
+\barbil{1}{6}
+\barres{1}
+\end{pspicture}
+\quad 
+\hspace{5mm}$\Rightarrow$ \textbf{= 6}\hspace{5mm}
+\begin{pspicture}(-2,-2)(22,76)
+\tige{1}{6}{1}
+\binoire{1}{3}{black}
+\barres{1}
+\end{pspicture}
+
+
+
+\nocite{*}
+\bgroup
+\raggedright
+\bibliographystyle{plain}
+\bibliography{\jobname}
+\egroup
+
+
+\end{document}
+
+
diff --git a/Master/texmf-dist/source/generic/pst-soroban/Makefile b/Master/texmf-dist/source/generic/pst-soroban/Makefile
new file mode 100644
index 00000000000..469172140dc
--- /dev/null
+++ b/Master/texmf-dist/source/generic/pst-soroban/Makefile
@@ -0,0 +1,49 @@
+
+# `Makefile' for `pst-text.pdf', hv, 2006/08/11
+
+.SUFFIXES : .tex .ltx .dvi .ps .pdf .eps
+
+PACKAGE = pst-soroban
+
+MAIN = pst-soroban-doc
+
+LATEX = latex
+
+ARCHNAME = $(MAIN)-$(shell date +%y%m%d)
+
+ARCHFILES = $(PACKAGE).sty $(PACKAGE).tex $(PACKAGE).pro $(MAIN).tex README Changes Makefile
+
+all : doc 
+# clean
+doc: $(MAIN).pdf
+
+$(MAIN).pdf : $(MAIN).ps
+	GS_OPTIONS=-dAutoRotatePages=/None ps2pdf $<
+
+$(MAIN).ps : $(MAIN).dvi
+	dvips $<
+
+$(MAIN).dvi : $(MAIN).tex
+	$(LATEX) $<
+	$(LATEX) $<
+	if ! test -f $(basename $<).glo ; then touch $(basename $<).glo; fi
+	if ! test -f $(basename $<).idx ; then touch $(basename $<).idx; fi
+	makeindex -s gglo.ist -t $(basename $<).glg -o $(basename $<).gls \
+	  $(basename $<).glo
+	makeindex -t $(basename $<).ilg -o $(basename $<).ind \
+	  $(basename $<).idx
+	bibtex $(basename $<)
+	$(LATEX) $<
+	$(LATEX) $<
+
+clean : 
+	$(RM) $(addprefix $(MAIN), .log .aux .glg .glo .gls .ilg .idx .ind .tmp .toc .out )
+	$(RM) $(addprefix $(MAIN), .dvi .ps)
+
+veryclean : clean
+	$(RM) $(addprefix $(MAIN), .pdf .bbl .blg)
+
+arch :
+	zip $(ARCHNAME).zip $(ARCHFILES)
+
+# EOF
diff --git a/Master/texmf-dist/tex/latex/pst-soroban/pst-soroban.sty b/Master/texmf-dist/tex/latex/pst-soroban/pst-soroban.sty
new file mode 100644
index 00000000000..6f65671d7a8
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/pst-soroban/pst-soroban.sty
@@ -0,0 +1,106 @@
+%%
+%% This is file `pst-soroban.sty',
+%% 
+%%% ====================================================================
+%%% @LaTeX-file{
+%%%   filename  = "pst-soroban.sty",
+%%%   version   = "1.0",
+%%%   date      = "2007/10/12",
+%%%   author    = "Alain Delmotte",
+%%%   address   = "Alain Delmotte,
+%%%                avenue du Marathon, 6,
+%%%                B-1348 Louvain-la-Neuve
+%%%                BELGIUM",
+%%%   email     = "esperanto@swing.be",
+%%%   codetable = "ISO/ASCII",
+%%%   keywords  = "soroban, abacus, japanese",
+%%%   supported = "yes",
+%%% }
+%% This file can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN
+%% archives in directory macros/latex/base/lppl.txt.
+%%
+%
+
+\RequirePackage{pstricks-add}
+\RequirePackage{calc,ifthen}
+
+\definecolor{brun}{rgb}{.6 .3 0}%{cmyk}{.4 .7 .7 0}
+\newcommand{\colbil}{yellow}
+\newcommand{\coltig}{brun}
+
+\newcounter{xx}
+\newcounter{yy}
+\psset{unit=1mm}
+
+\newcommand{\bille}[2]{\pspolygon[fillstyle=solid, fillcolor=#2, linecolor=\coltig, linewidth=0.6, linearc=0.2, origin={#1}](-8.7,0)(-2.2,5.3)(2.2,5.3)(8.7,0)(2.2,-5.3)(-2.2,-5.3)
+\psline[linecolor=\coltig, linewidth=0.6, origin={#1}]{c-c}(-8.6,0)(8.6,0)
+}
+
+\newcommand{\support}[1]{%
+\psline[linewidth=3.9, linecolor=\coltig](#1,-0.2)(#1,74)
+\psline[linewidth=3.9, linecolor=white, origin={#1,0}](-11.2,54.4)(11.2,54.4)
+\psline[linewidth=0.6, linecolor=black, origin={#1,0}](-11.2,52.8)(11.2,52.8)
+\psline[linewidth=0.6, linecolor=black, origin={#1,0}](-11.2,56.1)(11.2,56.1)
+}
+
+\newcommand{\tige}[4][1]{%
+\setcounter{xx}{20*(#2-1+#1)-10}\setcounter{yy}{\value{xx}-1}%
+\support{\value{xx}}
+\ifnum#3>4\bille{\value{xx},62}{\colbil}\else\bille{\value{xx},68.2}{\colbil}\fi
+\ifcase#3\psforeach{\m}{5.3,16,26.7,37.4}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{5.3,16,26.7,46.9}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{5.3,16,36.3,46.9}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{5.3,25.6,36.3,46.9}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{14.9,25.6,36.3,46.9}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{5.3,16,26.7,37.4}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{5.3,16,26.7,46.9}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{5.3,16,36.3,46.9}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{5.3,25.6,36.3,46.9}{\bille{\value{xx},\m}{\colbil}}
+\or\psforeach{\m}{14.9,25.6,36.3,46.9}{\bille{\value{xx},\m}{\colbil}}
+\fi
+\ifnum#4=1\pscircle*[fillcolor=black](\value{xx},54.4){1}\fi
+}
+
+\newcommand{\binoire}[4][1]{%
+\setcounter{xx}{20*(#2-1+#1)-10}
+\ifcase#3{}
+\or\bille{\value{xx},5.3}{#4}       %   1 = 1 en bas  xooo  oo
+\or\bille{\value{xx},16}{#4}        %   2 = 2         oxoo  oo
+\or\bille{\value{xx},26.7}{#4}      %   3 = 3         ooxo  oo
+\or\bille{\value{xx},37.4}{#4}      %   4 = 4         ooox  oo
+\or\bille{\value{xx},46.9}{#4}      %   5 = 6         ooo x oo
+\or\bille{\value{xx},36.3}{#4}      %   6 = 7         oo xo oo
+\or\bille{\value{xx},25.6}{#4}      %   7 = 8         o xoo oo
+\or\bille{\value{xx},14.9}{#4}      %   8 = 9          xooo oo
+\or\bille{\value{xx},68.2}{#4}      %   9 = 5 * 0     oooo  ox
+\or\bille{\value{xx},62}{#4}        %  10 = 5 * 1     oooo  xo
+\fi
+}
+
+\newcommand{\barbil}[3][1]{%
+\setcounter{xx}{20*(#2-1+#1)-10}\psset{linecolor=black,linewidth=1}
+\ifcase#3{}
+\or\psline[origin={\value{xx},5.3}]{c-c}(-8.6,-5.3)(8.6,5.3)     %   1 = 1 en bas  xooo  oo
+\or\psline[origin={\value{xx},16}]{c-c}(-8.6,-5.3)(8.6,5.3)      %   2 = 2         oxoo  oo
+\or\psline[origin={\value{xx},26.7}]{c-c}(-8.6,-5.3)(8.6,5.3)    %   3 = 3         ooxo  oo
+\or\psline[origin={\value{xx},37.4}]{c-c}(-8.6,-5.3)(8.6,5.3)    %   4 = 4         ooox  oo
+\or\psline[origin={\value{xx},46.9}]{c-c}(-8.6,-5.3)(8.6,5.3)    %   5 = 6         ooo x oo
+\or\psline[origin={\value{xx},36.3}]{c-c}(-8.6,-5.3)(8.6,5.3)    %   6 = 7         oo xo oo
+\or\psline[origin={\value{xx},25.6}]{c-c}(-8.6,-5.3)(8.6,5.3)    %   7 = 8         o xoo oo
+\or\psline[origin={\value{xx},14.9}]{c-c}(-8.6,-5.3)(8.6,5.3)    %   8 = 9          xooo oo
+\or\psline[origin={\value{xx},68.2}]{c-c}(-8.6,-5.3)(8.6,5.3)    %   9 = 5 * 0     oooo  ox
+\or\psline[origin={\value{xx},62}]{c-c}(-8.6,-5.3)(8.6,5.3)      %  10 = 5 * 1     oooo  xo
+\fi
+}
+
+\newcommand{\cadre}[2][1]{\setcounter{xx}{20*(#2-1+#1) + 1}%
+\psframe[linecolor=black, linewidth=2, framearc=.1](-1.2,-1.2)(\value{xx},74.65)
+}
+
+\newcommand{\barres}[2][1]{%
+\setcounter{xx}{20*(#1)-21}%
+\setcounter{yy}{20*(#2-1+#1) + 1}%
+\psline[linecolor=black, linewidth=2](\value{xx},-1.2)(\value{yy},-1.2)
+\psline[linecolor=black, linewidth=2](\value{xx}, 74.65)(\value{yy}, 74.65)
+}
diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds
index 1a9ab120b17..37ff4e89ce2 100755
--- a/Master/tlpkg/bin/ctan2tds
+++ b/Master/tlpkg/bin/ctan2tds
@@ -288,6 +288,7 @@ chdir $startdir || die "chdir($startdir) failed: $!";  # back to raw
  'pst-poly',	"&MAKEpst",
  'pst-qtree',	"&MAKEpst",
  'pst-slpe',	"&MAKEpst",
+ 'pst-soroban',	"&MAKEpst",
  'pst-text',	"&MAKEpst",
  'pst-uml',	"&MAKEpst",
  'pst-vue3d',	"&MAKEpst",
diff --git a/Master/tlpkg/tlpsrc/pst-soroban.tlpsrc b/Master/tlpkg/tlpsrc/pst-soroban.tlpsrc
new file mode 100644
index 00000000000..5b7df0cdf46
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/pst-soroban.tlpsrc
@@ -0,0 +1,2 @@
+name pst-soroban
+category Package