From b994a042b1d8959e691bfccb2c866dde84324753 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 12 Mar 2013 22:32:19 +0000 Subject: pst-eucl (12mar13) git-svn-id: svn://tug.org/texlive/trunk@29356 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/generic/pst-eucl/Changes | 1 + .../texmf-dist/tex/generic/pst-eucl/pst-eucl.tex | 38 ++++++++++------------ 2 files changed, 19 insertions(+), 20 deletions(-) (limited to 'Master') 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 -- cgit v1.2.3