summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-eucl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-12-03 16:39:37 +0000
committerKarl Berry <karl@freefriends.org>2011-12-03 16:39:37 +0000
commit835549196c0597dde1a18659e81d454362c197d2 (patch)
tree4ea4891cb88488486480574cc2afd196341ab000 /Master/texmf-dist/tex/generic/pst-eucl
parent020dc32381060046058d544a5b590d68f7d30449 (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/pst-eucl')
-rw-r--r--Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex23
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