diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex | 40 |
1 files changed, 38 insertions, 2 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex index c9ae9dcc7c7..40326d63171 100644 --- a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex +++ b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex @@ -31,8 +31,8 @@ \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi \ifx\PSTmathLoaded\endinput\else \input pst-math \fi % -\def\fileversion{3.83a} -\def\filedate{2017/08/24} +\def\fileversion{3.84} +\def\filedate{2017/09/16} \let\pstricksaddFV\fileversion \message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)} % @@ -535,6 +535,42 @@ a add \ignorespaces } % +\define@key[psset]{pstricks-add}{fillcolorA}[blue]{\pst@getcolor{#1}\psk@fillcolorA} +\define@key[psset]{pstricks-add}{fillcolorB}[red]{\pst@getcolor{#1}\psk@fillcolorB} +\define@boolkey[psset]{pstricks-add}[Pst@]{countDots}[true]{} +\psset[pstricks-add]{countDots=false,fillcolorA=blue,fillcolorB=red} +% +\def\psRandomPointArea{\pst@object{psRandomPointArea}} +\def\psRandomPointArea@i#1#2{% + \pst@killglue + \addbefore@par{radius=2pt,fillcolorA=blue,fillcolorB=red}% + \begin@SpecialObj + \pssetlength\pst@dimc{\psk@radius} + \addto@pscode{ + realtime srand Rand pop + 4 dict begin + /Func \ifPst@algebraic (#2) tx@addDict begin AlgParser end cvx \else { #2 } \fi def + 1 1 #1 { + /i ED + Rand /x ED + Func /f ED % function value + Rand /y ED + gsave x y \tx@ScreenCoor \pst@number\pst@dimc 0 360 arc + y f lt { \pst@usecolor\psk@fillcolorA }{ \pst@usecolor\psk@fillcolorB } ifelse + fill grestore + \ifPst@countDots + x y \tx@ScreenCoor moveto i 4 string cvs + \ifpst@psfonts /Helvetica \else /NimbusSanL-Regu \fi + findfont 5 scalefont setfont show + \fi + } for + end + }% + \end@SpecialObj + \ignorespaces +} + +% \def\psComment{\def\pst@par{}\pst@object{psComment}} \def\psComment@i{\pst@getarrows\psComment@ii} \def\psComment@ii(#1)(#2)#3{\@ifnextchar[ |