diff options
| author | Karl Berry <karl@freefriends.org> | 2011-12-03 16:39:37 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2011-12-03 16:39:37 +0000 |
| commit | 835549196c0597dde1a18659e81d454362c197d2 (patch) | |
| tree | 4ea4891cb88488486480574cc2afd196341ab000 /Master/texmf-dist/tex/generic | |
| parent | 020dc32381060046058d544a5b590d68f7d30449 (diff) | |
pst-eucl (16nov11)
git-svn-id: svn://tug.org/texlive/trunk@24734 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex index 3ba894f1eb7..29347a0116c 100644 --- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex +++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex @@ -12,8 +12,8 @@ \ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi \ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi \ifx\MultidoLoaded\endinput \else\input multido.tex \fi -\def\fileversion{1.39} -\def\filedate{2011/09/22}% +\def\fileversion{1.40} +\def\filedate{2011/11/16}% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN %% archives in directory macros/latex/base/lppl.txt. @@ -359,7 +359,23 @@ end}% %% here we should check the angle size for right angles % %} +\def\Pst@MarkAngle[#1]#2#3#4#5{{% new version from 111116 hv + \psset{#1}% + \rput(#3){% + \psarc(0,0){\psk@MarkAngleRadius}{(#2)}{(#4)}% + \rput[\psk@LabelRefPt]{*0}(! tx@EcldDict begin + /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan end + 2 copy lt { exch 360 sub exch } if + add 2 div \psk@LabelAngleOffset\space add + \psk@LabelSep\space exch PtoC){#5} + \rput[\psk@LabelRefPt]{*0}(! tx@EcldDict begin + /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan end + 2 copy lt { exch 360 sub exch } if + add 2 div \psk@MarkAngleRadius\space exch PtoC)% + {\csname\psk@Mark\endcsname} +}}}% %\def\Pst@MarkAngle@iii[#1]#2#3#4#5{% +\iffalse \def\Pst@MarkAngle[#1]#2#3#4#5{% \bgroup\psset{#1}% % Affectation of local parameters %\rput(#3){\psarc(0,0){\psk@MarkAngleRadius}{(#2)}{(#4)}}% @@ -378,11 +394,12 @@ end}% /N@#3 GetNode /N@#4 GetNode ABVect Atan /N@#3 GetNode /N@#2 GetNode ABVect Atan end 2 copy lt \pslbrace exch 360 sub exch \psrbrace if add 2 div 90 add} - (0,0){\rput{-90}(\psk@MarkAngleRadius,0){\csname\psk@Mark\endcsname}} + (0,0){\rput{-90}(\psk@MarkAngleRadius,0){\csname\psk@Mark\endcsname}}% \fi} %%end modif alaindelplanque 11/2003 \egroup% }% +\fi %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% #2 #4 #6 -> coordinates for nodes %% #3 #5 #7 -> nodes name |