summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-10-15 22:57:33 +0000
committerKarl Berry <karl@freefriends.org>2016-10-15 22:57:33 +0000
commit70b5b233e9f5c4693bed63cb0e0e5d7bdb0d280e (patch)
treede93e3aa7a4d670073156d36faebb8e724ec7baa
parent49ca1e735bdacea65d8d6185a8486232b7cba2c3 (diff)
pst-eucl (12oct16)
git-svn-id: svn://tug.org/texlive/trunk@42276 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/pst-eucl-doc.bib4
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdfbin530999 -> 533589 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex33
-rw-r--r--Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex53
5 files changed, 63 insertions, 28 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/Changes b/Master/texmf-dist/doc/generic/pst-eucl/Changes
index e211dacc739..0372897a149 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.55 2016/10/11 - fix for \pstRightAngle
1.54 2016/09/01 - added MarkArrow, MarkArroww,MarkArrowww
1.53 2016/05/03 - revert changes of CodeFig(A|B)
1.52 2015/10/19 - added more optional arguments (ts)
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
index d1db3f2b1ce..bb9df6926c3 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
+++ b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
@@ -51,9 +51,9 @@
@Book{PSTricks2,
author = {Herbert Vo\ss{}},
title = {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
- edition = {6.},
+ edition = {7},
publisher = {DANTE -- Lehmanns},
- year = {2010},
+ year = {2016},
address = {Heidelberg/Hamburg}
}
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
index c896eafbace..f61cf99c894 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
index 35101012841..547a2c167db 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
@@ -2,8 +2,8 @@
headexclude,footexclude,oneside,english]{pst-doc}
\usepackage[utf8]{inputenc}
\usepackage{pst-eucl}
-\usepackage{multicol}
\let\pstEuclideFV\fileversion
+\usepackage{multicol}
\usepackage{pst-plot,paralist}
\usepackage[mathscr]{eucal}
\lstset{pos=l,wide=false,language=PSTricks,
@@ -12,6 +12,9 @@
\def\Argsans#1{$\langle$#1$\rangle$}
\def\DefaultVal#1{(by default #1)}
+\usepackage{biblatex}
+\addbibresource{\jobname.bib}
+
\title{\texttt{pst-euclide}}
\subtitle{A PSTricks package for drawing geometric pictures; v.\pstEuclideFV}
@@ -399,6 +402,30 @@ the angle by specifying a \TeX{} command as argument of parameter \Lkeyword{Mark
\end{LTXexample}
+\begin{LTXexample}[width=\linewidth,pos=t]
+\begin{pspicture}(-0.5,-0.5)(9,3)
+\psset{PointSymbol=none,PointNameMathSize=\scriptstyle,PointNameSep=6pt,
+ RightAngleSize=0.15,PosAngle={135,225,-45,45}}
+\psaxes[ticks=none,labels=none] {->}(0,0)(9,3)
+\pstGeonode(1,2){A}(1,1){B}(2,1){C}(2,2){D}%
+\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B}
+\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D}
+\pspolygon(A)(B)(C)(D)
+\psset{RightAngleType=suisseromand}
+\pstGeonode(3,2){A}(3,1){B}(4,1){C}(4,2){D}%
+\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B}
+\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D}
+\pspolygon(A)(B)(C)(D)
+\psset{RightAngleType=german}
+\pstGeonode(5,2){A}(5,1){B}(6,1){C}(6,2){D}%
+\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B}
+\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D}
+\pspolygon(A)(B)(C)(D)
+\end{pspicture}
+\end{LTXexample}
+
+
+
\subsection{Lines, half-lines and segments}
@@ -2031,8 +2058,8 @@ crossing a given point.
\nocite{*}
\bgroup
\RaggedRight
-\bibliographystyle{plain}
-\bibliography{pst-eucl-doc}
+%\bibliographystyle{plain}
+\printbibliography{pst-eucl-doc}
\egroup
\printindex
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 4e9559a8b55..4c9b37c8f90 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -17,8 +17,8 @@
\ifx\MultidoLoaded\endinput \else\input multido.tex \fi
\csname PSTEuclideLoaded\endcsname
\let\PSTEuclideLoaded\endinput
-\def\fileversion{1.54}
-\def\filedate{2016/09/01}
+\def\fileversion{1.55}
+\def\filedate{2016/10/11}
%% 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.
@@ -47,6 +47,8 @@
% use math mode in point name
\newif\ifPst@PtNameMath%
\define@key[psset]{pst-eucl}{PtNameMath}[false]{\@nameuse{Pst@PtNameMath#1}}%
+\define@key[psset]{pst-eucl}{PointNameSize}[\normalsize]{\def\Point@Name@Size{#1}}%
+\define@key[psset]{pst-eucl}{PointNameMathSize}[\textnormal]{\def\Point@Name@MathSize{#1}}%
% symbol used for marking equal length segment
\define@key[psset]{pst-eucl}{SegmentSymbol}[MarkHashh]{\def\psk@SegmentSymbol{#1}}%
\define@key[psset]{pst-eucl}{SegmentSymbolA}[MarkHashh]{\def\psk@SegmentSymbolA{#1}}%
@@ -132,7 +134,8 @@
\psset[pst-eucl]{%
PointSymbol=default, PointSymbolA=undef, PointSymbolB=undef, PointSymbolC=undef,
PointName=default, PointNameA=undef, PointNameB=undef, PointNameC=undef,
- PtNameMath=true, PointNameSep=default, PosAngle=undef, PosAngleA=undef,
+ PtNameMath=true, PointNameMathSize=\textstyle, PointNameSize=\normalsize,
+ PointNameSep=default, PosAngle=undef, PosAngleA=undef,
PosAngleB=undef, PosAngleC=undef, Mark=undef, mark=undef,SegmentSymbol=MarkHashh,
SegmentSymbolA=MarkHashh, SegmentSymbolB=MarkHash, SegmentSymbolC=MarkHashhh,
RightAngleSize=.4, RightAngleType=default, LabelAngleOffset=0, LabelSep=1,
@@ -267,7 +270,7 @@
\ifx\psk@PointName\@none\else
\rput{*0}([nodesep=\ifx\psk@PointNameSep\@default{1em}\else\psk@PointNameSep\fi,
angle=\ifx\psk@PosAngle\@undef{0}\else\psk@PosAngle\fi]#1)%
- {\ifPst@PtNameMath $\Pst@WhichLabel{#1}$\else\Pst@WhichLabel{#1}\fi}
+ {\ifPst@PtNameMath $\Point@Name@MathSize\Pst@WhichLabel{#1}$\else\Point@Name@Size\Pst@WhichLabel{#1}\fi}
\fi}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\Pst@WhichLabel#1{\ifx\psk@PointName\@default#1\else\psk@PointName\fi}%DR 0
@@ -373,25 +376,29 @@
%% not good at all, but \rput{0}(#3){\rput{(#2)}{stuff}} doesn't work...
\rput(#2){%
\ifx\psk@RightAngleType\@default%
- \pspolygon(0,0)%%modif 12/2004
- (!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
- (!tx@EcldDict begin /N@#3 GetNode exch Atan /N@#1 GetNode exch Atan
- 2 copy sub abs 91 gt
- { 2 copy lt { exch 360 add exch } { 360 add } ifelse } if %%DR 2005/01/14
- %%2 copy lt { exch 360 sub exch } if
- add 2 div 2 sqrt \psk@RightAngleSize\space mul exch PtoC end)%
- (!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
- \else\ifx\psk@RightAngleType\@german%
- \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#1}{#2}{#3}%
- {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
- \else\ifx\psk@RightAngleType\@suisseromand%
- \rput{*0}%
- (!tx@EcldDict begin /N@#3 GetNode exch Atan /N@#1 GetNode exch Atan
- 2 copy lt { exch 360 sub exch } if add 2 div .45 \psk@RightAngleSize\space mul exch PtoC end)%
- {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
- \pspolygon(0,0)%
- (!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
- (!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
+ \psline(!tx@EcldDict begin /N@#1 GetNode exch Atan
+ \psk@RightAngleSize\space exch PtoC end)%
+ (!tx@EcldDict begin /N@#1 GetNode exch Atan /AngleNo1 ED
+ tx@EcldDict begin /N@#3 GetNode exch Atan /AngleNo3 ED
+ AngleNo1 AngleNo3 sub abs 180 gt { /Diff -45 def }{ /Diff 45 def } ifelse
+ AngleNo1 AngleNo3 gt { AngleNo1 Diff sub }{ AngleNo3 Diff sub } ifelse
+ \psk@RightAngleSize\space 2 sqrt mul exch PtoC end)%
+ (!tx@EcldDict begin /N@#3 GetNode exch Atan
+ \psk@RightAngleSize\space exch PtoC end)%
+ \else
+ \ifx\psk@RightAngleType\@german
+ \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#1}{#2}{#3}%
+ {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
+ \else
+ \ifx\psk@RightAngleType\@suisseromand
+ \rput{*0}%
+ (!tx@EcldDict begin /N@#3 GetNode exch Atan /N@#1 GetNode exch Atan
+ 2 copy lt { exch 360 sub exch } if add 2 div .45 \psk@RightAngleSize\space mul exch PtoC end)%
+ {\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
+% \pspolygon(0,0)%
+ \psline(0,0)%
+ (!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
+ (!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
\fi\fi\fi}%
\endgroup\ignorespaces% hv 20130312
}%