texlive[42276] Master/texmf-dist: pst-eucl (12oct16)
commits+karl at tug.org
commits+karl at tug.org
Sun Oct 16 00:57:33 CEST 2016
Revision: 42276
http://tug.org/svn/texlive?view=revision&revision=42276
Author: karl
Date: 2016-10-16 00:57:33 +0200 (Sun, 16 Oct 2016)
Log Message:
-----------
pst-eucl (12oct16)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes 2016-10-15 22:57:18 UTC (rev 42275)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes 2016-10-15 22:57:33 UTC (rev 42276)
@@ -4,6 +4,7 @@
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)
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib 2016-10-15 22:57:18 UTC (rev 42275)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib 2016-10-15 22:57:33 UTC (rev 42276)
@@ -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}
}
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex 2016-10-15 22:57:18 UTC (rev 42275)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex 2016-10-15 22:57:33 UTC (rev 42276)
@@ -2,8 +2,8 @@
headexclude,footexclude,oneside,english]{pst-doc}
\usepackage[utf8]{inputenc}
\usepackage{pst-eucl}
+\let\pstEuclideFV\fileversion
\usepackage{multicol}
-\let\pstEuclideFV\fileversion
\usepackage{pst-plot,paralist}
\usepackage[mathscr]{eucal}
\lstset{pos=l,wide=false,language=PSTricks,
@@ -12,7 +12,10 @@
\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}
\author{Dominique Rodriguez\\Herbert Voß}
@@ -399,7 +402,31 @@
\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}
The classical line $(\overline{AB})$!
@@ -2031,8 +2058,8 @@
\nocite{*}
\bgroup
\RaggedRight
-\bibliographystyle{plain}
-\bibliography{pst-eucl-doc}
+%\bibliographystyle{plain}
+\printbibliography{pst-eucl-doc}
\egroup
\printindex
Modified: trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex 2016-10-15 22:57:18 UTC (rev 42275)
+++ trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex 2016-10-15 22:57:33 UTC (rev 42276)
@@ -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 at PtNameMath%
\define at key[psset]{pst-eucl}{PtNameMath}[false]{\@nameuse{Pst at PtNameMath#1}}%
+\define at key[psset]{pst-eucl}{PointNameSize}[\normalsize]{\def\Point at Name@Size{#1}}%
+\define at key[psset]{pst-eucl}{PointNameMathSize}[\textnormal]{\def\Point at Name@MathSize{#1}}%
% symbol used for marking equal length segment
\define at key[psset]{pst-eucl}{SegmentSymbol}[MarkHashh]{\def\psk at SegmentSymbol{#1}}%
\define at key[psset]{pst-eucl}{SegmentSymbolA}[MarkHashh]{\def\psk at 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 at PointName\@none\else
\rput{*0}([nodesep=\ifx\psk at PointNameSep\@default{1em}\else\psk at PointNameSep\fi,
angle=\ifx\psk at PosAngle\@undef{0}\else\psk at PosAngle\fi]#1)%
- {\ifPst at PtNameMath $\Pst at WhichLabel{#1}$\else\Pst at WhichLabel{#1}\fi}
+ {\ifPst at PtNameMath $\Point at Name@MathSize\Pst at WhichLabel{#1}$\else\Point at Name@Size\Pst at WhichLabel{#1}\fi}
\fi}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\Pst at WhichLabel#1{\ifx\psk at PointName\@default#1\else\psk at 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 at RightAngleType\@default%
- \pspolygon(0,0)%%modif 12/2004
- (!tx at EcldDict begin /N@#3 GetNode exch Atan \psk at RightAngleSize\space exch PtoC end)%
- (!tx at 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 at RightAngleSize\space mul exch PtoC end)%
- (!tx at EcldDict begin /N@#1 GetNode exch Atan \psk at RightAngleSize\space exch PtoC end)%
- \else\ifx\psk at RightAngleType\@german%
- \pstMarkAngle[MarkAngleRadius=\psk at RightAngleSize,LabelSep=\psk at RightAngleSize\space .5 mul]{#1}{#2}{#3}%
- {\psscalebox{\psk at RightAngleSize}{\pscircle*{.08}}}%
- \else\ifx\psk at RightAngleType\@suisseromand%
- \rput{*0}%
- (!tx at 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 at RightAngleSize\space mul exch PtoC end)%
- {\psscalebox{\psk at RightAngleSize}{\pscircle*{.08}}}%
- \pspolygon(0,0)%
- (!tx at EcldDict begin /N@#3 GetNode exch Atan \psk at RightAngleSize\space exch PtoC end )%
- (!tx at EcldDict begin /N@#1 GetNode exch Atan \psk at RightAngleSize\space exch PtoC end )%
+ \psline(!tx at EcldDict begin /N@#1 GetNode exch Atan
+ \psk at RightAngleSize\space exch PtoC end)%
+ (!tx at EcldDict begin /N@#1 GetNode exch Atan /AngleNo1 ED
+ tx at 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 at RightAngleSize\space 2 sqrt mul exch PtoC end)%
+ (!tx at EcldDict begin /N@#3 GetNode exch Atan
+ \psk at RightAngleSize\space exch PtoC end)%
+ \else
+ \ifx\psk at RightAngleType\@german
+ \pstMarkAngle[MarkAngleRadius=\psk at RightAngleSize,LabelSep=\psk at RightAngleSize\space .5 mul]{#1}{#2}{#3}%
+ {\psscalebox{\psk at RightAngleSize}{\pscircle*{.08}}}%
+ \else
+ \ifx\psk at RightAngleType\@suisseromand
+ \rput{*0}%
+ (!tx at 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 at RightAngleSize\space mul exch PtoC end)%
+ {\psscalebox{\psk at RightAngleSize}{\pscircle*{.08}}}%
+% \pspolygon(0,0)%
+ \psline(0,0)%
+ (!tx at EcldDict begin /N@#3 GetNode exch Atan \psk at RightAngleSize\space exch PtoC end )%
+ (!tx at EcldDict begin /N@#1 GetNode exch Atan \psk at RightAngleSize\space exch PtoC end )%
\fi\fi\fi}%
\endgroup\ignorespaces% hv 20130312
}%
More information about the tex-live-commits
mailing list