texlive[53594] Master/texmf-dist: pst-eucl (29jan20)

commits+karl at tug.org commits+karl at tug.org
Wed Jan 29 23:38:39 CET 2020


Revision: 53594
          http://tug.org/svn/texlive?view=revision&revision=53594
Author:   karl
Date:     2020-01-29 23:38:39 +0100 (Wed, 29 Jan 2020)
Log Message:
-----------
pst-eucl (29jan20)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
    trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
    trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
    trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
    trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
    trunk/Master/texmf-dist/tex/latex/pst-eucl/pst-eucl.sty

Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes	2020-01-29 22:38:26 UTC (rev 53593)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes	2020-01-29 22:38:39 UTC (rev 53594)
@@ -6,6 +6,8 @@
 
 
 pst-eucl.tex --------
+1.70  2020/01/29 - add optional argument RightAngleDotDistance to controll the the dot
+                   position for right angles (type german or swissromand)
 1.69  2020/01/09 - add macro to get the chord with specified length, \pstCircleChordNode.
                  - add macro to draw the center of the triangle's escribed circle, \pstTriangleEC.
                  - add macro to draw the orthocenter of triangle, \pstTriangleHC.

Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib	2020-01-29 22:38:26 UTC (rev 53593)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib	2020-01-29 22:38:39 UTC (rev 53594)
@@ -55,7 +55,7 @@
   edition	= {7},
   publisher	= {DANTE -- Lehmanns},
   year		= {2016},
-  address	= {Heidelberg/Hamburg}
+  address	= {Heidelberg and Hamburg}
 }
 
 @Book{PSTricksE,
@@ -82,7 +82,7 @@
   edition	= {1},
   publisher	= {DANTE -- Lehmanns Media},
   year		= {2012},
-  address	= {Heidelberg/Berlin}
+  address	= {Heidelberg and Berlin}
 }
 
 
@@ -90,9 +90,9 @@
   author	= {Victor Eijkhout},
   title		= {\TeX\ by Topic -- {A} \TeX{}nician Reference},
   edition	= {1},
-  publisher	= {DANTE -- lehmanns media},
+  publisher	= {DANTE -- Lehmanns media},
   year		= {2014},
-  address	= {Heidelberg/Berlin}
+  address	= {Heidelberg and Berlin}
 }
 
 

Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex	2020-01-29 22:38:26 UTC (rev 53593)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex	2020-01-29 22:38:39 UTC (rev 53594)
@@ -370,6 +370,8 @@
 \end{pspicture}
 \end{LTXexample}
 
+%$
+
 \subsection{Triangles}
 
 The more classical figure, it has its own macro \Lcs{pstTriangle} for a quick definition:
@@ -413,6 +415,8 @@
 \Lcs{pstTriangleASA}\OptArgs\Largr{pos}\Largb{A}\Largr{$\angle{A}$,c,$\angle{B}$}\Largb{B}\Largb{C}
 \end{BDef}
 
+%$
+
 - Macro \Lcs{pstTriangleSSS} create a triangle $ABC$ with given $A(x_1,y_1)$, and the three sides $a,b,c$,
 it output $B(x_2,y_2)$ and $C(x_3,y_3)$.\\
 - Macro \Lcs{pstTriangleSAS} create a triangle $ABC$ with given $A(x_1,y_1)$, the angle of $\angle{A}$, and the other two sides $b,c$,
@@ -527,12 +531,12 @@
 
 
 \begin{sloppypar}
-Valid optional arguments are \Lkeyword{RightAngleType}, \Lkeyword{RightAngleSize}, and
-        \Lkeyword{RightAngleSize}
+Valid optional arguments are \Lkeyword{RightAngleType}, \Lkeyword{RightAngleSize}, 
+        \Lkeyword{RightAngleSize}, and \Lkeyword{RightAngleDotDistance}
 \end{sloppypar}
 
-The symbol used is controlled by the parameter \Lkeyword{RightAngleType}
-\nxLkeyval{default}. Its possible values are :
+The symbol is controlled by the parameter \Lkeyword{RightAngleType}
+\nxLkeyval{default}. Its possible values are:
 
 \begin{compactitem}
 \item \Lkeyval{*} : standard symbol ;
@@ -540,10 +544,17 @@
 \item \Lkeyval{suisseromand} : swiss romand symbol (given P. Schnewlin).
 \end{compactitem}
 
-The only parameter controlling this command, excepting the ones which
+The only parameters controlling this command, excepting the ones which
 controlled the line, is \Lkeyword{RightAngleSize} which defines the size
-of the symbol \DefaultVal{0.28 unit}.
+of the symbol \DefaultVal{0.28 unit} and \Lkeyword{RightAngleDotDistance}. For a 
+right angle style \Lkeyval{german} or \Lkeyval{swissromand} the distance of the dot
+is preset to 0.5 (\Lkeyval{german}) or 0.45 (\Lkeyval{swissromand}), relative to the radius.
+It can be controlled by the optional argument \Lkeyword{RightAngleDotDistance} which is
+preset to 1. A greater value moves the dot away from the reference point.
 
+
+
+
 For other angles, there is the command:
 
 \begin{BDef}

Modified: trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex	2020-01-29 22:38:26 UTC (rev 53593)
+++ trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex	2020-01-29 22:38:39 UTC (rev 53594)
@@ -1,13 +1,13 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -*- Mode: Latex -*- %%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% pst-eucl.tex --- Generation of geometric figures in euclidean geometry
 %% Copyright 2000-2013 Dominique RODRIGUEZ
-%% Copyright 2014-     Dominique RODRIGUEZ, Herbert Voß
+%% Copyright 2014-...  Dominique RODRIGUEZ, Herbert Voß
 %%
 %% 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.
 %%
-%% Author          : Dominique RODRIGUEZ (EN) <dominique.rodriguez at waika9.com>
+%% Authors         : Dominique RODRIGUEZ (EN) <dominique.rodriguez at waika9.com>
 %%                 : hv hvoss at tug.org
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % Require PSTricks and pst-node packages
@@ -20,8 +20,8 @@
 \csname PSTEuclideLoaded\endcsname
 \let\PSTEuclideLoaded\endinput
 %
-\def\fileversion{1.69}
-\def\filedate{2020/01/09}
+\def\fileversion{1.70}
+\def\filedate{2020/01/29}
 %%
 \message{`PST-Euclide v\fileversion, \filedate\space (dr,hv)}%
 %% prologue for postcript
@@ -73,7 +73,7 @@
 \iffalse
 \define at key[psset]{pst-eucl}{PosAngle}{\expandafter\psk@@Pos at Angle#1,,!}%
 \def\psk@@Pos at Angle#1,#2,#3#4#5!{%
-  \typeout{1: #1; 2: #2; 3: #3; 4: #4; 5: #5}%
+%  \typeout{1: #1; 2: #2; 3: #3; 4: #4; 5: #5}%
   \def\psk at PosAngle{#1}%
   \def\@temp{#1}%
   \ifx\@temp\@undef \typeout{Nichts machen}\else\typeout{Winkel setzen}%
@@ -89,6 +89,7 @@
 % dimension of the right angle mark
 \define at key[psset]{pst-eucl}{RightAngleSize}[4]{\def\psk at RightAngleSize{#1}}%
 \define at key[psset]{pst-eucl}{RightAngleType}[default]{\def\psk at RightAngleType{#1}}%
+\define at key[psset]{pst-eucl}{RightAngleDotDistance}[1]{\def\psk at RightAngleDotDistance{#1 }}%
 % radius of an angle mark
 \define at key[psset]{pst-eucl}{MarkAngleRadius}[0.4]{\def\psk at MarkAngleRadius{#1}}%
 \define at key[psset]{pst-eucl}{MarkAngleType}[default]{\def\psk at MarkAngleType{#1}}%
@@ -156,7 +157,8 @@
   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,
+  RightAngleSize=.4, RightAngleType=default, RightAngleDotDistance=1,
+  LabelAngleOffset=0, LabelSep=1,
   LabelRefPt=c, MarkAngle=undef, MarkAngleType=default, MarkAngleRadius=.4,
   HomCoef=.5, RotAngle=60,
   CurveType=none, TransformLabel=none, Central at Sym=false, DrawCirABC=true,
@@ -465,13 +467,13 @@
 %            \psline(0,0)
 %          }
 %        \fi
-        \pstMarkAngle[MarkAngleRadius=\psk at RightAngleSize,LabelSep=\psk at RightAngleSize\space .5 mul]{#1}{#2}{#3}%
+        \pstMarkAngle[MarkAngleRadius=\psk at RightAngleSize,LabelSep=\psk at RightAngleSize\space .5 mul \psk at RightAngleDotDistance mul]{#1}{#2}{#3}%
            {\psscalebox{\psk at RightAngleSize}{\pscircle*{!.08 \psk at xdotscale\space mul}}}%
       \else
         \ifx\psk at RightAngleType\@suisseromand
           \rput{*0}%
             (!tx at 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 at RightAngleSize\space mul exch PtoC end)%
+              2 copy lt { exch 360 sub exch } if add 2 div .45 \psk at RightAngleSize\space mul \psk at RightAngleDotDistance mul exch PtoC end)%
               {\psscalebox{\psk at RightAngleSize}{\pscircle*{.08}}}%
             \psline(0,0)%
               (!tx at EcldDict begin /N@#3 GetNode exch Atan \psk at RightAngleSize\space exch PtoC end )%

Modified: trunk/Master/texmf-dist/tex/latex/pst-eucl/pst-eucl.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pst-eucl/pst-eucl.sty	2020-01-29 22:38:26 UTC (rev 53593)
+++ trunk/Master/texmf-dist/tex/latex/pst-eucl/pst-eucl.sty	2020-01-29 22:38:39 UTC (rev 53594)
@@ -10,6 +10,6 @@
   [\filedate\space v\fileversion\space `PST-eucl' (dr,hv)]
 \IfFileExists{pst-eucl.pro}{%
   \ProvidesFile{pst-eucl.pro}
-    [2020/01/09 v. 1.02,  PostScript prologue file (hv)]
+    [2020/01/29 v. 1.03,  PostScript prologue file (hv)]
     \@addtofilelist{pst-eucl.pro}}{}%
 \endinput



More information about the tex-live-commits mailing list.