summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pstricks-add
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-01-12 23:06:35 +0000
committerKarl Berry <karl@freefriends.org>2019-01-12 23:06:35 +0000
commit316516ea8d43bcd57e9ed58bfe0aa1f5a6585994 (patch)
tree956f3b825b1e62995d4953afb4fdec3076fd4f10 /Master/texmf-dist/tex/generic/pstricks-add
parent70f9c8c319b842638cf25a950bb9f221f2161bdd (diff)
pstricks-add (12jan19)
git-svn-id: svn://tug.org/texlive/trunk@49680 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.tex43
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