summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-eucl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-03-12 22:32:19 +0000
committerKarl Berry <karl@freefriends.org>2013-03-12 22:32:19 +0000
commitb994a042b1d8959e691bfccb2c866dde84324753 (patch)
tree35f050bb3537d45b5c8ef2f47e56ee4ea61c6131 /Master/texmf-dist/tex/generic/pst-eucl
parentaeca91877fa951e8ddfd44486a06b27e5ec2566f (diff)
pst-eucl (12mar13)
git-svn-id: svn://tug.org/texlive/trunk@29356 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.tex38
1 files changed, 18 insertions, 20 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 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