diff options
| author | Karl Berry <karl@freefriends.org> | 2013-03-12 22:32:19 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2013-03-12 22:32:19 +0000 |
| commit | b994a042b1d8959e691bfccb2c866dde84324753 (patch) | |
| tree | 35f050bb3537d45b5c8ef2f47e56ee4ea61c6131 /Master/texmf-dist/tex | |
| parent | aeca91877fa951e8ddfd44486a06b27e5ec2566f (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')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex | 38 |
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 |