1 files changed, 26 insertions, 2 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 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)