summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/Changes1
-rw-r--r--Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex38
2 files changed, 19 insertions, 20 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/Changes b/Master/texmf-dist/doc/generic/pst-eucl/Changes
index 76cd2bb6f05..41959aa742c 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/Changes
+++ b/Master/texmf-dist/doc/generic/pst-eucl/Changes
@@ -4,6 +4,7 @@ pst-eucl.pro --------
pst-eucl.tex --------
+1.47 2013/03/12 - insert \ignorespaces in \pstRightAngle (hv)
1.46 2013/01/09 - use the eucl dictionary when only needed (hv)
1.45 2012/12/31 - fixed introduced bug with PtoC (hv)
moved loading of pst-xkey to the beginning
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 cac62bff54d..bc0593166ba 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -15,8 +15,8 @@
\ifx\MultidoLoaded\endinput \else\input multido.tex \fi
\csname PSTEuclideLoaded\endcsname
\let\PSTEuclideLoaded\endinput
-\def\fileversion{1.46}
-\def\filedate{2013/01/08
+\def\fileversion{1.47}
+\def\filedate{2013/03/12
}%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN
@@ -348,30 +348,28 @@ end}%
\bgroup\psset{#1}% % Affectation of local parameters
%% not good at all, but \rput{0}(#3){\rput{(#2)}{stuff}} doesn't work...
\rput(#3){%
- \ifx\psk@RightAngleType\@default
+ \ifx\psk@RightAngleType\@default%
\pspolygon(0,0)%%modif 12/2004
- (!tx@EcldDict begin /N@#4 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)
+ (!tx@EcldDict begin /N@#4 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
(!tx@EcldDict begin /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan
2 copy sub abs 91 gt
{ 2 copy lt { exch 360 add exch } { 360 add } ifelse } if %%DR 2005/01/14
%%2 copy lt { exch 360 sub exch } if
- add 2 div 2 sqrt \psk@RightAngleSize\space mul exch PtoC end)
- (!tx@EcldDict begin /N@#2 GetNode exch Atan \psk@RightAngleSize\space
- exch PtoC end)
- \else\ifx\psk@RightAngleType\@german
- \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,
- LabelSep=\psk@RightAngleSize\space .5 mul]{#2}{#3}{#4}
- {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}
- \else\ifx\psk@RightAngleType\@suisseromand
- \rput{*0}
+ add 2 div 2 sqrt \psk@RightAngleSize\space mul exch PtoC end)%
+ (!tx@EcldDict begin /N@#2 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
+ \else\ifx\psk@RightAngleType\@german%
+ \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#2}{#3}{#4}%
+ {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
+ \else\ifx\psk@RightAngleType\@suisseromand%
+ \rput{*0}%
(!tx@EcldDict begin /N@#4 GetNode exch Atan /N@#2 GetNode exch Atan
- 2 copy lt { exch 360 sub exch } if add 2 div .45 \psk@RightAngleSize\space mul exch PtoC end)
- {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}
- \pspolygon(0,0)
- (!tx@EcldDict begin /N@#4 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )
- (!tx@EcldDict begin /N@#2 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )
- \fi\fi\fi}
- \egroup%
+ 2 copy lt { exch 360 sub exch } if add 2 div .45 \psk@RightAngleSize\space mul exch PtoC end)%
+ {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
+ \pspolygon(0,0)%
+ (!tx@EcldDict begin /N@#4 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
+ (!tx@EcldDict begin /N@#2 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
+ \fi\fi\fi}%
+ \egroup\ignorespaces% hv 20130312
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% #2 #3 #4 -> 3 nodes for defining the angle