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 | 43 |
1 files changed, 40 insertions, 3 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 59f4353922f..70fbd31dd2d 100644 --- a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex +++ b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex @@ -1,4 +1,4 @@ -%% $Id: pstricks-add.tex 852 2018-12-08 20:32:46Z herbert $ +%% $Id: pstricks-add.tex 903 2019-01-12 17:16:09Z herbert $ %% %% This is file `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.86} -\def\filedate{2018/12/08} +\def\fileversion{3.87} +\def\filedate{2019/01/12} \let\pstricksaddFV\fileversion \message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)} % @@ -594,6 +594,43 @@ a add \ignorespaces% } % +\define@key[psset]{pstricks-add}{tipAngle}[60]{\pst@getangle{#1}\psk@tipAngle} +\define@key[psset]{pstricks-add}{tipLength}[5mm]{\pst@getlength{#1}\psk@tipLength} +\define@key[psset]{pstricks-add}{tipWidth}[2mm]{\pst@getlength{#1}\psk@tipWidth} +\define@key[psset]{pstricks-add}{tipPos}[0.2]{\def\psk@tipPos{#1 }} +\psset[pstricks-add]{tipAngle=60,tipLength=5mm,tipWidth=2mm,tipPos=0.2}% +% +\def\psCallout{\def\pst@par{}\pst@object{psCallout}} +\def\psCallout@i(#1)#2{% + \setbox\pst@hbox=\hbox{#2}% + \begingroup + \addbefore@par{linewidth=0.1pt,framesep=6pt}% + \use@par + \pstVerb{ + /boxsepX { \pst@number\psframesep\space \pst@number\psxunit div } bind def + /boxsepY { \pst@number\psframesep\space \pst@number\psyunit div } bind def + /tipEnd { \psk@tipLength\space \pst@number\psxunit div \psk@tipAngle\space PtoC } bind def + /boxW { \pst@number\wd\pst@hbox\space \pst@number\psxunit div boxsepX 2 mul add } bind def + /boxH { \pst@number\ht\pst@hbox\space \pst@number\psyunit div boxsepY 2 mul add } bind def + }% + \rput(#1){% + \psline[linearc=0,linejoin=2]% + (! tipEnd exch \psk@tipWidth\space 2 div \pst@number\psxunit div sub exch)% + (0,0) + (! tipEnd exch \psk@tipWidth\space 2 div \pst@number\psxunit div add exch)% + \psline[linejoin=2]% + (! tipEnd exch \psk@tipWidth\space 2 div \pst@number\psxunit div sub exch)% + (! tipEnd exch \psk@tipPos boxW mul sub exch)% lower left + (! tipEnd exch \psk@tipPos boxW mul sub exch boxH add )% upper left + (! tipEnd exch 1 \psk@tipPos sub boxW mul add exch boxH add)% upper right + (! tipEnd exch 1 \psk@tipPos sub boxW mul add exch) + (! tipEnd exch \psk@tipWidth\space 2 div \pst@number\psxunit div add exch)% + \rput[lb](! tipEnd boxsepY add exch \psk@tipPos boxW mul sub boxsepX add exch){#2}% + }% + \endgroup + \ignorespaces +} +% \def\tx@MovetoByHand{ tx@addDict begin MovetoByHand end } \def\tx@LinetoByHand{ tx@addDict begin LinetoByHand end } %/amplHand {.8} def |