From e572bd73edca41c8e3641ed601afa67ec7706bf4 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 13 Dec 2010 23:45:03 +0000 Subject: pstricks-add 3.46 (13dec10) git-svn-id: svn://tug.org/texlive/trunk@20723 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/generic/pstricks-add/pstricks-add.tex | 41 ++++++++++++++++++++-- 1 file changed, 38 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/tex/generic') 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 7b68855d1de..3d2a9e33c44 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 412 2010-11-03 19:39:07Z herbert $ +%% $Id: pstricks-add.tex 431 2010-12-13 10:53:46Z 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.45} -\def\filedate{2010/11/03} +\def\fileversion{3.46} +\def\filedate{2010/12/13} \message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -2027,6 +2027,40 @@ dup #1Delta.X m 1 add get mul #1.X m get add #1Tick.X j 3 -1 roll put % s on sta \endgroup% } % +\define@boolkey[psset]{pstricks-add}[Pst@]{markAngle}[true]{} +\psset[pstricks-add]{markAngle=false} +\newpsstyle{psMarkAngleStyle}{arrows=->,arrowsize=4pt} +\newpsstyle{psMarkAngleLineStyle}{linestyle=dotted,arrows=-} +% +\def\psStartPoint(#1){\pst@getcoor{#1}\pst@tempA + \pstVerb{tx@Dict begin + \pst@tempA + \pst@number\psyunit div /cp.Y exch def + \pst@number\psxunit div /cp.X exch def end + }} +\psStartPoint(0,0) +% +\def\psVector{\@ifnextchar[\psVector@i{\psVector@i[]}} +\def\psVector@i[#1](#2){% + \pst@killglue% + \pst@getcoor{#2}\pst@tempCoor% + \begingroup + \psset{arrows=->,arrowsize=6pt,#1}% + \rput(! cp.X cp.Y ){% + \psline(0,0)(#2)% + \ifPst@markAngle + \psarc[style=psMarkAngleStyle](0,0){1}{0}{!\pst@tempCoor exch atan}% + \psline[style=psMarkAngleLineStyle](1.5,0)% + \fi}% + \endgroup% + \pstVerb{tx@Dict begin + \pst@tempCoor + \pst@number\psyunit div cp.Y add /cp.Y exch def + \pst@number\psxunit div cp.X add /cp.X exch def end + }% + \ignorespaces% +} +% \def\resetOptions{% \def\pst@linetype{0}% \pstScalePoints(1,1){}{}% @@ -2046,6 +2080,7 @@ dup #1Delta.X m 1 add get mul #1.X m get add #1Tick.X j 3 -1 roll put % s on sta braceWidthOuter=10\pslinewidth, chartNodeI=0.75, chartNodeO=1.5, + markAngle=false, }} % \resetOptions -- cgit v1.2.3