pst-dart (29jan18)

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

1 files changed, 78 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-dart/pst-dart.tex b/Master/texmf-dist/tex/generic/pst-dart/pst-dart.tex
new file mode 100644
index 00000000000..eac49bddd46
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-dart/pst-dart.tex
@@ -0,0 +1,78 @@
+%% $Id: pst-dart.tex 715 2018-01-28 19:39:51Z herbert $
+%%
+%% This is file `pst-dart.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-dart.tex'
+%%
+%% Thomas Söll  <Thomas.Soell@onlinehome.de>
+%% Herbert Voss <hvoss@tug.org>
+%%
+%% This program 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.
+%%
+%% DESCRIPTION:
+%%   `pst-dart' is a PSTricks package to plot dart boards
+%%
+\csname PSTdartLoaded\endcsname
+\let\PSTfuncLoaded\endinput
+% Requires some PSTricks packages
+\ifx\PSTricksLoaded\endinput\else   \input pstricks.tex\fi
+\ifx\PSTXKeyLoaded\endinput\else    \input pst-xkey.tex \fi
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+% interface to the `xkeyval' package
+\pst@addfams{pst-dart}
+%
+\def\fileversion{0.01}
+\def\filedate{2018/01/27}
+\message{`PST-dart' v\fileversion, \filedate\space (ts,hv)}
+%
+\define@key[psset]{pst-dart}{fontsize}[10pt]{\def\psk@dart@fontsize{\fontsize{#1}{#1}}}
+\psset[pst-dart]{fontsize=10pt}
+
+\newcmykcolor{Red}{0 1 1 0}
+\newcmykcolor{Green}{1 0 1 0}
+
+\def\psDart{\pst@object{psDart}}%      
+\def\psDart@i{\@ifnextchar(\psDart@ii{\psDart@ii(0,0)}}%
+\def\psDart@ii(#1){%
+  \begingroup
+  \addbefore@par{unit=0.1mm}%
+  \use@par
+  \degrees[20]%
+  \rput(#1){%
+    \begin{pspicture}(-210,-210)(210,210)%
+    \pscircle*(0,0){210}
+    % Gerader Part.
+    \psset{linewidth=0.5pt}%
+    \multido{\rA=-0.5+2.0,\rB=0.5+2.0}{10}{%
+      \pswedge*[linecolor=white]{170}{\rA}{!\rA\space 1 add}
+      \psarc[linecolor=Green,linewidth=8](0,0){166}{\rA}{!\rA\space 1 add}
+      \psarc[linecolor=Red,linewidth=8](0,0){166}{\rB}{!\rB\space 1 add}
+      \psarc[linecolor=Green,linewidth=8](0,0){103}{\rA}{!\rA\space 1 add}
+      \psarc[linecolor=Red,linewidth=8](0,0){103}{\rB}{!\rB\space 1 add}
+      \psline[linecolor=gray!30,dimen=inner,linewidth=0.5pt](170;\rA)(0,0)(170;\rB)
+    }%
+    \pscircle[linecolor=gray!30,dimen=inner,linewidth=0.5pt]{170}%
+    \pscircle[linecolor=gray!30,dimen=inner,linewidth=0.5pt]{162}%
+    \pscircle[linecolor=gray!30,dimen=inner,linewidth=0.5pt]{107}
+    \pscircle[linecolor=gray!30,dimen=inner,linewidth=0.5pt]{99}
+    \pscircle[fillstyle=solid,fillcolor=Green,linecolor=gray!30,linewidth=0.5pt,linecolor=white]{15.9}
+    \pscircle[fillstyle=solid,fillcolor=Red,linecolor=gray!30,linewidth=0.5pt,linecolor=white]{6.35}
+    \psforeach{\iA}{6,13,4,18,1,20,5,12,9,14,11,8,16,7,19,3,17,2,15,10}{%
+       \rput(190;\the\psLoopIndex){\psk@dart@fontsize\selectfont\white\iA}}
+  \end{pspicture}}%
+  \endgroup
+  \ignorespaces
+}
+
+%
+\catcode`\@=\PstAtCode\relax
+%
+%% END: pst-dart.tex
+\endinput
+%
+