summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-eucl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-05 22:21:37 +0000
committerKarl Berry <karl@freefriends.org>2014-04-05 22:21:37 +0000
commit7719009f4cdf45a5a17fe1e6f8a91350d20cee00 (patch)
tree2cc2b4ddc6424c86cf1ea4f9922fe52c0167ca2c /Master/texmf-dist/tex/generic/pst-eucl
parent82b92c6c6aca6368ee7e1c70c5b5b7ded0547e21 (diff)
pst-eucl (5apr14)
git-svn-id: svn://tug.org/texlive/trunk@33381 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-eucl')
-rw-r--r--Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex28
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)