diff options
author | Karl Berry <karl@freefriends.org> | 2017-09-19 22:22:09 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-09-19 22:22:09 +0000 |
commit | f5f86df4bab191bd95601a0c1b4e4d9c094643c8 (patch) | |
tree | d54e11ad0019475f829d05a8fd2b1c047270c0ba /Master/texmf-dist/tex/generic | |
parent | e0dfc03c2a2eabcb087ac68cf8127dbe38008976 (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')
-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[ |