diff options
author | Karl Berry <karl@freefriends.org> | 2017-06-22 22:35:10 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-06-22 22:35:10 +0000 |
commit | a6e54672feaef0c44cae1a61bd56a43f1ec25b3c (patch) | |
tree | 9405900fce93f67557edba60bef026c64be55c63 /Master/texmf-dist/tex/generic/pst-func | |
parent | c4913f1cd9801002d016b0b6efbee2029d45f435 (diff) |
pst-func (21jun17)
git-svn-id: svn://tug.org/texlive/trunk@44666 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-func')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-func/pst-func.tex | 27 |
1 files changed, 24 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex index 87f2da085d7..b40b4dca356 100644 --- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex +++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex @@ -31,8 +31,8 @@ % interface to the `xkeyval' package \pst@addfams{pst-func} % -\def\fileversion{0.85} -\def\filedate{2017/04/18} +\def\fileversion{0.86} +\def\filedate{2017/06/21} \message{`PST-func' v\fileversion, \filedate\space (hv)} % \pstheader{pst-func.pro} @@ -535,9 +535,16 @@ \define@key[psset]{pst-func}{LabelColor}[black]{\pst@getcolor{#1}\psk@LabelColor} \define@key[psset]{pst-func}{LineEndColorL}[green]{\pst@getcolor{#1}\psk@LineEndColorL} \define@key[psset]{pst-func}{LineEndColorR}[red]{\pst@getcolor{#1}\psk@LineEndColorR} +\define@key[psset]{pst-func}{fillcolorA}[blue!40]{\pst@getcolor{#1}\psk@fillcolorA} +\define@key[psset]{pst-func}{fillcolorB}[red!40]{\pst@getcolor{#1}\psk@fillcolorB} + +\def\psfs@alternateColors{} +\def\pst@alternateColors{alternateColors} + \define@key[psset]{pst-func}{vlinestyle}[solid]{\def\psvlinestyle{#1}} \psset[pst-func]{printValue=false,barwidth=1,labelangle=90,xlabelsep=0,LabelColor=black,LineEndColorL=green,LineEndColorR=red, -radiusout=2,radiusinL=0,radiusinR=1.5,LineEnding=true,leftEnd=1,rightEnd=2,VLines=false} + radiusout=2,radiusinL=0,radiusinR=1.5,LineEnding=true,leftEnd=1,rightEnd=2,VLines=false, + fillcolorA=blue!40,fillcolorB=red!40} % \def\psBinomial{\pst@object{psBinomial}} \def\psBinomial@i#1#2{\psBinomial@ii#1,,,\@nil{#2}}% @@ -554,6 +561,11 @@ radiusout=2,radiusinL=0,radiusinR=1.5,LineEnding=true,leftEnd=1,rightEnd=2,VLine \def\psBinomial@iii#1#2#3#4{% \begin@OpenObj \addto@pscode{ + /toggle false def + \ifx\psk@fillstylename\pst@alternateColors + /ColA { \pst@usecolor\psk@fillcolorA } def + /ColB { \pst@usecolor\psk@fillcolorB } def + \fi /scx { \pst@number\psxunit mul } def /scy { \pst@number\psyunit mul } def /m #1 def @@ -577,8 +589,17 @@ radiusout=2,radiusinL=0,radiusinR=1.5,LineEnding=true,leftEnd=1,rightEnd=2,VLine { /Y q N exp def } { /Y Y N k sub 1 add mul k div p mul q div def } ifelse % recursive definition + \ifx\psk@fillstylename\pst@alternateColors + newpath + kOld scx 0 moveto + \fi kOld scx Y scy L k dx add scx Y scy L \ifPst@markZeros k dx add scx 0 L kOld 1 add scx 0 L \fi + \ifx\psk@fillstylename\pst@alternateColors + closepath + gsave toggle {ColA}{ColB} ifelse fill grestore + /toggle toggle not def + \fi \ifPst@printValue gsave \psk@PSfont findfont \psk@fontscale scalefont setfont \pst@usecolor\psk@LabelColor % Y \psk@valuewidth string cvs |