pst-eucl (12oct16)

git-svn-id: svn://tug.org/texlive/trunk@42276 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 63 insertions, 28 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-eucl/Changes b/Master/texmf-dist/doc/generic/pst-eucl/Changes
index e211dacc739..0372897a149 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.55 2016/10/11 - fix for \pstRightAngle 
 1.54 2016/09/01 - added MarkArrow, MarkArroww,MarkArrowww 
 1.53 2016/05/03 - revert changes of CodeFig(A|B)
 1.52 2015/10/19 - added more optional arguments (ts)
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
index d1db3f2b1ce..bb9df6926c3 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
+++ b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
@@ -51,9 +51,9 @@
 @Book{PSTricks2,
   author	= {Herbert Vo\ss{}},
   title		= {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
-  edition	= {6.},
+  edition	= {7},
   publisher	= {DANTE -- Lehmanns},
-  year		= {2010},
+  year		= {2016},
   address	= {Heidelberg/Hamburg}
 }
 
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
index c896eafbace..f61cf99c894 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
index 35101012841..547a2c167db 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
@@ -2,8 +2,8 @@
     headexclude,footexclude,oneside,english]{pst-doc}
 \usepackage[utf8]{inputenc}
 \usepackage{pst-eucl}
-\usepackage{multicol}
 \let\pstEuclideFV\fileversion
+\usepackage{multicol}
 \usepackage{pst-plot,paralist}
 \usepackage[mathscr]{eucal}
 \lstset{pos=l,wide=false,language=PSTricks,
@@ -12,6 +12,9 @@
 \def\Argsans#1{$\langle$#1$\rangle$}
 \def\DefaultVal#1{(by default #1)}
 
+\usepackage{biblatex}
+\addbibresource{\jobname.bib}
+
 
 \title{\texttt{pst-euclide}}
 \subtitle{A PSTricks package for drawing geometric pictures; v.\pstEuclideFV}
@@ -399,6 +402,30 @@ the angle by specifying a \TeX{} command as argument of parameter \Lkeyword{Mark
 \end{LTXexample}
 
 
+\begin{LTXexample}[width=\linewidth,pos=t]
+\begin{pspicture}(-0.5,-0.5)(9,3)
+\psset{PointSymbol=none,PointNameMathSize=\scriptstyle,PointNameSep=6pt,
+	 RightAngleSize=0.15,PosAngle={135,225,-45,45}}
+\psaxes[ticks=none,labels=none] {->}(0,0)(9,3)
+\pstGeonode(1,2){A}(1,1){B}(2,1){C}(2,2){D}%
+\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B} 
+\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D} 
+\pspolygon(A)(B)(C)(D)
+\psset{RightAngleType=suisseromand}
+\pstGeonode(3,2){A}(3,1){B}(4,1){C}(4,2){D}%
+\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B} 
+\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D} 
+\pspolygon(A)(B)(C)(D)
+\psset{RightAngleType=german}
+\pstGeonode(5,2){A}(5,1){B}(6,1){C}(6,2){D}%
+\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B} 
+\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D} 
+\pspolygon(A)(B)(C)(D)
+\end{pspicture}
+\end{LTXexample}
+
+
+
 
 \subsection{Lines, half-lines and segments}
 
@@ -2031,8 +2058,8 @@ crossing a given point.
 \nocite{*}
 \bgroup
 \RaggedRight
-\bibliographystyle{plain}
-\bibliography{pst-eucl-doc}
+%\bibliographystyle{plain}
+\printbibliography{pst-eucl-doc}
 \egroup
 
 \printindex
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 4e9559a8b55..4c9b37c8f90 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -17,8 +17,8 @@
 \ifx\MultidoLoaded\endinput \else\input multido.tex \fi
 \csname PSTEuclideLoaded\endcsname
 \let\PSTEuclideLoaded\endinput
-\def\fileversion{1.54}
-\def\filedate{2016/09/01}
+\def\fileversion{1.55}
+\def\filedate{2016/10/11}
 %% 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.
@@ -47,6 +47,8 @@
 % use math mode in point name
 \newif\ifPst@PtNameMath%
 \define@key[psset]{pst-eucl}{PtNameMath}[false]{\@nameuse{Pst@PtNameMath#1}}%
+\define@key[psset]{pst-eucl}{PointNameSize}[\normalsize]{\def\Point@Name@Size{#1}}%
+\define@key[psset]{pst-eucl}{PointNameMathSize}[\textnormal]{\def\Point@Name@MathSize{#1}}%
 % symbol used for marking equal length segment
 \define@key[psset]{pst-eucl}{SegmentSymbol}[MarkHashh]{\def\psk@SegmentSymbol{#1}}%
 \define@key[psset]{pst-eucl}{SegmentSymbolA}[MarkHashh]{\def\psk@SegmentSymbolA{#1}}%
@@ -132,7 +134,8 @@
 \psset[pst-eucl]{%
   PointSymbol=default, PointSymbolA=undef, PointSymbolB=undef, PointSymbolC=undef,
   PointName=default, PointNameA=undef, PointNameB=undef, PointNameC=undef,
-  PtNameMath=true, PointNameSep=default, PosAngle=undef, PosAngleA=undef,
+  PtNameMath=true, PointNameMathSize=\textstyle, PointNameSize=\normalsize, 
+  PointNameSep=default, PosAngle=undef, PosAngleA=undef,
   PosAngleB=undef, PosAngleC=undef, Mark=undef, mark=undef,SegmentSymbol=MarkHashh,
   SegmentSymbolA=MarkHashh, SegmentSymbolB=MarkHash, SegmentSymbolC=MarkHashhh,
   RightAngleSize=.4, RightAngleType=default, LabelAngleOffset=0, LabelSep=1,
@@ -267,7 +270,7 @@
   \ifx\psk@PointName\@none\else
     \rput{*0}([nodesep=\ifx\psk@PointNameSep\@default{1em}\else\psk@PointNameSep\fi,
                angle=\ifx\psk@PosAngle\@undef{0}\else\psk@PosAngle\fi]#1)%
-      {\ifPst@PtNameMath $\Pst@WhichLabel{#1}$\else\Pst@WhichLabel{#1}\fi}
+      {\ifPst@PtNameMath $\Point@Name@MathSize\Pst@WhichLabel{#1}$\else\Point@Name@Size\Pst@WhichLabel{#1}\fi}
   \fi}%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \def\Pst@WhichLabel#1{\ifx\psk@PointName\@default#1\else\psk@PointName\fi}%DR 0
@@ -373,25 +376,29 @@
   %% not good at all, but \rput{0}(#3){\rput{(#2)}{stuff}} doesn't work...
   \rput(#2){%
     \ifx\psk@RightAngleType\@default%
-    \pspolygon(0,0)%%modif 12/2004
-           (!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
-           (!tx@EcldDict begin /N@#3 GetNode exch Atan /N@#1 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@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
-    \else\ifx\psk@RightAngleType\@german%
-    \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#1}{#2}{#3}%
-       {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
-    \else\ifx\psk@RightAngleType\@suisseromand%
-    \rput{*0}%
-      (!tx@EcldDict begin /N@#3 GetNode exch Atan /N@#1 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@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
-           (!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
+      \psline(!tx@EcldDict begin /N@#1 GetNode exch Atan 
+               \psk@RightAngleSize\space exch PtoC end)%
+             (!tx@EcldDict begin /N@#1 GetNode exch Atan /AngleNo1 ED 
+               tx@EcldDict begin /N@#3 GetNode exch Atan /AngleNo3 ED 
+               AngleNo1 AngleNo3 sub abs 180 gt { /Diff -45 def }{ /Diff 45 def } ifelse  
+               AngleNo1 AngleNo3 gt { AngleNo1 Diff sub }{ AngleNo3 Diff sub } ifelse
+                 \psk@RightAngleSize\space 2 sqrt mul exch PtoC end)%
+             (!tx@EcldDict begin /N@#3 GetNode exch Atan 
+               \psk@RightAngleSize\space exch PtoC end)%
+    \else
+      \ifx\psk@RightAngleType\@german
+        \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#1}{#2}{#3}%
+           {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
+      \else
+        \ifx\psk@RightAngleType\@suisseromand
+          \rput{*0}%
+            (!tx@EcldDict begin /N@#3 GetNode exch Atan /N@#1 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)%
+            \psline(0,0)%
+              (!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
+              (!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
     \fi\fi\fi}%
   \endgroup\ignorespaces%  hv 20130312
 }%