texlive[51916] Master/texmf-dist: pst-eucl (20aug19)
commits+karl at tug.org
commits+karl at tug.org
Tue Aug 20 22:45:09 CEST 2019
Revision: 51916
http://tug.org/svn/texlive?view=revision&revision=51916
Author: karl
Date: 2019-08-20 22:45:09 +0200 (Tue, 20 Aug 2019)
Log Message:
-----------
pst-eucl (20aug19)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
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 2019-08-20 20:44:55 UTC (rev 51915)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes 2019-08-20 20:45:09 UTC (rev 51916)
@@ -5,6 +5,7 @@
pst-eucl.tex --------
+1.65 2019/08/19 - new type for angle
1.64 2019/01/31 - fix for PointName and pstInterCC
1.63 2019/01/27 - fix for PointSymbol=none for pstTriangle
1.62 2019/01/13 - added fillstyle for angles
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 2019-08-20 20:44:55 UTC (rev 51915)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex 2019-08-20 20:45:09 UTC (rev 51916)
@@ -379,7 +379,8 @@
\begin{sloppypar}
-Valid optional arguments are \Lkeyword{MarkAngleRadius}, \Lkeyword{LabelAngleOffset}, and
+Valid optional arguments are \Lkeyword{MarkAngleRadius}, \Lkeyword{LabelAngleOffset},
+ \Lkeyword{MarkAngleType} and
\Lkeyword{Mark}
%
The \Lkeyword{label} can be any valid \TeX\ box, it is put at \Lkeyword{LabelSep}
@@ -430,9 +431,25 @@
\end{pspicture}
\end{LTXexample}
+\begin{LTXexample}[width=\linewidth,pos=t]
+\begin{pspicture}[showgrid=false](-1.0,-1.0)(4,4)
+\pstGeonode[PosAngle=-90](0.0,0.0){A}
+\pstGeonode[PosAngle=-90](3.0,0.0){B}
+\pstGeonode[PosAngle=90](1.8,2.5){C}
+\pstGeonode[PosAngle=-90](1.5,0.0){D}
+\pstMarkAngle[LabelSep=.6,MarkAngleRadius=.4,MarkAngleType=double]{A}{C}{B}{$\gamma$}
+\pstMarkAngle[LabelSep=.6,MarkAngleRadius=.4,MarkAngleType=default]{C}{B}{A}{$\beta$}
+\pstMarkAngle[LabelSep=.6,MarkAngleRadius=.4,MarkAngleType=double,fillcolor=red!30,fillstyle=solid]{B}{A}{C}{$\alpha$}
+\pstMarkAngle[LabelSep=.6,MarkAngleRadius=.4,MarkAngleType=triple,fillcolor=red!30,fillstyle=solid]{B}{D}{C}{$\theta$}
+\pstMarkAngle[LabelSep=.6,MarkAngleRadius=.4,MarkAngleType=triple]{C}{D}{A}{$\zeta$}
+\pstLineAB{A}{B}
+\pstLineAB{B}{C}
+\pstLineAB{C}{A}
+\pstLineAB{C}{D}
+\end{pspicture}
+\end{LTXexample}
-
\subsection{Lines, half-lines and segments}
The classical line $(\overline{AB})$!
Modified: trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex 2019-08-20 20:44:55 UTC (rev 51915)
+++ trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex 2019-08-20 20:45:09 UTC (rev 51916)
@@ -19,8 +19,8 @@
\csname PSTEuclideLoaded\endcsname
\let\PSTEuclideLoaded\endinput
%
-\def\fileversion{1.64}
-\def\filedate{2019/01/31}
+\def\fileversion{1.65}
+\def\filedate{2019/08/19}
%%
\message{`PST-Euclide v\fileversion, \filedate\space (dr,hv)}%
%% prologue for postcript
@@ -86,22 +86,23 @@
\define at key[psset]{pst-eucl}{PosAngleB}[undef]{\def\psk at PosAngleB{#1}}%
\define at key[psset]{pst-eucl}{PosAngleC}[undef]{\def\psk at PosAngleC{#1}}%
% dimension of the right angle mark
-\define at key[psset]{pst-eucl}{RightAngleSize}[4]{\edef\psk at RightAngleSize{#1}}%
-\define at key[psset]{pst-eucl}{RightAngleType}[default]{\edef\psk at RightAngleType{#1}}%
+\define at key[psset]{pst-eucl}{RightAngleSize}[4]{\def\psk at RightAngleSize{#1}}%
+\define at key[psset]{pst-eucl}{RightAngleType}[default]{\def\psk at RightAngleType{#1}}%
% radius of an angle mark
-\define at key[psset]{pst-eucl}{MarkAngleRadius}[0.4]{\edef\psk at MarkAngleRadius{#1}}%
+\define at key[psset]{pst-eucl}{MarkAngleRadius}[0.4]{\def\psk at MarkAngleRadius{#1}}%
+\define at key[psset]{pst-eucl}{MarkAngleType}[default]{\def\psk at MarkAngleType{#1}}%
% angular offset position of the label for marking an angle
-\define at key[psset]{pst-eucl}{LabelAngleOffset}[0]{\edef\psk at LabelAngleOffset{#1}}%
+\define at key[psset]{pst-eucl}{LabelAngleOffset}[0]{\def\psk at LabelAngleOffset{#1}}%
% position radius of the label for marking an angle
-\define at key[psset]{pst-eucl}{LabelSep}[1]{\edef\psk at LabelSep{#1}}%
+\define at key[psset]{pst-eucl}{LabelSep}[1]{\def\psk at LabelSep{#1}}%
% ref point of the label
-\define at key[psset]{pst-eucl}{LabelRefPt}[c]{\edef\psk at LabelRefPt{#1}}%
+\define at key[psset]{pst-eucl}{LabelRefPt}[c]{\def\psk at LabelRefPt{#1}}%
% curve type for point list
-\define at key[psset]{pst-eucl}{CurveType}[none]{\edef\psk at CurveType{#1}}%
+\define at key[psset]{pst-eucl}{CurveType}[none]{\def\psk at CurveType{#1}}%
% coefficient of homothetie
-\define at key[psset]{pst-eucl}{HomCoef}[0.5]{\edef\psk at HomCoef{#1}}%
+\define at key[psset]{pst-eucl}{HomCoef}[0.5]{\def\psk at HomCoef{#1}}%
% angle of rotation
-\define at key[psset]{pst-eucl}{RotAngle}[60]{\edef\psk at RotAngle{#1}}%
+\define at key[psset]{pst-eucl}{RotAngle}[60]{\def\psk at RotAngle{#1}}%
% label for coding the transfortion
\define at key[psset]{pst-eucl}{TransformLabel}[none]{\edef\psk at TransformLabel{#1}}%
% private parameter
@@ -155,7 +156,8 @@
PosAngleB=undef, PosAngleC=undef, Mark=undef, mark=undef,SegmentSymbol=MarkHashh,
SegmentSymbolA=MarkHashh, SegmentSymbolB=MarkHash, SegmentSymbolC=MarkHashhh,
RightAngleSize=.4, RightAngleType=default, LabelAngleOffset=0, LabelSep=1,
- LabelRefPt=c, MarkAngle=undef, MarkAngleRadius=.4, HomCoef=.5, RotAngle=60,
+ LabelRefPt=c, MarkAngle=undef, MarkAngleType=default, MarkAngleRadius=.4,
+ HomCoef=.5, RotAngle=60,
CurveType=none, TransformLabel=none, Central at Sym=false, DrawCirABC=true,
CodeFig=false, CodeFigColor=cyan, CodeFigStyle=dashed, CodeFigA=undef,
CodeFigB=undef, CodeFigAarc=true, CodeFigBarc=true, Radius=none, RadiusA=undef,
@@ -169,6 +171,8 @@
\def\@default{default}%
\def\@german{german}%
\def\@suisseromand{suisseromand}%
+\def\@double{double}%
+\def\@triple{triple}%
\def\@polygon{polygon}
\def\@polyline{polyline}
\def\@curve{curve}
@@ -458,7 +462,18 @@
\psline(0,0)
}
\fi
- \psarc[fillstyle=none](0,0){\psk at MarkAngleRadius}{(#2)}{(#4)}%
+ \ifx\psk at MarkAngleType\@default
+ \psarc[fillstyle=none](0,0){\psk at MarkAngleRadius}{(#2)}{(#4)}%
+ \else
+ \ifx\psk at MarkAngleType\@double
+ \psarc[fillstyle=none](0,0){\psk at MarkAngleRadius}{(#2)}{(#4)}%
+ \psarc[fillstyle=none](0,0){! \psk at MarkAngleRadius\space 0.85 mul}{(#2)}{(#4)}%
+ \else
+ \ifx\psk at MarkAngleType\@triple
+ \psarc[fillstyle=none](0,0){\psk at MarkAngleRadius}{(#2)}{(#4)}%
+ \psarc[fillstyle=none](0,0){! \psk at MarkAngleRadius\space 0.85 mul}{(#2)}{(#4)}%
+ \psarc[fillstyle=none](0,0){! \psk at MarkAngleRadius\space 0.70 mul}{(#2)}{(#4)}%
+ \fi\fi\fi
\rput[\psk at LabelRefPt]{*0}(! tx at EcldDict begin
/N@#4 GetNode exch Atan /N@#2 GetNode exch Atan end
2 copy lt { exch 360 sub exch } if
More information about the tex-live-commits
mailing list