From 7719009f4cdf45a5a17fe1e6f8a91350d20cee00 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 5 Apr 2014 22:21:37 +0000 Subject: pst-eucl (5apr14) git-svn-id: svn://tug.org/texlive/trunk@33381 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-eucl/pst-eucl.tex | 28 ++++++++++++++++++++-- 1 file changed, 26 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/tex') 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) -- cgit v1.2.3