pst-eucl (5apr14)

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

3 files changed, 27 insertions, 18 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-eucl/Changes b/Master/texmf-dist/doc/generic/pst-eucl/Changes
index 8d03e25631a..9c62a622188 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.50 2014/04/05 - added MarkHashLength|Sep (hv)
 1.49 2014/03/17 - allow algebraic mode for interlines (hv)
 1.48 2013/05/02 - take \MarkAngle into account (hv)
 1.47 2013/03/12 - insert \ignorespaces in \pstRightAngle (hv)
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/README b/Master/texmf-dist/doc/generic/pst-eucl/README
index 4c9ecdf2f3c..ede39a0ba17 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/README
+++ b/Master/texmf-dist/doc/generic/pst-eucl/README
@@ -4,22 +4,6 @@ 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.
 
-However, you MUST send me an Email with a small commentary!
-
-Then you should consider making a donation:
-
-    1. directly to the LaTeX3 team;
-    2. and/or to me for the support of this package (choose one of the three)
-	a. $1 or 1 euro (or more),
-	b. some beautiful stamps (cancelled or not) of your country
-           (for my children),
-	c. a beautiful postcard with a beautiful stamp on it .
-
-       my address:
-			    La Grand'Terre
-		    07460 Saint André de Cruziéres
-				FRANCE
-
 INSTALLATION
 ------------
 
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 ee42bc8612c..681f993be7d 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -16,8 +16,8 @@
 \ifx\MultidoLoaded\endinput \else\input multido.tex \fi
 \csname PSTEuclideLoaded\endcsname
 \let\PSTEuclideLoaded\endinput
-\def\fileversion{1.49}
-\def\filedate{2014/03/17}
+\def\fileversion{1.50}
+\def\filedate{2014/04/05}
 %% 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.
@@ -53,6 +53,12 @@
 \define@key[psset]{pst-eucl}{Mark}{\def\psk@Mark{#1}}%
 \define@key[psset]{pst-eucl}{mark}{\def\psk@mark{Angle#1}}%  for angles
 \define@key[psset]{pst-eucl}{MarkAngle}{\def\psk@MarkAngle{#1}}%
+\newdimen\psMarkHashLength
+\newdimen\psMarkHashSep
+\define@key[psset]{pst-eucl}{MarkHashLength}[1.25mm]{\pssetlength\psMarkHashLength{#1}}
+\define@key[psset]{pst-eucl}{MarkHashSep}[0.625mm]{\pssetlength\psMarkHashSep{#1}}
+\psset{MarkHashLength,MarkHashSep}% sets the defaults
+%
 % disance from point to its label
 \define@key[psset]{pst-eucl}{PointNameSep}{\edef\psk@PointNameSep{#1}}%
 % position angle for positionning a point name
@@ -302,6 +308,23 @@ end}%
 \let\Anglepstslashslash=\Anglepstslashh%
 \let\Anglepstslashslashslash=\Anglepstslashhh%
 %%begin modif alaindelplanque 11/2003
+%%begin modif Germain Boxer 04/2014
+\def\MarkHash{%
+     \rput{\ifx\psk@MarkAngle\@undef45\else\psk@MarkAngle\fi}
+     {\psline(-\psMarkHashLength,0)(\psMarkHashLength,0)}}
+\def\MarkHashh{%
+      \rput{\ifx\psk@MarkAngle\@undef45\else\psk@MarkAngle\fi}(-0.5\psMarkHashSep,0)
+     {\psline(-\psMarkHashLength,0)(\psMarkHashLength,0)}
+      \rput{\ifx\psk@MarkAngle\@undef45\else\psk@MarkAngle\fi}(0.5\psMarkHashSep,0)
+     {\psline(-\psMarkHashLength,0)(\psMarkHashLength,0)}}
+\def\MarkHashhh{%
+     \rput{\ifx\psk@MarkAngle\@undef45\else\psk@MarkAngle\fi}(-\psMarkHashSep,0)
+     {\psline(-\psMarkHashLength,0)(\psMarkHashLength,0)}
+      \rput{\ifx\psk@MarkAngle\@undef45\else\psk@MarkAngle\fi}
+     {\psline(-\psMarkHashLength,0)(\psMarkHashLength,0)}
+      \rput{\ifx\psk@MarkAngle\@undef45\else\psk@MarkAngle\fi}(\psMarkHashSep,0)
+     {\psline(-\psMarkHashLength,0)(\psMarkHashLength,0)}}
+\iffalse         %%%%%% hv 2014/04/05
 \def\MarkHash{%
   \rput{\ifx\psk@MarkAngle\@undef45\else\psk@MarkAngle\fi}
     {\psline(-10\pslinewidth,0)(10\pslinewidth,0)}}
@@ -322,6 +345,7 @@ end}%
     {\psline(-10\pslinewidth,0)(10\pslinewidth,0)}
   \rput{\ifx\psk@MarkAngle\@undef45\else\psk@MarkAngle\fi}(6\pslinewidth,0)
     {\psline(-10\pslinewidth,0)(10\pslinewidth,0)}}
+\fi
 \def\AngleMarkHashhh{%
   \rput[c]{\ifx\psk@MarkAngle\@undef0\else\psk@MarkAngle\fi}(0,0){%
     \psline(-10\pslinewidth,-4\pslinewidth)(10\pslinewidth,-4\pslinewidth)