summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pstricks-add
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-09-19 22:22:09 +0000
committerKarl Berry <karl@freefriends.org>2017-09-19 22:22:09 +0000
commitf5f86df4bab191bd95601a0c1b4e4d9c094643c8 (patch)
treed54e11ad0019475f829d05a8fd2b1c047270c0ba /Master/texmf-dist/tex/generic/pstricks-add
parente0dfc03c2a2eabcb087ac68cf8127dbe38008976 (diff)
pstricks-add (18sep17)
git-svn-id: svn://tug.org/texlive/trunk@45346 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks-add')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex40
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[