pst-dart (9feb18)

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

1 files changed, 44 insertions, 7 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
index eac49bddd46..064a309e7ff 100644
--- a/Master/texmf-dist/tex/generic/pst-dart/pst-dart.tex
+++ b/Master/texmf-dist/tex/generic/pst-dart/pst-dart.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-dart.tex 715 2018-01-28 19:39:51Z herbert $
+%% $Id: pst-dart.tex 728 2018-02-09 19:29:41Z herbert $
 %%
 %% This is file `pst-dart.tex',
 %%
@@ -21,30 +21,34 @@
 % Requires some PSTricks packages
 \ifx\PSTricksLoaded\endinput\else   \input pstricks.tex\fi
 \ifx\PSTXKeyLoaded\endinput\else    \input pst-xkey.tex \fi
+\ifx\GradientLoaded\endinput\else   \input pst-grad.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}
+\def\fileversion{0.02}
+\def\filedate{2018/02/09}
 \message{`PST-dart' v\fileversion, \filedate\space (ts,hv)}
 %
+\define@key[psset]{pst-dart}{preCode}[]{\def\psk@dart@preCode{#1}}
+\define@key[psset]{pst-dart}{postCode}[]{\def\psk@dart@postCode{#1}}
 \define@key[psset]{pst-dart}{fontsize}[10pt]{\def\psk@dart@fontsize{\fontsize{#1}{#1}}}
-\psset[pst-dart]{fontsize=10pt}
+\psset[pst-dart]{fontsize=10pt,preCode=,postCode=}
 
 \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){%
+\def\psDartBoard{\pst@object{psDartBoard}}%      
+\def\psDartBoard@i{\@ifnextchar(\psDartBoard@ii{\psDartBoard@ii(0,0)}}%
+\def\psDartBoard@ii(#1){%
   \begingroup
   \addbefore@par{unit=0.1mm}%
   \use@par
   \degrees[20]%
   \rput(#1){%
     \begin{pspicture}(-210,-210)(210,210)%
+    \pstVerb{gsave \psk@dart@preCode }%
     \pscircle*(0,0){210}
     % Gerader Part.
     \psset{linewidth=0.5pt}%
@@ -64,11 +68,44 @@
     \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}}
+    \pstVerb{ \psk@dart@postCode grestore }%
   \end{pspicture}}%
   \endgroup
   \ignorespaces
 }
+%
+\colorlet{gold}{orange!50!yellow}
+
+\define@key[psset]{pst-dart}{dartcolor}[red]{\def\psdartcolor{#1}}
+\psset{dartcolor}
 
+\def\psDart{\pst@object{psDart}}
+\def\psDart@i(#1){%
+  \begingroup
+  \addbefore@par{rot=0,linestyle=none,fillstyle=gradient}%
+  \use@par
+  \rput(#1){%
+%    \pstVerb{gsave \psk@dart@preCode }%
+    % tip
+    \pspolygon[gradangle=90,gradbegin=black!30,gradend=black!60](0,0)(1,0.04)(1,-0.04)
+    % golden mass
+    \pspolygon[gradangle=90,gradbegin=gold,gradend=gold!60!black](0,0)(0.99,0)(1.19,0.2)(1.69,0.2)(1.69,-0.2)(1.19,-0.2)(0.99,0)
+    % wings
+    \pscurve[gradbegin=\psdartcolor!20!white,gradend=\psdartcolor!10!black,gradmidpoint=1](4.5,0)(7.6,1)(7.3,0)
+    \pscurve[gradbegin=\psdartcolor!20!black,gradend=\psdartcolor,gradmidpoint=1](4.5,0)(7.6,-1)(7.3,0)
+    % body
+    \pscustom[gradbegin=\psdartcolor!50,gradend=\psdartcolor!100!-\psdartcolor!90,gradangle=45,gradmidpoint=0]{%
+      \pscurve(1.7,0.2)(2,0.24)(6,0.2)(7.6,0)
+      \pscurve(6,-0.2)(2,-0.24)(1.7,-0.2)
+    }%
+    \pscustom[gradbegin=\psdartcolor!80!white,gradend=black!50,gradangle=90,gradmidpoint=0.5]{%
+      \pscurve(4.5,0)(5.5,0.05)(7.6,0)
+      \pscurve(5.5,-0.05)(4.5,0)
+    }
+%    \pstVerb{ \psk@dart@postCode grestore }%
+  }%
+  \endgroup\ignorespaces
+}
 %
 \catcode`\@=\PstAtCode\relax
 %