summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/pst-soroban/pst-soroban.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-10-16 17:35:10 +0000
committerKarl Berry <karl@freefriends.org>2007-10-16 17:35:10 +0000
commitc4b03950ae9ef6e2421d48d57cab632ebf4ec14f (patch)
treee7ce7ed31aa1f5f6204f2bb4bdb0d52db2b335dc /Master/texmf-dist/tex/latex/pst-soroban/pst-soroban.sty
parent7ac40f0e6332cede8098803712911982c68b4974 (diff)
new pstricks pst-soroban (15oct07)
git-svn-id: svn://tug.org/texlive/trunk@5206 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/pst-soroban/pst-soroban.sty')
-rw-r--r--Master/texmf-dist/tex/latex/pst-soroban/pst-soroban.sty106
1 files changed, 106 insertions, 0 deletions
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)
+}