summaryrefslogtreecommitdiff
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
parent82b92c6c6aca6368ee7e1c70c5b5b7ded0547e21 (diff)
pst-eucl (5apr14)
git-svn-id: svn://tug.org/texlive/trunk@33381 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/Changes1
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/README16
-rw-r--r--Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex28
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)